Как выделить или удалить текст между двумя закладками в документе Word?

Знаете ли вы, как выделить или удалить содержимое между двумя закладками в документе Word? В этой статье описаны способы выполнения этой задачи.

Выделение/удаление текста между двумя закладками с помощью VBA

---

Выделение/удаление текста между двумя закладками с помощью VBA

Предположим, в вашем документе есть две закладки, как показано на скриншоте ниже. С помощью приведённого ниже кода VBA вы можете выделить или удалить всё содержимое между этими закладками.

1. В документе нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль, затем скопируйте приведённый ниже код в окно модуля.

Чтобы выделить или удалить текст между двумя закладками, используйте приведённые ниже коды:

Код 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 для Word введите начальное имя закладки в текстовое поле и нажмите кнопку ОК.

5. Во втором диалоговом окне Kutools для Word введите конечную закладку и нажмите кнопку ОК. См. скриншот:

Примечание: если указанное вами имя закладки отсутствует в документе, появится другое диалоговое окно Kutools для Word с напоминанием ввести корректное значение.

После этого всё содержимое между указанными закладками будет мгновенно выделено или удалено. См. скриншоты.

Выделение текста между двумя закладками:

Удаление текста между двумя закладками.