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

liuian 2025-06-13 14:49 73 浏览

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

网络上有大量的手写体，比较大众化（就是丑）的有李国夫手写体、陈静的字体、萌妹子等，我们也可以在方正手迹造字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

Application.ScreenUpdating = True

For Each Cur_Paragraph In ActiveDocument.Paragraphs

Cur_Paragraph.LineSpacing = ParagraphSpace(Int(VBA.Rnd * 5) + 1)

Application.ScreenUpdating = True

End Sub

vba int

上一篇：PMC用到的所有函数，大咖总结，实用干货，PMC必备神器!
下一篇：用Excel编写俄罗斯方块（vb做俄罗斯方块）

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

相关推荐

飞牛OS入门安装遇到问题，如何解决?

如何在 iPhone 和 Android 上恢复已删除的抖音消息

Boost高性能并发无锁队列指南:boost::lockfree::queue

大模型手册: 保姆级用CherryStudio知识库

用什么工具在Win中查看8G大的log文件?

如何在 Windows 10 或 11 上通过命令行安装 Node.js 和 NPM

威联通NAS安装阿里云盘WebDAV服务并添加到Infuse

Trae IDE 如何与 GitHub 无缝对接?

idea插件之maven search(工欲善其事，必先利其器)

如何修改图片拍摄日期?快速修改图片拍摄日期的6种方法