1、以Word2010为例，先修改一下宏的相关设置
2、创建产生手写效果的“宏”，宏代码如下：Sub RandVBA() '四号与三摒蛲照燔号间之间可以取的值：14 14.5 15 15.5 16 Dim R_Charact髫潋啜缅er 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 = TrueEnd Sub操作步骤如图：注意最后要保存“宏”
3、接下来，就可以利用这个宏，产生手写的效果了，当然，首先要录入你的文章内容，操作步骤如图：
4、如果，觉得还不够潦草，可以修改宏里面的参数，比如字体的大小范围和位置高低范围
