本文共 1164 字，大约阅读时间需要 3 分钟。

今天来讨论一下如何用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 = 0NextApplication.ScreenUpdating = TrueFor Each Cur_Paragraph In ActiveDocument.Paragraphs    Cur_Paragraph.LineSpacing = ParagraphSpace(Int(VBA.Rnd * 5) + 1)Next    Application.ScreenUpdating = TrueEnd Sub

随后保存退出即可

实测

在宏窗口直接运行该宏代码