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

Author: Siluvia Last Modified: 2025-06-05

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

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

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

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

Word diaplaying content between two bookmarks

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

Dialog box for entering the start bookmark name

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

Dialog box for entering the end bookmark name

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

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

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

Content between the specified bookmarks are selected

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

Content between the specified bookmarks are deleted

Office Tab: Добавляет интерфейсы с вкладками в Word, Excel, PowerPoint...

Navigate through documents using Office Tab

Улучшите свой рабочий процесс прямо сейчас.Узнать больше об Office Tab Бесплатная загрузка

Лучшие инструменты для повышения продуктивности в офисе

Kutools для Word — расширьте возможности работы с Word с помощью более чем 100 уникальных функций!

🤖 Функции искусственного интеллекта Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...

✏ Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...

🧹 Легкая очистка: Удалите лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для дополнительных инструментов удаления перейдите в группу Удалить...

➕ Креативные вставки: Вставить разделители тысяч / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений / Откройте больше возможностей в группе Вставить...

🔍 Точные выделения: Быстро находите нужные страницы / Таблицы / Фигуры / Абзацы заголовка / Улучшайте навигацию с помощью дополнительных функций Выбрать...

⭐ Особые улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов для преобразования...