Markieren Sie Wörter aus einer Wortliste (Microsoft Word)
Paul hat ein Dokument, das er mit einer Wortliste vergleichen muss, die in einem anderen Dokument enthalten ist. Wenn das zu prüfende Dokument eines der Wörter in der Liste enthält, ist das Wort im Dokument (nicht in der Wortliste)
muss durch Fettdruck hervorgehoben werden. Die Wortliste ist groß und liegt in der Größenordnung von 20.000 Wörtern. Paul fragt sich, wie dies am besten funktioniert.
Es gibt zwei Möglichkeiten, wie Sie fortfahren können. Das erste ist, ein eigenes Makro zu schreiben, das die Vergleiche für Sie durchführt. Wenn Sie die gewünschten Wörter in ein Dokument mit dem Namen „checklist.doc“ im Laufwerk C: einfügen, kann das folgende Makro verwendet werden:
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
Sie müssen lediglich das gewünschte Dokument öffnen und dann das Makro ausführen. Wenn das Dokument mit den zu prüfenden Wörtern einen anderen Namen oder eine andere Position hat, ändern Sie einfach die Zeile, in der sCheckDoc festgelegt ist, so dass es einen anderen vollständigen Pfadnamen für das Dokument hat.
Grundsätzlich erfasst das Makro jedes Wort aus der Wortliste und führt dann einen Such- und Ersetzungsvorgang mit diesem Wort im Dokument durch. Wenn Sie viele, viele Wörter in der Wortliste haben, kann die Ausführung des Makros eine Weile dauern – 20.000 Such- und Ersetzungsvorgänge sind einige!
Der andere Ansatz, den Sie versuchen können, besteht darin, eine Drittanbieteranwendung zu verwenden, um die Arbeit für Sie zu erledigen. Auf dieser Website ist ein guter Artikel und eine gute Anwendung kostenlos verfügbar:
http://pubs.logicalexpressions.com/pub0009/LPMArticle.asp?ID=160
Dieser Ansatz ist besonders interessant, da er nicht nur übereinstimmende Wörter fett macht, sondern es Ihnen auch ermöglicht, sie auf eine gewünschte Farbe einzustellen.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.
(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (502) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier: