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

您是否想了解如何在 Word 文档中选中或删除两个书签之间的内容？本文将为您详细介绍相关操作方法。

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

---

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

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

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 对话框中，将起始书签名称输入到文本框中，然后点击确定。

5. 在第二个 Kutools for Word 对话框中，输入结束书签后，点击确定。见下图：

注意：如果您输入的书签名称在文档中不存在，Kutools for Word 将会弹出对话框，提示您输入正确的内容。

然后，书签之间的所有内容将会被立即选中或删除。请参见下方截图。

选择两个书签之间的文本：

删除位于两个书签之间的所有文本。