爱魔域

首先，防官魔域找到【开发工具】选项卡下【代码】栏的【宏】。

2

点击【宏】后弹出“宏”编辑对话框。

在“宏”对话框中，设置宏名为“字体修改”（可自由设置任意名字），然后点击【创建】。

3

点击【创建】后弹出代码输入窗口。在右边代码框中输入以下代码：

Sub 字体修改()

'

' 字体修改 宏

'

Dim R_Character As Range

Dim FontSize(5)

' 字体大小在5个值之间进行波动，可以改写

FontSize(1) = "21"

FontSize(2) = "21.5"

FontSize(3) = "22"

FontSize(4) = "22.5"

FontSize(5) = "23"

'括号中的2指的是你要控制的字体波动的种数，这里的2改了下面有处也需改

Dim FontName(2)

'字体名称这几种字体之间波动，注意系统中要有这些字体

FontName(1) = "千图纤墨体"

FontName(2) = "华光硬笔简书体"

Dim ParagraphSpace(5)

'行间距 在一定以下值中均等分布，可改写

ParagraphSpace(1) = "12"

ParagraphSpace(2) = "13"

ParagraphSpace(3) = "20"

ParagraphSpace(4) = "7"

ParagraphSpace(5) = "12"

For Each R_Character In ActiveDocument.Characters

VBA.Randomize

'下面这一行的2页代表字体的种类数，如果上面的更改了，这里也要改

R_Character.Font.Name = FontName(Int(VBA.Rnd * 2) + 1)

R_Character.Font.Size = FontSize(Int(VBA.Rnd * 5) + 1)

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

R_Character.Font.Spacing = 0

Next

Application.ScreenUpdating = True

For Each Cur_Paragraph In ActiveDocument.Paragraphs

Cur_Paragraph.LineSpacing = ParagraphSpace(Int(VBA.Rnd * 5) + 1)

Next

Application.ScreenUpdating = True

End Sub

4

代码输入完成后，关闭宏代码窗口。

在文档中选中要编辑的文字。然后【开发工具】选项卡下【代码】栏的【宏】，弹出“宏”对话框。

在“宏”对话框中，在左边宏名下框内选择“字体修改”，然后在右列选择【运行】。这时文档文字变成大小一样的高仿手写体了。