Stilistische Unschönheiten vermeiden: Texte lek­to­rieren mit Word Makros II – Dop­pe­lungen

Doppelungen in langen Texten zu erkennen und auszumerzen kann insbesondere zu später Stunde eine schwierige Aufgabe darstellen. Das folgende Makro schafft Abhilfe. Es scannt den Text auf Wiederholungen und markiert diese. Dazu wird jedes Wort des Textes einzeln aufgerufen und die Suchfunktion auf die folgenden 750 Zeichen angewendet, um zu überprüfen, ob das aufgerufene Wort bereits darin vorhanden ist. Sofern das der Fall ist, werden beide Wörter farblich hervorgehoben (Hinweis: je nach Textlänge und Geschwindigkeit des Computers kann das Makro einige Momente benötigen).

Sub DoppelMarkieren()
 
 
Dim intWords As Integer
Dim i As Integer
Dim Tmp As Range
Dim myRange As Range
 
intWords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)
 
'Worddokument durchsuchen und Wörter Gelb färben
For i = 1 To intWords
    Set Tmp = ActiveDocument.Range.Words(i)
    'Sonderzeichen, Artikel und Bindwörter sollen ausgenommen werden
    If Len(Tmp) > 5 Then
        Set myRange = ActiveDocument.Range
        myRange.Start = Tmp.End
        myRange.End = Tmp.End + 750
        With myRange.Find
           .Text = Tmp
           .Forward = True
           Do While .Execute = True
               'Bei Treffer werden Ausgangs- und Suchwort markiert
               myRange.HighlightColorIndex = wdYellow
               ActiveDocument.Range.Words(i).HighlightColorIndex = wdYellow
           Loop
       End With
    End If
Next i
 
End Sub

VERWANDTE BEITRÄGE

• Einführung Word-Makros I: Allgemeines, Aufzeichnen und Ausführen eines Makros
• Einführung Word-Makros II: Bearbeiten des Codes eines Makros
• Eigene Texte automatisiert lektorieren mit Word Makros – Bandwurmsätze