今天給大家分享一個很有趣的Word小技巧,實用性比較少,但是工作之餘發現點新東西還是不錯的。
一、如何製作手寫字體
![](https://system-daogeziyuan-1251174242.cos.ap-nanjing.myqcloud.com/type_article/jiazuoxinshang/8b50e098f682d283542e17478d2f9f6f.jpg)
自製字體的原理就是告訴計算機,編碼調用的另一套我自己的圖片。比如漢字“棒”的我已經寫好的字體是這樣的:
![](https://system-daogeziyuan-1251174242.cos.ap-nanjing.myqcloud.com/type_article/jiazuoxinshang/c03a65ad979b6f5d92d2dc761f0fea73.jpg)
接下來就需要將上萬個漢字自己寫一遍嘍
這是沒辦法偷懶的嘍
但是剩餘的拍照掃描工作可以偷懶的哦
這裡可以藉助一個手寫字庫的網站
http://www.flexifont.com/
這個網站有詳細的字體說明
以及各種版本字庫的下載
我們只需要下載對應的pdf格式模板
再愉快的抄寫就可以了
按照網站說明完成即可生成屬於自己的字體
二、如何讓打印出來的字體看起來像手寫的?
![](https://system-daogeziyuan-1251174242.cos.ap-nanjing.myqcloud.com/type_article/jiazuoxinshang/0e6a3d6b3c9541dd2afb0f3d81e7dbcb.jpg)
先說一下,文檔中的字,為什麼看起來規整,是因為每個字就像鉛字一樣,一個字體一個方格,無論是手寫體,還是系統字體,看起來都很規整;
![](https://system-daogeziyuan-1251174242.cos.ap-nanjing.myqcloud.com/type_article/jiazuoxinshang/44c3720f697c7a39115b1f4b93124db5.jpg)
![](https://system-daogeziyuan-1251174242.cos.ap-nanjing.myqcloud.com/type_article/jiazuoxinshang/44c3720f697c7a39115b1f4b93124db5.jpg)
字體的前後間距(字符間距); 上下間距(行距); span> 字體大小(字號); 字體的寬窄上進行調整(字符縮放)
![](https://system-daogeziyuan-1251174242.cos.ap-nanjing.myqcloud.com/type_article/jiazuoxinshang/8c5fbd1afc89f17b002f739a0412faf2.jpg)
![](https://system-daogeziyuan-1251174242.cos.ap-nanjing.myqcloud.com/type_article/jiazuoxinshang/4345a7de546fa89d4adaa8b88a97c83a.jpg)
![](https://system-daogeziyuan-1251174242.cos.ap-nanjing.myqcloud.com/type_article/jiazuoxinshang/14ea0b96624a8f1b1784426647c9c6a2.jpg)
![](https://system-daogeziyuan-1251174242.cos.ap-nanjing.myqcloud.com/type_article/jiazuoxinshang/908444b957c1233225cf4e95cb4861c2.jpg)
![](https://system-daogeziyuan-1251174242.cos.ap-nanjing.myqcloud.com/type_article/jiazuoxinshang/8c5fbd1afc89f17b002f739a0412faf2.jpg)
![](https://system-daogeziyuan-1251174242.cos.ap-nanjing.myqcloud.com/type_article/jiazuoxinshang/4345a7de546fa89d4adaa8b88a97c83a.jpg)
- < li>
< /section>Sub 字體修改()
' 字體修改宏
Dim R_Character As Range
Dim FontSize(5)
< span class='code-snippet_outer'>' 字體大小在5個值之間進行波動,可以改寫
FontSize(1) = ' 12'
FontSize(2) = '12.5'
FontSize(3) = '11.5'
FontSize(4) = '12'
FontSize(5) = '12'
Dim FontName(3) code>
'字體名稱在三種字體之間進行波動,這裡只用一個
FontName(1) = 'Damienfont'
FontName(2) = 'Damienfont'
FontName(3) = 'Damienfont'
Dim ParagraphSpace(5) code>
'行間距在一定以下值中均等分佈,可改寫
ParagraphSpace (1) = '12'
ParagraphSpace(2) = '11'
ParagraphSpace(3) = '11'
ParagraphSpace(4) = '13' code>
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
Application.ScreenUpdating = True
For Each Cur_Paragraph In ActiveDocument.Paragraphs
Cur_Paragraph .LineSpacing = ParagraphSpace(Int(VBA.Rnd * 5) + 1)
Next
< span class='code-snippet_outer'> Application.ScreenUpdating = True
End Sub
鏈接:https://pan.baidu.com/s/16EPkabNougTC- owfUVgRTQ
提取碼:qbek
文章為用戶上傳,僅供非商業瀏覽。發布者:Lomu,轉轉請註明出處: https://www.daogebangong.com/zh-Hant/articles/detail/Word%20Tips%20%20Word%20Handwriting%20Fonts.html
评论列表(196条)
测试