Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie finden und markieren Sie doppelte Absätze in Word-Dokument?

Angenommen, Sie haben ein großes Word-Dokument, das Hunderte von Seiten haben kann. Jetzt möchten Sie überprüfen, ob es doppelte Absätze gibt, und dann markieren, um sie auszufertigen, damit Sie mit den doppelten Sätzen umgehen können. Wie können Sie die doppelten Absätze schnell und einfach in Word-Dokumenten finden und hervorheben?

Suchen Sie und markieren Sie die doppelten Absätze in Worddokument mit VBA-Code


Suchen Sie und markieren Sie die doppelten Absätze in Worddokument mit VBA-Code

Um die doppelten Absätze in einem Word-Dokument zu finden und hervorzuheben, kann Ihnen der folgende VBA-Code einen Gefallen tun:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Und dann klicke Einsatz > Modul, kopiere und füge unterhalb Code in das geöffnete leere Modul ein:

VBA-Code: Suchen und markieren Sie die doppelten Absätze im Word-Dokument:

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. Und dann drücken F5 Taste, um diesen Code auszuführen, werden alle doppelten Sätze gleichzeitig hervorgehoben, die ersten angezeigten doppelten Absätze werden grün markiert und andere Duplikate werden mit gelber Farbe markiert, siehe Screenshot:

doc markieren duplexsätze 1



Empfohlene Word-Produktivitätswerkzeuge

Kutools für Word - Mehr als 100 Erweiterte Funktionen Sparen Sie bei Word 50% Zeit

  • Komplizierte und wiederholte Operationen können in Sekundenschnelle einmalig ausgeführt werden.
  • Fügen Sie mehrere Bilder in verschiedenen Ordnern gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zusammen und kombinieren Sie sie in der gewünschten Reihenfolge.
  • Teilen Sie das aktuelle Dokument nach Überschrift, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
  • Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, Sammlung von Tools für gemeinsame Konvertierungen und Auswahl usw.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alex · 1 months ago
    It throws Compile error: Syntax error, the code is 100% as the example.
  • To post as a guest, your comment is unpublished.
    dvid · 11 months ago
    I tried, and it works fine!
    I just wanted to know - could I do the same thing - but not a whole paragraph, but a sentence with a few words I'd set up - like 10 words?
  • To post as a guest, your comment is unpublished.
    Juliana · 11 months ago
    Tentei e não funcionou, só da que parou de funcionar.