Doubletten in Word

Hallo, ich habe ein ein Script um in Word Doubletten zu entfernen.
Das funktioniert auch sehr gut. So gut, das es auch Wörter entfernt, die bleiben sollen.

Ich möchte z.B. folgenden Satz nicht gelöscht bekommen: ping -n 4 localhost >NUL

Wie kann ich das Script ändern um diesen Satz zu behalten.

Sub DoublettenEntfernen()
Dim Absatz As Paragraph
If ActiveDocument.Paragraphs.Count < 2 Then Exit Sub
Application.ScreenUpdating = False
ActiveDocument.Content.Sort FieldNumber:="Absätze"  
Set Absatz = ActiveDocument.Paragraphs(1)
While Not Absatz.Next Is Nothing
If Absatz.Range.Text = Absatz.Next.Range.Text Then
Absatz.Range.Delete
Else
Set Absatz = Absatz.Next
End If
Wend
Application.ScreenUpdating = True
End Sub

Danke

Michael

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 97415

Url: https://administrator.de/forum/doubletten-in-word-97415.html

Ausgedruckt am: 18.04.2025 um 10:04 Uhr

1 Kommentar

Hallo Stuhlgang!

Ungetestet etwa so:

Sub DoublettenEntfernen()
Keep = LCase("ping -n 4 localhost >NUL")  
Dim Absatz As Paragraph
If ActiveDocument.Paragraphs.Count < 2 Then Exit Sub
Application.ScreenUpdating = False
ActiveDocument.Content.Sort FieldNumber:="Absätze"  
Set Absatz = ActiveDocument.Paragraphs(1)
While Not Absatz.Next Is Nothing
    If Absatz.Range.Text = Absatz.Next.Range.Text Then
        If LCase(Absatz.Range.Text) <> Keep Then
            Absatz.Range.Delete
        End If
    Else
        Set Absatz = Absatz.Next
    End If
Wend
Application.ScreenUpdating = True
End Sub