如何在Word文档中选择或删除两个书签之间的文本？

Author: Siluvia Last Modified: 2025-07-31

你知道如何在Word文档中选择或删除两个书签之间的内容吗？本文将向你展示处理它的方法。

使用VBA选择/删除两个书签之间的文本

使用VBA选择/删除两个书签之间的文本

假设你的文档中有如下截图所示的两个书签，你可以使用以下VBA代码选择或删除这两个书签之间的所有内容。

Word diaplaying content between two bookmarks

1. 在文档中，按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击插入 > 模块，然后将以下代码复制到模块窗口中。

要选择或删除两个书签之间的文本，请使用以下代码：

VBA代码：在Word中选择两个指定书签之间的文本：

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代码：在Word中删除两个指定书签之间的文本：

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. 按 F5 键运行代码。

4. 在第一个 Kutools for Word 对话框中，输入起始书签名称到文本框并点击确定。

Dialog box for entering the start bookmark name