如何让打印出来的字体看起来像自己手写的

又到了年底了，各种需要写的总结、报告、计划等等数不胜数，如果可以打印还方便一点，但有的单位一般要求手写，这样显得重视一点，毕竟现在大家都会百度搜索打印了，我们单位还是要求要手写的。

一般来说，手写一篇也是很容易的，为什么要研究这么一种办法呢？因为巧合，一个同事要补写一年的感悟、总结、报告，太多了，天天在办公室叫苦，于是我就百度了一下手写字体，但这种字体毕竟是别人的字体，就算打印出来看起来像是手写的，也不是自己的字体，找了半天，有人提到有个什么网页能生成自己的字体（不记得什么网站了，不重要），于是去试试，发现上传图片总是说出错。又接着研究，发现有人说方正手迹造字可以制作自己的字体，于是去下载了试试，发现真不错，基本上写100字就能生成和你写的差不多的字迹了，非常牛X！也很省事。最重要的是免费！！！虽然每人只有一次免费的制作机会，但有这一次也就够用了！下面就具体说一下使用方法：

1、首先去手机上的应用市场下载安装“手迹造字”APP，可以扫码下载安装：

2、打开APP注册登录账号，然后在造字页面创建你自己的字体。

选择手写方式说明：屏幕书写就是直接在屏幕上写字，因为是用手指写的，实际上跟笔写出来还是有很大不同的，除非你有手机屏幕能用的标准笔才建议使用这个，否则建议使用模板纸写，模板需要下载打印的，必须要有打印机；第三个任意字稿也是不建议使用的，要用纯白的纸，不界框，分散的写100+的字，然后拍照进行识别，实际我测试的效果不是很好，不过如果没有打印机的前提下，使用这个也是可以的，就是非常麻烦，提示好像是有3次免费识别机会的。

3、下载并打印、书写模板纸

提示：模板为全字版PDF文件，大小18M，官方下载速度大概50K/s，建议使用本地快速下载。

打印的时候，如果你想快速生成字体只需要书写100个字，打印第5-8页，纸张：A4，纸张方向：横向。

提示：第一次生成写的字越多，生成的效果越好。建议最少写到文字的第20页（也就是打印5-15页，300多个字），生成的效果基本上可以看出来是你自己的字体，生成字体大概需要50分钟。

有条件的写到文字的33页和英文、数字、标点页（也就是打印5-22，31-35页，500左右汉字+90左右英数标点），这样生成的效果比100字要好很多，生成字体大概需要70分钟。

如果有耐心的，建议写到文字的58页（也就是打印5-35页，900+字数），这样生成的效果更好，生成字体大概在90分钟左右。

另：横向打印，每个字需要写大一点，如果你写字不擅长放大的话，也可以竖向打印，这样打印出来下半部分是空白的，要写的字的大小也就减小了一半（小提示：使用WPS打印时，纸张方向可以选择竖向，打印方式选择每张页数：2，1列*2行，可以在一页纸上打印2页，这样节省了一半纸张，打印出来后裁成两半，写着更方便）

写的时候请注意，实线方框内部有个不明显的虚框，字体大小不要写到虚框外，如果你想要生成的字体非常整齐好看，建议书写的时候都一样大。如果你想要打印的效果更接近手写的效果，书写的时候一定按自己平时写字的习惯来书写（小技巧：写的字比虚框更小一点，在虚框内略微上下浮动，打印的时候也会显示不像一条直线一样那么整齐，更像手写的）

另外提醒：如果某个字写错了，不要慌，也不要在字上改，不然字的线条太粗会非常醒目的！直接划掉，新找一张白纸或者在旁边的中间远离边框的空白处再写一个，修改的方法往下看第4条。

下载地址：官方下载          本地快速下载：https://nylmj.lanzout.com/igvhHykh2ud 密码:1122

4、上传模板纸，生成字体

书写完成，打开手迹造字APP，点击刚创建的字体，跳到上传字体界面，点下面中间的扫描图标扫描上传书写好的模板，手机离纸张大概15厘米左右的高度，将三个框对准模板上的三个定位框，对准后会自动扫描并上传，如果出现无法正常识别或上传的提示，可以多扫几次，还不行的话重新打印书写再上传。（请忽略我那丑陋的字体，正是因为字写得太丑陋，实在找不到类似的字体，才只能自己造，哈哈）

