如何用word制作逼真的手写字体？

效果

代码

Sub rand()
 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 = "”" Or R_Character = "！" Or R_Character = "？" Or R_Character = "、" Or R_Character = "：" Then
         R_Character.Font.Name = "世界那么大"
         ElseIf R_Character = "分" Or R_Character = "统" Then
            R_Character.Font.Name = "伯乐俏皮体"
         ElseIf Asc(R_Character) >= 48 And Asc(R_Character) <&