- 条件分支
- 变量指定
- 循环结构
- 自定义用户窗体
- 错误句柄
- 鼠标选定文字（必须使用组合键）
为了提高录制的宏的功能，就可能需要修改录制到模块中的代 码。
11.5.1 删除 Selection 属性
使用宏录制器创建的宏通过对所选内容进行操作。在大多数录制 的宏指令的开头都有Selection。录制的宏使用 Selection 属性返 回 Selection 对象。例如，下面的示例将所选内容移动到 Book 书 签，并在书签后插入文字。
Selection.Goto What:=wdGotoBookmark, Name:="Book"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="New text"
End Sub
尽管这个宏会完成任务，但却有一些缺点。首先，如果文档没有 一个名为 Book 的书签，则这个宏会产生错误。其次，这个宏可能 会不正确地移动选定内容。修改这个宏后，不使用 Selection 对象， 就可以解决上面的两个问题。下面就是修改之后的宏。
Sub Mytest（）
If ActiveDocument.Bookmarks（"Book"）.Exists = True
Then
loc = ActiveDocument.Bookmarks（"Book"）.End
ActiveDocument.Range （ Start:=loc,
End:=loc）.InsertAfter "New text"
End If
End Sub
Exists 方法用来检查是否存在名为 Book 的书签。如果找到了 这个书签，则 End 属性返回该书签的结束字符位置。最后，Range 方 法用来返回一个 Range 对象，该对象引用书签的结束位置，以使用InsertAfter 方法插入文字。
11.5.2 使用 With …End With
可使用 With … End With 结构简化对相同对象进行引用的宏指 令。例如，当在文档顶部添加一个标题（Title）时，会录制下面的 宏。
Sub Macro（）
Selection.HomeKey Unit:=wdStory
Selection.TypeText Text:="Title"
Selection.ParagraphAlignment.Alignment =
wdAlignParagraphCenter
End Sub
每个指令都使用 Selection 属性以返回一个 Selection 对象。 可以简化这个宏，这样只需使用一次 Selection 属性。
Sub MyMacro（）
With Selection
.HomeKey Unit:=wdStory
.TypeText Text:="Title"
.ParagraphAlignment.Alignment =
wdAlignParagraphCenter
End With
End Sub
不使用 Selection 对象也可以完成相同的任务。下面的宏在活 动文档的开头使用 Range 对象，就能完成相同的任务。
Sub MyMacro（）
With ActiveDocument.Range（Start:=0, End:=0）
.InsertAfter "Title"
.ParagraphFormat.Alignment =
wdAlignParagraphCenter
End With
End Sub
11.5.3 删除不必要的属性
如果录制了一个关于选中对话框中的选项的宏，即使只更改一个或两个选项，宏录制器也会记录该对话框中的所有选项的设置。如果不想更改所有选项，可从记录的宏中删除不必要的属性。下面录制的宏包含【格式】菜单中【段落】对话框的一些选项。
Sub Macro（）
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints（0）
.RightIndent = InchesToPoints（0）
.SpaceBefore = 6
.SpaceAfter = 6
.LineSpacingRule = 0
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False