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: