如何使打印出手写字体

最近，小编在知乎里面看到一位大神分享了用word打印的字体像手写体，亲测好用，但由于其叙述复杂，在此对其分享内容进行整理。
（1）首先，去网站下载一款适合的手写字体，小编发现大部分网站都是收费的，在此小编推荐一个免费下载字体的网站，里面的字体比较难看，毕竟是免费的嘛。www.mobanwang.com
（2）打开word，点击“文件”-“选项”-“信任中心”-“信任中心设置”-“启用宏”

在菜单栏中选择“视图”-“宏”-“新建”，然后复制本博客后面的代码，保存之后，点击运行，即可使所有的字体变得错综有致，更像手写。

Sub 字体修改()
’
’ 字体修改 宏
’
Dim R_Character As Range

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) = "字体名称1"
FontName(2) = "字体名称2"
FontName(3) = "字体名称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
最后，非常感谢知乎里大神的分享。
https://www.zhihu.com/question/20308770?sort=created