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

Wissen Sie, wie Sie den Inhalt zwischen zwei Lesezeichen in einem Word-Dokument auswählen oder löschen können? Dieser Artikel zeigt Ihnen praktische Methoden, um genau das zu erreichen.

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

---

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

Angenommen, Ihr Dokument enthält zwei Lesezeichen, wie im folgenden Screenshot dargestellt. Mithilfe des nachstehenden VBA-Codes können Sie den gesamten Inhalt zwischen diesen beiden Lesezeichen auswählen oder löschen.

1. Drücken Sie im Dokument die Tastenkombination 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 fügen Sie anschließend den folgenden Code in das Modulfenster ein.

Verwenden Sie zum Auswählen oder Löschen von Text zwischen zwei Lesezeichen die folgenden Codes:

VBA-Code: Text zwischen zwei festgelegten 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 festgelegten 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 für Word-Dialogfeld den Namen des Start-Lesezeichens in das Textfeld ein und klicken Sie auf OK.

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

Hinweis: Falls der von Ihnen eingegebene Lesezeichenname im Dokument nicht vorhanden ist, erscheint ein weiteres Kutools für Word-Dialogfeld, das Sie auffordert, den korrekten Namen einzugeben.

Anschließend wird der gesamte Inhalt zwischen den angegebenen Lesezeichen sofort ausgewählt bzw. gelöscht – siehe Screenshots.

Text zwischen zwei Lesezeichen auswählen:

Löschen Sie den Text zwischen zwei Lesezeichen.