word里面使用宏来模拟手写字体

• 前情提要：本次弄这个纯属学校布置作业太多，迫不得已。。。。。。
• 废话不多说直接进入正题
  Word实现手写字体首先就需要寻找相关手写字体文件：一般直接百度手写字体就可以找到，附上我常用的网站手写字体网站

1. 吧下载好的手写字体文件（后缀是.ttf的文件）放入Fonts文件夹里面 路径为C:\Windows\Fonts

2. 这样就可以在Word里面寻找到你的手写字体了
   

3. 但是单纯Ctrl+A，更改手写文字，每一行写的还是非常整齐，这就不像我这种歪扭的字了（当然你写字整齐当我没说），所以需要随机调整字体大小，字的上下间距，或者是几种相似字体之间的随机切换。
   上述功能使用宏代码来实现：(打开路径：视图->宏->查看宏->创建或者编辑宏，将下面代码完整复制进去即可)

Sub 宏1()
'
' 宏1 宏
'
'
    'Selection.WholeStory      '此处是全局修改，我改成下面的选中修改了，也就是对你选中的字体进行宏
    Selection.Find.Execute Replace:=wdReplaceAll, Wrap:=wdFindStop
    Dim R_Character As Range

    Dim FontSize(5)
    ' 字体大小在5个值之间进行波动，可以改写，字号表可以百度，比如三号对应16.
    FontSize(1) = "14"
    FontSize(2) = "15"
    FontSize(3) = "16"
    FontSize(4) = "15"
    FontSize(5) = "14"
    'Dim FontName(3)   '如果你有多个相似字体需要随机出现的话，取消FontName注释。
    '字体名称在三种字体之间进行波动，下列默认字体你不一定有，需要改写，但需要保证系统拥有下列字体
    'FontName(1) = "木与石的偎依"
    'FontName(2) = "季风吹向天空之外"
    'FontName(3) = "木与石的偎依"

    Selection.Font.Name = "平方洒脱体"   '此处是直接更改所选择字的字体。字体要求同上，如果有需要可更改
    
    
    '不懂原理的话，不建议修改下列代码

    For Each R_Character In Selection.Characters    '此处将ActiveDocument替换为Selection了，可选中随机修改字体大小，如果希望全局修改的话，只需要再替换回去

        VBA.Randomize

        'R_Character.Font.Name = FontName(Int(VBA.Rnd * 3) + 1) '此处调用FontName随机字体。

        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
    '注意：此处是随机行间距的代码，行间距的默认大小不一定合适请自行调整，如有需要，取消'注释
    'Dim ParagraphSpace(5)
    ''行间距 在一定以下值中均等分布，可改写
    'ParagraphSpace(1) = "12"
    'ParagraphSpace(2) = "13"
    'ParagraphSpace(3) = "20"
    'ParagraphSpace(4) = "7"
    'ParagraphSpace(5) = "12"
    ''注意：此处是调用随机行间距的代码，若使用调整间距的ParagraphSpace函数，需要取消下面注释。
    'Application.ScreenUpdating = True



    'For Each Cur_Paragraph In Selection.Paragraphs
    

        'Cur_Paragraph.LineSpacing = ParagraphSpace(Int(VBA.Rnd * 5) + 1)
        


   'Next
        'Application.ScreenUpdating = True
    
End Sub

上述的代码，没有注释的部分是我最常用的功能，比如就只有字体大小不同（这个是最接近我字体的方式），如果有需要可以取消其他注释使用其他功能比如随机调整行间距，随机字体等。

使用方法：1、上述代码可以对你选中的代码进行修改，选中的时候记得按住Ctrl+单击，可以连续选中
2、然后点视图->宏->查看宏->运行