若何用 Word 打出很是类似于稿纸手写以假乱真的功效？

婚庆中国掌

来历：知乎



黉舍跟风让手抄3w字的19大报告，有没有方式可以让word文档打印出稿纸手写的结果？




原文地址：https://www.zhihu.com/question/68073747
免责声明：
1、文章部分图片源于收集，均为表示图；
2、一切文章、图片、音频视频文件等材料版权归版权一切人一切；
3、因非原创文章及图片等内容没法和版权者联系，如原作者或编辑以为作品不宜上网供阅读，或不应无偿利用，请实时告诉我们，以敏捷采纳适当办法，避免给双方形成不需要的经济损失；
4、本页面内容由爬虫法式自动收集于互联网，如无意中加害了媒体或小我的常识产权，请电邮【E-Mail:cb@yoyodoc.com】告之，我们将于24小时内删除。

淑侠

Sub 字体点窜()
' 字体点窜 宏

Dim R_Character As Range

' 字体巨细在以下值之间停止波动，改成需要的巨细，反复出现的次数越多，响应出现的几率越大，最小精度0.5
Dim FontSize() As String
FontSize = Split("18.5,18.5,18.5,19,18", ",")

'字体称号在以下字体之间停止波动，改成需要的字体，但需要保证系统具有以下字体，可以在word检察字体名字
Dim FontName() As String
FontName = Split("【嵐】芊柔体,萌妹子体,张维镜手写楷书,【嵐】芊柔体", ",")
' 保举字体
' "萌妹子体,张维镜手写楷书,萌妹子体,汉仪晨妹子W,小豆岛风景诗简繁,小豆岛秋天和简繁"   

'a数值越大，行距越大，波动范围a+x, x∈[-1~1]
a = 0
'b数值越大，字距越大，波动范围b+x, x∈[-1~1]
b = 0
'行间距 在一定以下值中均等散布，改成需要的巨细，范围c+x, x∈[0~5]
c = 25

For Each R_Character In ActiveDocument.Characters

VBA.Randomize
' 数组长度
FontNameLength = UBound(FontName) - LBound(FontName)
FontSizeLength = UBound(FontSize) - LBound(FontSize)

' 字号巨细
R_Character.Font.Size = FontSize(Int(VBA.Rnd * FontSizeLength) + 1)
' 字的高低偏移
R_Character.Font.Position = Choose(Int(VBA.Rnd * 5) + 1, -1, -0.5, 0, 0.5, 1) + a
' 字的左右间距
R_Character.Font.Spacing = Choose(Int(VBA.Rnd * 5) + 1, -1, -0.5, 0, 0.5, 1) + b

If R_Character = "。" Or R_Character = "，" Or R_Character = "," Or R_Character = "；" Or 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 = "张维镜手写楷书"
' 标点随机用FontName中字体
'R_Character.Font.Name = FontName(Int(VBA.Rnd * FontSizeLength))
ElseIf Asc(R_Character) >= 48 And Asc(R_Character) <= 57 Then
' 数字
R_Character.Font.Name = "【嵐】芊柔体"
ElseIf Asc(R_Character) >= 97 And Asc(R_Character) <= 122 Or Asc(R_Character) >= 65 And Asc(R_Character) <= 90 Or R_Character = "." Or R_Character = "（" Or R_Character = "）" Or R_Character = "(" Or R_Character = ")" Then
' 巨细写字母
R_Character.Font.Name = "【嵐】芊柔体"
End If

Next

For Each Cur_Paragraph In ActiveDocument.Paragraphs
' 设备行间距范例为牢固值
Cur_Paragraph.LineSpacingRule = wdLineSpaceExactly
' 设备行间距的值
Cur_Paragraph.LineSpacing = Int(VBA.Rnd * 5) + 1 + c
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

End Subp.s. 字体下载好后，将ttf文件复制到C:\Windows\Fonts即可完成安装。

绚丽源自寂寞悍

1款手写模拟器，只需导入内容，即可自动天外行写字体。 那时还是1.0版，比来这个软件已经更新到了3.0版本，功用加倍牛B，今后写检讨再也不愁了手写模拟器3.0『电脑』 软件为单文件版，无需安装，双击exe法式即可利用。 将word的内容复制到方框里，然后鄙人面设备字体、布景纸、字间距行间距、字体巨细等参数。

笑看人生458

http://www.zhihu.com/question/20308770
传送门拿好

茹蕙zx

若何让打印出来的字体看起来像手写的？配合上
若何让打印出来的字体看起来像手写的？抄写这类反人类的工作必定早有人想到应对计划了

123457191

word怎样弄我不晓得，不外直觉告诉我这类工作没法子一定要做的话可以上淘宝处理。。