用打印机模拟手写字体

众所周知在许多不必要的场合中我们被要求使用手写完成某些任务。比如XX论文5000字,比如每周一次的XX等等。在排除掉写字难看的原因下,我对这类动不动就抄写XX字的任务深恶痛绝,所以就研究了下面的办法,希望能帮助到大家。

当然,要明确的是,这个方法只能应急和应对无聊任务。有利有弊,自由取舍。

首先要准备这么一些东西:两个或者两个以上不同但又相近的手写体字体。我这里用到的是  “书体坊硬笔行书3500” 和“徐静蕾钢笔字体”。 字体2-3个合适,越相近越好。当然,要安装好字体。

然后自然是要有文章喽,我用的是这个。

其实直接用上面提到的徐静蕾 钢笔体打印 也可以,不仔细看看不出问题来,不过抱着GEEK的目的,我们还是动一下小细节–我们要结合两种字体:)      

需要用到的是word的 宏,使用宏自动修改每一个字体,包括修改字体、放大或缩小0.5号、上浮或下沉0.3行。

宏的内容

    Dim R_Character As Range
    Application.ScreenUpdating = False
    For Each R_Character In ActiveDocument.Characters
        VBA.Randomize
        If R_Character <> "。" Or R_Character <> "’" Or R_Character <> "‘" Or R_Character <> "“" Or R_Character <> "”" Or R_Character <> "!" Or R_Character <> "?" Or R_Character <> "、" Then
         R_Character.Font.Name = Choose(Int(VBA.Rnd * 2) + 1, "方正静蕾简体", "书体坊硬笔行书3500")
         Else
         R_Character.Font.Name = "方正静蕾简体"
         End If
        R_Character.Font.Size = Choose(Int(VBA.Rnd * 7) + 1, "18", "17.5", "17", "19.5", "18.5", "19", "20")
        R_Character.Font.Position = Choose(Int(VBA.Rnd * 5) + 1, 1.5, 2.5, 2, 0, 1)
        R_Character.Font.Spacing = Choose(Int(VBA.Rnd * 5) + 1, -1.8, -1.5, -1.6, -1.7, -1.4)
    Next
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "“"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "”"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Application.ScreenUpdating = True

  复制上面的内容,在word里(我以2010为例 )找到视图-宏  

点击查看宏,出现下面的对话框,在宏名一栏内输入一个名称,点击新建  

黏贴上面的内容到{}之间保存,再次打开 宏,点击运行。  

文章长的话可能要耐心等待一会,初步效果如下。

很烂是吧?要的就是很烂的效果,打印的整整齐齐的话反而不合适

下一步是检查一下内容,有些字体无法显示所有的汉字,比如下面的“掬”,替换掉。

还要注意标点符号,有些汉子的标点和宋体一样,这一下就露馅了…              

下面是根据你要打印的纸(实验报告,信纸,稿纸,笔记本纸等)调节页面设置

使用带横线的纸为好,格子纸的话更好,不过需要多次微调才能达到很好的效果。  

这里有个小技巧,word设置为100%大小把稿纸贴在屏幕上叠起来调整。      

首先不要用回车调节,那样怎么也对不齐,调整页边距,可以用尺子量一下稿纸的尺寸。  

调整纸张,自定义大小,量好尺寸。  

调节页眉页脚

调节每张纸的行数,注意只指定行。

打印出来对照微调,直到合适为止。

其他的字体也可 搭配出很好的效果,比如  书体坊安景臣钢笔行书等

可以下载一个手写字体包


Enjoy~

本文遵守署名-非营利性使用-相同方式共享协议,转载请保留本段:冰丝带雨 » 用打印机模拟手写字体

赞 (3)

评论 8

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址
  1. LZ末仁好东西,不过真的意义不大。。。要手写的那些个东东都要用专门的稿纸,,,回复
    • 牟 名东好吧,我坦白,我的许多大学生综合素质评测表啊、思想汇报啊、实验报告啊...都是这么偷懒的回复
      • LZ末仁去举报!~ 最近刚抄完4篇思想汇报和一篇转正申请,,,
  2. Leon看起来还是像打印的啊...每次写的字都是不完全一样但是相似的。比如说某些重复出现的字,每个都完全一样(用到相同字体)或者差异太大(用到不同字体)就露馅了...手写最重要的是有墨迹,笔墨的味道跟打印机的墨盒味道是不大一样的...回复
    • 牟 名东肯定无法完全模拟,不过应付一些无聊的强制工作足以啦。 可能截图 上看没那么明显,打印出来的话还是可以一看的。 至于味道么~一般不写情书不会去闻啦,不放心的话用彩色打印机模拟蓝色签字笔的颜色,几乎可以乱真了。 这招上来就给人一个第一印象-这字的这么烂... 不仔细看很容易中招的~ 对了~欢迎来到小站回复
  3. Raware年底了,来顶一下你的流水账。。。 要说原创字体制作是件非常麻烦的事,不过看了最后的效果,顿时对我的书写又有信心了~ PS:见过用得最多的是李放鸣的手写体,辨识度还是很高的,因为当初临摹过他的硬笔行楷~回复
    • 牟 名东原创字体要按顺序写完5000+字,然后批量扣下来,批量去背景然后矢量化。淘宝上一套字体要价3000...贵的要死。 话说还有一周就考试了, 你就别上网了。 :shock:回复
  4. 三五笑话新年马上到了,提前祝新年快乐,博客越办越好!回复