Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Siluvia Last modified

Знаете ли вы, как выбрать или удалить содержимое между двумя закладками в документе 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 for Word — Поднимите свой опыт работы с Word на новый уровень, используя более 100 впечатляющих функций!

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

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

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

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

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

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

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

🌍 Поддержка более40 языков: Используйте Kutools на предпочитаемом языке — поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и еще более40 языков!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите попробовать эти функции? Загрузите Kutools for Word сейчас! 🚀
 

✨ Kutools for Office — Одна установка, пять мощных инструментов!

Включает Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Получите все5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Мгновенно экономьте время и повышайте продуктивность

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

Kutools for Word - 100+ инструментов для Word

Бесплатная загрузка Купить Подробнее о Kutools