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

宏会补偿选择结束时的所有空格或段落标记。完成运行后，插入点将保留在原始选择的末尾。您可以将宏分配给键盘快捷键或`link：/ wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [快速访问工具栏]`。

注意：

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

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

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（12055）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

自动插入括号。