用打印机模拟手写字体

众所周知在许多不必要的场合中我们被要求使用手写完成某些任务。比如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)