许多不同的文档对其构造有许多不同的要求。例如，您可能有一个文档，有必要在其中将某些重复出现的单词放在方括号中，以便使其突出。 （某些技术手册使用此约定来指定击键，例如[Enter]键。）

如果您有这样的需求，您可能会发现只需键入文本然后返回并稍后添加方括号会有所帮助。这是宏可以派上用场的地方。例如，您可以选择单词（双击它），然后运行一个将添加方括号的宏。下面的宏将轻松完成此任务：

Sub AddBrackets()

Dim iCount As Integer  iCount = 1  While Right(Selection.Text, 1) = " " Or _  Right(Selection.Text, 1) = Chr(13)

Selection.MoveLeft Unit:=wdCharacter, Count:=1, _   Extend:=wdExtend  iCount = iCount + 1  Wend

Selection.InsertAfter "]"

Selection.InsertBefore "["

Selection.MoveRight Unit:=wdCharacter, Count:=iCount End Sub

宏会补偿选择结束时的所有空格或段落标记。完成运行后，插入点将保留在原始选择的末尾。您可以将宏分配给键盘快捷键或自定义工具栏工具。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1520）适用于Microsoft Word 97、2000、2002和2003。您可以在Word（Word 2007）的功能区界面中找到此技巧的版本。和更高版本）在这里：

自动插入括号。