按住 Alt + F11 即可打开 Microsoft Visual Basic for Applications 窗口。
点击插入 > 模块，然后将以下代码复制粘贴到空白模块中：
Sub BoldAll()
Dim xStr As String
xStr = InputBox("Please enter the word that you want to bold:", "Kutools for Word")
If Trim(xStr) = "" Then
MsgBox "Can't be empty!", vbInformation, "Kutools for Word"
Exit Sub
End If
With ActiveDocument.Content.Find
.ClearFormatting
.Text = xStr
.Replacement.ClearFormatting
.Replacement.Font.Bold = True
.Replacement.Text = "^&"
.Wrap = wdFindStop
.Format = True
.Forward = True
.Execute Replace:=wdReplaceAll
End With
End Sub
插入代码后，按下 F5 即可运行。随后会弹出对话框，提示您输入需要加粗的单词。
点击确定后，您文档中所有指定的单词将会被加粗显示。
使用 Kutools for Word 批量加粗 Word 文档中多个单词
除了 VBA 之外，Kutools for Word 还为您提供了更为简便的一键加粗多组单词的批量替换功能。当您需要同时为多个指定单词加粗时，无需编写任何代码，操作高效便捷。
