首先我們來看一下效果圖:
咳咳,是不是很有feel!
將手寫字型解壓到資料夾下
開啟控制面板,搜尋字型,然後進入資料夾:
然後將之前資料夾下的ttf檔案拖拽進去就可以了。
接下來開啟word!
開啟檔案->選項->信任中心->信任中心設定中選擇該選項:
開啟檢視->巨集->新建「手寫字型」
sub 手寫字型()'
' 手寫字型 巨集''
dim fontsize(5)
' 字型大小在5個值之間進行波動,可以改寫
fontsize(1) = "12"
fontsize(2) = "12.5"
fontsize(3) = "13"
fontsize(4) = "13.5"
fontsize(5) = "14"
dim fontname(3)
'字型名稱在三種字型之間進行波動,可改寫,但需要保證系統擁有下列字型
fontname(1)
="某字型"
fontname(2)
="某字型"
fontname(3)
="某字型"
dim paragraphspace(5)
'行間距 在一定以下值中均等分布,可改寫
paragraphspace(1) = "12"
paragraphspace(2) = "13"
paragraphspace(3) = "20"
paragraphspace(4) = "7"
paragraphspace(5) = "12"
'不懂原理的話,不建議修改下列**
for each r_character in activedocument.characters
vba.randomize
r_character.font.name = fontname(int(vba.rnd * 3) + 1)
r_character.font.size = fontsize(int(vba.rnd * 5) + 1)
r_character.font.position = int(vba.rnd * 3) + 1
r_character.font.spacing = 0
next
for each cur_paragraph in activedocument.paragraphs
cur_paragraph.linespacing = paragraphspace(int(vba.rnd * 5) + 1)
next
end sub
隨後儲存退出即可
在巨集視窗直接執行該巨集**
如何用word製作逼真的手寫字型?
世界那麼大 elseif r character 分 or r character 統 then r character.font.name 伯樂俏皮體 elseif asc r character 48 and asc r character 57 then if r character 5 th...
kaggle mnist手寫字型識別
現在的許多手寫字型識別 都是基於已有的mnist手寫字型資料集進行的,而kaggle需要用到 上給出的資料集並生成測試集的輸出用於提交。這裡選擇keras搭建卷積網路進行識別,可以直接生成測試集的結果,最終結果識別率大概97 左右的樣子。coding utf 8 created on tue jun...
用Keras進行手寫字型識別(MNIST資料集)
首先載入資料 from keras.datasets import mnist train images,train labels test images,test labels mnist.load data 接下來,看看這個資料集的基本情況 train images.shape 60000,28...