如何在 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 對話方塊，提醒您輸入正確的名稱。

接著，書籤之間的所有內容將立即被選取或刪除。請參閱截圖。

選取兩個書籤之間的文字：

刪除兩個書籤之間的內容。