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!

_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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1173) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier:

Wörter aus einer Wortliste hervorheben.