如果此页有个别字写错了，返回字体识别页，直接点击错误的那个字，会提示拍照单独的字，拍下旁边或者新的空白纸上写的正确的字，两指放大到合适的大小，点击确认使用即可修改。

所有写好的模板上传完毕后，返回字体识别页面，点击左下角的目录，可以查看有没有上传成功。点击右下角的生成字体，可以生成字体，会提示需要多久能生成成功。

5、继续书写和下载字体

手迹自动生成的字体一共是6886个字，包含汉字、字母、数字、标点。第一次生成字体时，系统会自动按照你的笔迹生成其余没有书写的字，你还可以继续书写模板并上传更新字体文件（请注意：更新字体需要使用字体修改次数的，字体修改次数通过点击APP右上角进入我的，每日签到可以获得一次修改权限。同时一种字体最多可以修改10次）

点击字体名称进入字体详情页，再点击右上角的...打开菜单，点击导出字体，选择要发送的方式（推荐发送到微信）进行导出字体，使用发送到微信，可以发送给文件传输助手，电脑上登陆后，下载字体，双击安装字体，就可以在WORD中使用了！

6、制作WORD模板，使用自己的字体打印！

上面说了那么多，其实，这一步才是最重要的，做出来字体，打印出来能用才是我们的最终目的！如果单位没有要求，直接使用A4纸进行打印那当然是非常省事了，会用word的都能自己搞定，如果有的单位要求使用稿纸，或者单位本身就有自己稿纸，怎么才能打印到相对应的稿纸上，请仔细往下看：

[CommShow]

首先，我们要确认打印的稿纸的大小，世面上有卖和A4纸一样的稿纸，如果你买的或者单位使用的是这种稿纸的话，那就直接用A4纸的设置，否则用尺子量出来以下数据并记录（单位：厘米）：纸宽的高，第一行横线离纸最上边的高度上边距，最后一行横线离纸最下边的高度下边距，横线左右离纸边的距离左、右边距，一页稿纸的行数。

以word2010以上版本设置方法为例子：点击布局项，在页面设置项的右下角，点小箭头打开页面设置：在页边距中分别输入刚才测量的值（小技巧：上边距+0.5厘米，下边距-0.5厘米，这样打印出来的字基本上靠近横线的位置）；再点【纸张】在宽度和高度中填写刚测量的纸张的高度和宽度；再点【文档网格】，选择只指定行网格，在行数中输入稿纸的行数，确定即可。

WPS的设置方法和WORD差不多，不多做叙述了。

上边的图中忘记加了，使用以下方法可以在页面上显示行线，更方便修改，在文档网格中点最下面的【绘图网格】，勾选【在屏幕上显示网格线】，垂直间距和水平间距都是1，确定即可：

设置好了纸张后，就可以输入你要打印的内容了，然后把字体调整为你自己的字体，字号试着调整为合适的字号，就可以了。以下为使用自己的字体后的效果(同样，请忽略掉我那丑陋的字体带来的不适感！)

提示：可以看到“了”因为写的时候好像快写成别的字了才发现是了，补了一笔，就有问题，看着非常突兀，我写的时候用的是粗钢笔尖，因此字体显得有些粗。下图为100字的生成效果。

下图为写了1700+字，但是由于前一半用的是粗笔(大于0.7的笔尖)，后一半用的正常的(0.5的笔尖)，因此字看起来就像是两种了。因此建议大家在写的时候尽量用自己最常用的笔迹字体、同样粗细的笔进行书写。

如果你的字非常好，调整完后觉得太整齐了，还可以使用以下宏命令自动处理一下，宏方法就不多说了。点击查看：WORD如何添加宏

Sub 字体修改()

'

' 字体修改 宏

'

    Dim R_Character As Range

    Dim FontSize(5)

    ' 字体大小在5个值之间进行波动，可以改写

    FontSize(1) = "21.5"

    FontSize(2) = "22"

    FontSize(3) = "22.5"

    FontSize(4) = "22"

    FontSize(5) = "21.5"

    Dim FontName(3)

    '字体名称在三种字体之间进行波动，可改写，但需要保证系统拥有下列字体，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

[/CommShow]