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

需要通过加粗来突出显示。单词列表很大，大约有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次“查找和替换”操作相当多！

您可以尝试的另一种方法是使用第三方应用程序为您完成工作。该站点上有免费的好文章和应用程序：

http://pubs.logicalexpressions.com/pub0009/LPMArticle.asp?ID=160

这种方法特别有趣，因为它不仅使匹配的单词变粗体，而且使您可以将它们设置为所需的颜色。

注意：

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

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

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

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

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