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

需要通过加粗来突出显示。单词列表很大,大约有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)的功能区界面找到此技巧的版本。和更高版本)在这里: