Zum Hauptinhalt springen

Wie wählt oder löscht man Text zwischen zwei Lesezeichen in einem Word-Dokument aus?

Author: Siluvia Last Modified: 2025-08-06

Wissen Sie, wie man den Inhalt zwischen zwei Lesezeichen in einem Word-Dokument auswählt oder löscht? Dieser Artikel zeigt Ihnen Methoden, um damit umzugehen.

Text zwischen zwei Lesezeichen mit VBA auswählen/löschen

Text zwischen zwei Lesezeichen mit VBA auswählen/löschen

Angenommen, es gibt zwei Lesezeichen in Ihrem Dokument, wie im folgenden Screenshot gezeigt. Sie können mit dem folgenden VBA-Code alle Inhalte zwischen diesen beiden Lesezeichen auswählen oder löschen.

Word diaplaying content between two bookmarks

1. Drücken Sie in dem Dokument die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul und kopieren Sie dann den folgenden Code in das Modulfenster.

Um Texte zwischen zwei Lesezeichen auszuwählen oder zu löschen, verwenden Sie bitte die folgenden Codes:

VBA-Code: Text zwischen zwei bestimmten Lesezeichen in Word auswählen:

Sub SelectBetweenBookmarks()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark：", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark：", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Select
End Sub

VBA-Code: Text zwischen zwei bestimmten Lesezeichen in Word löschen:

Sub DeleteBetweenBookmarks ()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark：", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark：", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Delete
End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen.

4. Geben Sie im ersten Kutools for Word Dialogfeld den Namen des Start-Lesezeichens in das Textfeld ein und klicken Sie auf OK.

Dialog box for entering the start bookmark name

5. Geben Sie im zweiten Kutools for Word Dialogfeld das End-Lesezeichen ein und klicken Sie auf OK. Siehe Screenshot:

Dialog box for entering the end bookmark name

Hinweis: Wenn der eingegebene Lesezeichenname nicht im Dokument vorhanden ist, wird ein weiteres Kutools for Word Dialogfeld angezeigt, das Sie daran erinnert, den richtigen Namen einzugeben.

Dann werden sofort alle Inhalte zwischen den angegebenen Lesezeichen ausgewählt oder gelöscht. Siehe Screenshots.

Texte zwischen zwei Lesezeichen auswählen:

Content between the specified bookmarks are selected

Texte zwischen zwei Lesezeichen löschen.

Content between the specified bookmarks are deleted

Office Tab: Führt tabbed Interfaces in Word, Excel, PowerPoint... ein
Navigate through documents using Office Tab
Verbessern Sie jetzt Ihren Arbeitsablauf.Mehr über Office Tab erfahren Kostenlos herunterladen

Die besten Produktivitätstools für das Büro

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

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

📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise Konvertierung nach PDF...

✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen über mehrere Dateien / Alle Bilder skalieren / Tabellenzeilen und -spalten transponieren / Tabelle in Text umwandeln...

🧹 Mühelos bereinigen: Entfernen Sie ganz einfach zusätzliche Leerzeichen / Abschnittsumbrüche / Textfelder / Hyperlinks / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen...

➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen im Bereich Einfügen...

🔍 Präzise Auswahl: Bestimmen Sie gezielt bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit weiteren Auswählen -Funktionen...

⭐ Herausragende Verbesserungen: Navigieren Sie zu beliebigen Standorten / Automatisches Einfügen von wiederkehrendem Text / Umschalten zwischen Dokument-Fenstern /11 Konvertierungswerkzeuge...

🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und mehr als40 weitere!

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

Die besten Produktivitätstools für das Büro

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

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools