Zum Hauptinhalt springen

Entdecken Sie noch heute die neue, kostenlose Version von Kutools für Outlook!

Wie findet und hebt man doppelte Absätze in einem Word-Dokument hervor?

Author: Xiaoyang Last Modified: 2025-05-28

Angenommen, Sie haben ein großes Word-Dokument mit Hunderten von Seiten und möchten überprüfen, ob es doppelte Absätze gibt, um diese dann hervorzuheben und sichtbar zu machen, damit Sie die doppelten Sätze bearbeiten können. Wie könnten Sie doppelte Absätze schnell und einfach in einem Word-Dokument finden und hervorheben?

Doppelte Absätze in einem Word-Dokument mit VBA-Code finden und hervorheben

Doppelte Absätze in einem Word-Dokument mit VBA-Code finden und hervorheben

Um doppelte Absätze in einem Word-Dokument zu finden und hervorzuheben, kann der folgende VBA-Code helfen. Gehen Sie bitte wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie anschließend auf Einfügen > Modul, kopieren Sie den unten stehenden Code und fügen Sie ihn in das geöffnete leere Modul ein:

VBA-Code: Doppelte Absätze in einem Word-Dokument finden und hervorheben:

Sub highlightdup()
    Dim I, J As Long
    Dim xRngFind, xRng As Range
    Dim xStrFind, xStr As String
    Options.DefaultHighlightColorIndex = wdYellow
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = 1 To .Paragraphs.Count - 1
            Set xRngFind = .Paragraphs(I).Range
            If xRngFind.HighlightColorIndex <> wdYellow Then
                For J = I + 1 To .Paragraphs.Count
                    Set xRng = .Paragraphs(J).Range
                    If xRngFind.Text = xRng.Text Then
                        xRngFind.HighlightColorIndex = wdBrightGreen
                        xRng.HighlightColorIndex = wdYellow
                    End If
                Next
            End If
        Next
    End With
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen. Alle doppelten Sätze werden sofort hervorgehoben. Die ersten angezeigten doppelten Absätze werden grün hervorgehoben, andere Duplikate werden gelb hervorgehoben, siehe Screenshot:

All duplicate sentences highlighted with the first displayed duplicate paragraphs highlighted in green and other duplicates in yellow

Beste Büroproduktivitätswerkzeuge

Kutools für Word - Verbessern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!

🤖 Kutools AI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...

📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise in PDF konvertieren...

✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Zeilen und Spalten der Tabelle transponieren / Tabelle in Text umwandeln...

🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfelder / Hyperlinks / Für weitere Entfernungstools gehen Sie zur Entfernen-Gruppe...

➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie mehr in der Einfügen-Gruppe...

🔍 Präzise Auswahlen: Bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit mehr Auswahlfunktionen ...

⭐ Sterneverbesserungen: Zu jedem Standort navigieren / Automatisches Einfügen von wiederholtem Text / Wechsel zwischen Dokumentfenstern /11 Konvertierungswerkzeuge...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀
 

Beste Büroproduktivitätswerkzeuge

Kutools für Word - 100+ Werkzeuge für Word

Kostenloser Download Jetzt kaufen Erfahren Sie mehr über Kutools