提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何在Word文檔中的兩個書籤之間選擇或刪除文本?

您知道如何選擇或刪除Word文檔中兩個書籤之間的內容嗎? 本文將向您展示處理它的方法。

使用VBA選擇/刪除兩個書籤之間的文本


使用VBA選擇/刪除兩個書籤之間的文本

假設您的文檔中有兩個書籤,如下面的屏幕截圖所示,您可以使用以下VBA代碼選擇或刪除這兩個書籤之間的所有內容。

1。 在文檔中,按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口中,單擊 插入 > 模塊,然後將下面的代碼複製到Module窗口中。

要選擇或刪除兩個書籤之間的文本,請使用以下代碼:

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 在對話框中,在文本框中輸入開始書籤名稱,然後單擊 OK.

5。 在第二 Kutools for Word 對話框,輸入結束書籤並單擊 OK。 看截圖:

備註:如果您輸入的書籤名稱在文檔中不存在,則會彈出另一個Kutools for Word對話框,提醒您輸入正確的名稱。

然後立即選擇或刪除指定書籤之間的所有內容。 查看截圖。

選擇兩個書籤之間的文本:

刪除兩個書籤之間的文本。



推薦的Word生產力工具

Kutools For Word - 超過100 Word的高級功能,節省您的50%時間

  • 複雜和重複的操作可以在幾秒鐘內完成一次性處理。
  • 一次將多個圖像跨文件夾插入Word文檔。
  • 將多個文件夾合併並組合成一個具有所需訂單的文件。
  • 根據標題,分節符或其他標準將當前文檔拆分為單獨的文檔。
  • 在Doc和Docx,Docx和PDF之間轉換文件,用於常見轉換和選擇的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.