该死的手抄滚开（该死的手抄滚开表情包）

碰到形式主义惯犯或硬拔存在感的，顶不住要手抄怎么办？电脑时代这一切都不是问题，除了纸张背面少点中性笔划下的凸痕。

网络上有大量的手写体，比较大众化（就是丑）的有李国夫手写体、陈静的字体、萌妹子等，我们也可以在方正手迹造字app中生成自己的字体，随便用用的话个把小时写个几百字就成。哟，就是下面这些烂字，好处就是平易近人哟！

但这些字体安装应用后，还是有些美中不足，就是字距行距标点符号都一样，重复的字也是一模一样的，碰上较真的还是容易看出偷机的端倪。那么，我们在Word宏编程中设置每个字在几种手写体中随机应用字体，字号、字距、行距、高低等都在一定幅度内随机变化，生成的成果就接近天衣无缝了。如下，应该不好意思再说是电脑生成的了。

Word中，文件>选项>信任中心>信任中心设置>宏设置，选择“启用所有宏设置”，然后，视图>宏，输入名字“字体修改”，在跳出来的窗口中，粘贴网上大神鼓捣的代码，用时运行即可。

我用Word2003，将此宏直接放到了工具栏，要用时点一下就可以了。工具>宏>录制新宏，命名，指定到工具栏。Alt+F8，打开宏，找到刚才录制的宏，编辑，粘贴代码。然后在工具栏中将此宏命名为“手”（菜单栏>右键>自定义）。

把这个应用到什么讲义、表格、A5稿纸，再就简单了。

偷机代码如下【代码中字体名称应与电脑中安装的一致】：

Sub 字体修改()

'

' 字体修改 宏

'

Dim R_Character As Range

Dim FontSize(5)

' 字体大小在5个值之间进行波动，可以改写

FontSize(1) = "21"

FontSize(2) = "21.5"

FontSize(3) = "22"

FontSize(4) = "22.5"

FontSize(5) = "23"

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