word手写字体以假乱真_Word转手写稿

又到了每年的期末考试阶段了，很多水课都要求以论文形式作为期末作业。论文也就算了，过分的是不仅要电子稿还要手写稿，我的内心真的是

没办法，谁让咱不想挂科呢，今天就来分享一个足以以假乱真的打印版手写稿。(专业课慎用，不排除老师真的发现了导致最终挂科情况。)先来看看效果

乍一看是不是真的以为是手写稿，更别说如果把他打印在作业纸上，不仔细看真的很难发现。具体实现步骤如下。

我是一条分割线

首先在网上搜索“liguofu”、“陈静的字完整版”、“萌妹子体”三种字体，百度一搜就有，下载很方便，实在不行上知乎，有下载字体全套教程。

然后打开Word，在word上处理好要转换的论文(论文自己解决，之前竟然还有人问我论文怎么不一起解决。我？？？？？？)

然后视图——宏——查看宏

随便输入宏名称后，点击创建

出现的新的窗口中，将原本所有代码删除，复制文末代码到其中

然后点击左上角保存，并关闭窗口

返回Word中点击宏——查看宏——运行

随后效果如下

最后将纸张大小调整至A5，打印在作业本上即可，需要扫描件时可以直接导出PDF再用手机扫描，看着虽然多此一举但是由于画质等转变可以更好的以假乱真。代码如下

Sub 字体修改()'' 字体修改 宏'    Dim R_Character As Range    Dim FontSize(5)    ' 字体大小在5个值之间进行波动，可以改写    FontSize(1) = "13"    FontSize(2) = "13.5"    FontSize(3) = "12"    FontSize(4) = "12.5"    FontSize(5) = "12"    Dim FontName(3)    '字体名称在三种字体之间进行波动，可改写，但需要保证系统拥有下列字体    FontName(1) = "liguofu"    FontName(2) = "陈静的字完整版"    FontName(3) = "萌妹子体"    Dim ParagraphSpace(5)    '行间距 在一定以下值中均等分布，可改写    ParagraphSpace(1) = "11"    ParagraphSpace(2) = "12"    ParagraphSpace(3) = "10"    ParagraphSpace(4) = "10"    ParagraphSpace(5) = "12"    Dim FontPosition    FontPosition = 2    '不懂原理的话，不建议修改下列代码    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 * FontPosition) + 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 = TrueEnd Sub

其实整个代码所实现的东西都很简单，只是将三种字体顺序的应用在文章中，并且同时随机改变字体大小和行距，模拟人写字时不能过做到每个字写得都一样的特点。理论上来说字体越多越好，但是没有必要，而且多了也有被发现的风险，三种手写字体足以。 最后 免责声明 使用此方法上交的论文一旦被老师发现导致扣分的，本公众号不承担一切责任！！！

---

文案 | 大头

 排版 | 大头 

写留言