按住 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通过其批量替换功能提供了一种更加简便的方法来一次性加粗多个单词。这种方法非常适合当你想一次性对多个特定单词应用加粗格式时使用,无需编写任何代码。