突出显示单词列表中的单词(Microsoft Word)
保罗有一个文档,他需要对照另一个文档中包含的单词列表进行检查。如果要检查的文档包含列表中的单词之一,则文档中的单词(不在单词列表中)
需要通过加粗来突出显示。单词列表很大,大约有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)的功能区界面找到此技巧的版本。和更高版本)在这里: