Wie findet und markiert man doppelte Absätze in einem Word-Dokument?
Angenommen, Sie haben ein umfangreiches Word-Dokument mit möglicherweise Hunderten von Seiten und möchten prüfen, ob doppelte Absätze enthalten sind – um diese schnell zu erkennen, hervorzuheben und so besonders kenntlich zu machen, damit Sie die Duplikate gezielt bearbeiten können. Wie finden und markieren Sie doppelte Absätze in einem Word-Dokument einfach und effizient?
Doppelte Absätze in einem Word-Dokument mithilfe von VBA-Code finden und hervorheben
Doppelte Absätze in einem Word-Dokument mithilfe von VBA-Code finden und hervorheben
Um doppelte Absätze in einem Word-Dokument zu finden und hervorzuheben, unterstützt Sie der folgende VBA-Code. Gehen Sie dazu 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, und fügen Sie den folgenden Code 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 anschließend die Taste F5, um diesen Code auszuführen. Alle doppelten Sätze werden sofort hervorgehoben: Die zuerst angezeigten doppelten Absätze erhalten eine grüne Markierung, alle weiteren Duplikate eine gelbe. Siehe Screenshot:
Beste Office-Produktivitätswerkzeuge
Kutools für Word – Verbessern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!
🤖KUTOOLS KI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI-Korrekturlesen …
📘Dokument-Meisterschaft: Seiten aufteilen, Dokumente zusammenführen, Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML …), stapelweise in PDF konvertieren …
✏Inhaltsbearbeitung: Stapelweises Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren – Zeilen und Spalten tauschen / Tabelle in Text umwandeln …
🧹Mühelose Bereinigung: Fegen Sie überflüssige Leerzeichen/Abschnittsumbruch/Textfeld/Hyperlinks/ Weitere Entfernungs-Werkzeuge finden Sie in der EntfernenGruppe …
➕Kreative Einfügungen: Fügen Sie Tausendertrennzeichen/Kontrollkästchen/Optionsfeld/QR-Code/Strichcode/Mehrere Bilder/ Weitere Funktionen finden Sie in der Einfügen-Gruppe …
🔍Präzisionsauswahl: Wählen Sie gezielt bestimmte Seiten, Tabellen, Formen oder Überschriftenabsätze aus – und verbessern Sie Ihre Navigation mit weiteren Auswählen-Funktionen …
⭐Hervorragende Erweiterungen: Zu beliebigen Positionen navigieren / Wiederkehrenden Text automatisch einfügen / Zwischen Dokumentenfenstern wechseln / 11 Konvertierungswerkzeuge Konvertierungs- …
🌍Unterstützt über 40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere!
Office Tab– Bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die tabbasierte Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters – statt in separaten Fenstern.
- Steigert Ihre Produktivität um 50 % und spart Ihnen täglich Hunderte von Mausklicks!
✨ Kutools for Office – Eine Installation, fünf leistungsstarke Werkzeuge!
Enthält Office Tab Pro·Kutools für Excel·Kutools für Outlook·Kutools für Word·Kutools for PowerPoint
📦 Alle 5 Werkzeuge in einem Paket erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Zeit sparen und sofort die Produktivität steigern
Beste Office-Produktivitätswerkzeuge
Kutools für Word– 100+-Werkzeuge für Word
- 🤖KUTOOLS AI-Funktionen:KI-Assistent/Echtzeit-Assistent/Super Polieren/Super Übersetzen/KI-Redaktion/KI Korrekturlesen
- 📘Dokument-Meisterschaft:Seiten aufteilen/Dokumente zusammenführen/Stapelweise in PDF konvertieren
- ✏Inhaltsbearbeitung:Stapelweise Suchen und Ersetzen/Alle Bilder skalieren
- 🧹Mühelose Bereinigung:Überflüssige Leerzeichen entfernen/Abschnittsumbruch entfernen
- ➕Kreative Einfügungen:Tausendertrennzeichen einfügen/Kontrollkästchen einfügen/QR-Code erstellen
- 🌍Unterstützt über 40 Sprachen: Kutools spricht Ihre Sprache – mit Unterstützung für über 40 Sprachen!