Як вибрати або видалити текст між двома закладками в документі Word?

Чи знаєте ви, як вибрати або видалити вміст між двома закладками у документі Word? Ця стаття покаже вам способи боротьби з нею.

Виберіть / видаліть текст між двома закладками за допомогою VBA

Виберіть / видаліть текст між двома закладками за допомогою VBA

Припустимо, що у вашому документі є дві закладки, як показано на знімку екрана, ви можете вибрати або видалити весь вміст між цими двома закладками за допомогою наступного коду VBA.

1. У документі натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, а потім скопіюйте код нижче у вікно модуля.

Для вибору або видалення текстів між двома закладками використовуйте цей код:

Код 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 діалогове вікно, введіть ім'я початкової закладки в текстове поле та натисніть OK.

5 У другому Kutools для Word діалогове вікно, введіть кінцеву закладку та натисніть OK. Дивіться знімок екрана:

примітки: Якщо введена вами назва закладки не існує в документі, з’явиться інше діалогове вікно Kutools для Word, яке нагадає вам про введення правильної.

Тоді весь вміст між зазначеними закладками відбирається або негайно видаляється. Див. Скріншоти.

Виберіть тексти між двома закладками: