如何用Word打印出手写的效果，以假乱真？

1、以Word2010为例，先修改一下宏的相关设置

2、创建产生手写效果的“宏”，宏代码如下：

Sub RandVBA()

    '四号与三号间之间可以取的值：14 14.5 15 15.5 16

    Dim R_Character As Range

    Dim myFontSize As Single

Application.ScreenUpdating = False

For Each R_Character In ActiveDocument.Characters

VBA.Randomize

        myFontSize = Choose(Int(VBA.Rnd * 5) + 1, "14", "14.5", "15", "15.5", "16")

        R_Character.Font.Size = myFontSize

        '位置，同理自己改

        'R_Character.Font.Position = Int(VBA.Rnd * 5) + 1

        '字间距， 同理自己改

        'R_Character.Font.Spacing = Int(VBA.Rnd * 5) + 1

    Next

    Application.ScreenUpdating = True

End Sub

操作步骤如图：

注意最后要保存“宏”

3、接下来，就可以利用这个宏，产生手写的效果了，当然，首先要录入你的文章内容，操作步骤如图：

4、如果，觉得还不够潦草，可以修改宏里面的参数，比如字体的大小范围和位置高低范围