该死的手抄滚开

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

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

各种手写体

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

手写体混合变形

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

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

2003中放到工具栏

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

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

Sub字体修改()

'

'字体修改宏

'

DimR_CharacterAsRange

DimFontSize(5)

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

FontSize(1)="21"

FontSize(2)="21.5"

FontSize(3)="22"

FontSize(4)="22.5"

FontSize(5)="23"

DimFontName(3)

'字体名称在三种字体之间进行波动，可改写，但需要保证系统拥有下列字体

FontName(1)="陈静的字完整版"

FontName(2)="萌妹子体"

FontName(3)="李国夫手写体"

DimParagraphSpace(5)

'行间距在一定以下值中均等分布，可改写

ParagraphSpace(1)="12"

ParagraphSpace(2)="13"

ParagraphSpace(3)="20"

ParagraphSpace(4)="7"

ParagraphSpace(5)="12"

'不懂原理的话，不建议修改下列代码

ForEachR_

R_=FontName(Int(*3)+1)

R_=FontSize(Int(*5)+1)

R_=Int(*3)+1

R_=0

Next

=True

ForEachCur_

Cur_=ParagraphSpace(Int(*5)+1)

Next

=True

Sub