学趣 | 如何让打印出来的字体看起来像手写的?(图1)

谁说课本里的才叫知识?

学趣 | 如何让打印出来的字体看起来像手写的?(图2)

预计阅读时间:5分钟

打印的“手写笔记”???

第一步,一个粗浅的尝试

想要打印手写字体,
遇到的第一个问题是,
平时我们看到的打印字体,
如宋体,楷体,都太规整了。

我们可以从网上找到的手写字体去进行打印

百度搜索”字体下载”,我们可以发现很多可以下载字体的网站。

选择自己喜欢的字体下载即可。

效果如下

学趣 | 如何让打印出来的字体看起来像手写的?(图3)

可是,新的问题又来了

同一个字,是几乎完全一样的

上文中多次出现的”党”,每次出现的地方样子完全一样,大小一样,形状一样,
这在平时是几乎不可能出现的。

其次,同一行文字过于下边缘过于平滑。

学趣 | 如何让打印出来的字体看起来像手写的?(图4)

简直和女孩的刘海一样齐

学趣 | 如何让打印出来的字体看起来像手写的?(图5)

这个问题自然是可以解决的,
因为word有一套内置的编程语言,
是可以对整篇文章进行编程的。

为了使用这一功能,
你需要在Word中,依次点击”文件”->”选项”->”信任中心”->”信任中心设置”->”宏设置”,然后在跳出的界面中选择”启用所有宏设置”即可。

学趣 | 如何让打印出来的字体看起来像手写的?(图6)

然后在,依次点击”视图”->”宏”,
输入名字,”字体修改”,在跳出来的窗口中,
将我给的代码复制进去即可。

学趣 | 如何让打印出来的字体看起来像手写的?(图7)

运行代码时,点击运行即可。

操作前

学趣 | 如何让打印出来的字体看起来像手写的?(图8)

操作后

学趣 | 如何让打印出来的字体看起来像手写的?(图9)

接下来就是打印的步骤了

对于本子的选择,建议采用A5活页夹,这会给工作带来方便。

具体操作是


1.首先设置word的稿纸设置,
在布局里设置纸张大小是A4,方向是横向,分栏是分两栏。

学趣 | 如何让打印出来的字体看起来像手写的?(图10)

2.然后将两张A5活页贴在A4纸上

学趣 | 如何让打印出来的字体看起来像手写的?(图11)

3.打印,打印之后将两张A5纸背面贴成一张纸

学趣 | 如何让打印出来的字体看起来像手写的?(图12)

这样一来,就大功告成啦。

附录

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

其中改写字体大小的代码:Dim FontSize(5)中,括号里面的数字和下面双引号中间的数值都是可以根据实际需求有所改变,改写字体的代码Dim FontName(3)中,括号里面的数字和下面双引号中间的字体名字也需根据系统是否拥有和你写的字体来进行改写。

 同理,行间距也需要更改,只要第一行代码中括号数字和其下面所附带的代码数量一致就好了


这个代码也只是一个模板,里面的内容需要各位根据实际情况更改,祝大家都可以不再为检讨书和一系列手写稿所苦恼 

作者:UncleSugar
链接:https://www.zhihu.com/question/20308770/answer/241699602?utm_source=qq&utm_medium=social

来源:知乎
著作权归作者所有。

学趣 | 如何让打印出来的字体看起来像手写的?(图13)

不满意?没兴趣?

把你期待的更多业务告诉我们,我们帮你实现