用word模仿手寫字型

2021-10-11 09:25:30 字數 1784 閱讀 5847

首先我們來看一下效果圖:

咳咳,是不是很有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...