导读在使用Word的过程中,有时候需要用Word来制作出类似于真人手写的效果,具体该如何操作呢?下面进行具体介绍。 材料/工具 Microsoft Word 2010 手写字体 方法 1、打开【Micro

在使用Word的过程中,有时候需要用Word来制作出类似于真人手写的效果,具体该如何操作呢?下面进行具体介绍。

word手写字体以假乱真,如何将文字转换成手写体

材料/工具

Microsoft Word 2010

手写字体

方法

1、打开【Microsoft Word 2010】。

word手写字体以假乱真,如何将文字转换成手写体

2、点击【菜单栏】中【文件】下拉列表的【选项】。

word手写字体以假乱真,如何将文字转换成手写体

3、点击【信任中心】。

word手写字体以假乱真,如何将文字转换成手写体

4、点击【信任中心设置】。

word手写字体以假乱真,如何将文字转换成手写体

5、勾选【宏设置】中【启用所有宏】,点击下方【确定】。

word手写字体以假乱真,如何将文字转换成手写体

6、在【视图】选项卡中找到【宏】,点击【查看宏】。

word手写字体以假乱真,如何将文字转换成手写体

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

代码解释如图。

word手写字体以假乱真,如何将文字转换成手写体

8、在【查看宏】中的【宏名】输入【RandVBA】,点击【创建】。

word手写字体以假乱真,如何将文字转换成手写体

9、粘贴上刚刚的宏代码,点击左上角【保存】。

word手写字体以假乱真,如何将文字转换成手写体

10、打开需要修改的文档。

word手写字体以假乱真,如何将文字转换成手写体

11、字体选择【手写字体】。

word手写字体以假乱真,如何将文字转换成手写体

12、再次点击【查看宏】。

word手写字体以假乱真,如何将文字转换成手写体

13、选择【RandVBA】,点击【运行】。

word手写字体以假乱真,如何将文字转换成手写体

14、成功利用这个宏,产生手写的效果了;

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

word手写字体以假乱真,如何将文字转换成手写体