⽤word模仿⼿写字体
今天来讨论⼀下如何⽤word做⼿写字体
⾸先我们来看⼀下效果图：
咳咳，是不是很有feel！
教程来了！
1. ⾸先你需要下载⼀个⼿写字体：
百度⼀下你就拥有，这个我就不推荐什么什么字体，什么什么⽹站了，相信⼤家都可以到⼀款适合⾃⼰的。
2. 将⼿写字体解压到⽂件夹下
3. 打开控制⾯板，搜索字体，然后进⼊⽂件夹：
4. 然后将之前⽂件夹下的ttf⽂件拖拽进去就可以了。
5. 接下来打开word！
手写字体6. 打开⽂件->选项->信任中⼼->信任中⼼设置中选择该选项：
7. 打开视图->宏->新建“⼿写字体”
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
Application.ScreenUpdating = True
For Each Cur_Paragraph In ActiveDocument.Paragraphs
Cur_Paragraph.LineSpacing = ParagraphSpace(Int(VBA.Rnd * 5) + 1) Next
Application.ScreenUpdating = True
End Sub
随后保存退出即可
实测
在宏窗⼝直接运⾏该宏代码