自动完成Word 日常任务

核心提示： 11.7.4 插入文字并应用字符和段落格式下面的代码在当前文档的顶部添加单词【标题】，第一段居中对齐，自动完成Word 日常任务(2)，在该段落之后添加了半英寸的间距，【标题】设为 24 磅的【宋体】字体，用户最好是利用录制宏的办法把代码转换为VBA 代码后再修改，这样效率高，Set oR

11.7.4 插入文字并应用字符和段落格式

下面的代码在当前文档的顶部添加单词【标题】。第一段居中对齐，在该段落之后添加了半英寸的间距。【标题】设为 24 磅的【宋体】字体。

Set oRange = ActiveDocument.Range（Start:=0, End:=0）
With oRange
.InsertAfter Text:="标题"
.InsertParagraphAfter
.Font.Name = "宋体"
.Font.Size = 24
End With
With ActiveDocument.Paragraphs（1）
.Alignment = wdAlignParagraphCenter
.SpaceAfter = InchesToPoints（.5）
End With

下面的代码切换所选内容第一段的段前间距。该宏检索当前的段前间距值，如果该值是 12 磅，则删除段前间距（将SpaceBefore 属性设置为0）。如果段前间距不是 12，则将 SpaceBefore 属性设置为 12 磅。

Set oParagraph = Selection.Paragraphs（1）
If oParagraph.SpaceBefore = 12 Then
oParagraph.SpaceBefore = 0
Else
oParagraph.SpaceBefore = 12
End If

下面的代码切换选定文字的加粗格式。

Selection.Font.Bold = wdToggle

下面的代码将左边距增加 0.5 英寸。PageSetup 对象包含文档 的所有页面设置属性（左边距、下边距、纸张大小，等等）。LeftMargin 属性用来返回并设置左边距。

iMargin = ActiveDocument.PageSetup.LeftMargin
iMargin = iMargin + InchesToPoints（0.5）
ActiveDocument.PageSetup.LeftMargin = iMargin

11.7.5 编辑文字

日常工作中，处理文字是最经常用到的事情，本节介绍如何利用 VBA 编程实现编辑文字的自动化。当然，用户最好是利用录制宏的办法把代码转换为VBA 代码后再修改，这样效率高，又不容易出错。