保罗有一个文档，他需要检查另一个文档中包含的单词列表。如果要检查的文档包含列表中的单词之一，则文档中的单词（不在单词列表中）

需要通过加粗来突出显示。单词列表很大，大约有20,000个单词，而Paul想知道这样做的最佳方法是什么。

您可以通过两种方式进行操作。第一种是编写自己的宏，该宏将为您进行比较。如果将要检查的单词放入C：驱动器中名为“ checklist.doc”的文档中，则可以使用以下宏：

Sub CompareWordList()

Dim sCheckDoc As String     Dim docRef As Document     Dim docCurrent As Document     Dim wrdRef As Object

sCheckDoc = "c:\checklist.doc"

Set docCurrent = Selection.Document     Set docRef = Documents.Open(sCheckDoc)

docCurrent.Activate

With Selection.Find         .ClearFormatting         .Replacement.ClearFormatting         .Replacement.Font.Bold = True         .Replacement.Text = "^&"

.Forward = True         .Format = True         .MatchWholeWord = True         .MatchCase = True         .MatchWildcards = False     End With

For Each wrdRef In docRef.Words         If Asc(Left(wrdRef, 1)) > 32 Then             With Selection.Find                 .Wrap = wdFindContinue                 .Text = wrdRef                 .Execute Replace:=wdReplaceAll             End With         End If     Next wrdRef

docRef.Close     docCurrent.Activate End Sub

您需要做的就是打开要检查的文档，然后运行宏。如果包含要检查的单词的文档的名称不同或位于其他位置，则只需更改设置sCheckDoc的行，以使其具有该文档的另一个完整路径名。

基本上，宏从单词列表中获取每个单词，然后使用文档中的该单词执行查找和替换操作。如果单词列表中有很多单词，则该宏可能要花相当长时间才能运行-20,000次“查找和替换”操作相当多！

注意：

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

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

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

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

突出显示单词列表中的单词。