该死的手抄滚开

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

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

各种手写体

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

手写体混合变形

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

2003中放到工具栏

把这个应用到什么讲义、表格、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