word手写字体以假乱真,如何将文字转换成手写体
在使用Word的过程中,有时候需要用Word来制作出类似于真人手写的效果,具体该如何操作呢?下面进行具体介绍。
材料/工具
Microsoft Word 2010
手写字体
方法
1、打开【Microsoft Word 2010】。
2、点击【菜单栏】中【文件】下拉列表的【选项】。
3、点击【信任中心】。
4、点击【信任中心设置】。
5、勾选【宏设置】中【启用所有宏】,点击下方【确定】。
6、在【视图】选项卡中找到【宏】,点击【查看宏】。
7、宏代码如下:
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
代码解释如图。
8、在【查看宏】中的【宏名】输入【RandVBA】,点击【创建】。
9、粘贴上刚刚的宏代码,点击左上角【保存】。
10、打开需要修改的文档。
11、字体选择【手写字体】。
12、再次点击【查看宏】。
13、选择【RandVBA】,点击【运行】。
14、成功利用这个宏,产生手写的效果了;
如果觉得字还不够潦草,可以修改宏里面的参数,比如字体的【大小范围】和【位置高低范围】。