Как выбрать или удалить текст между двумя закладками в документе Word?
Знаете ли вы, как выбрать или удалить содержимое между двумя закладками в документе Word? В этой статье мы покажем вам методы для работы с этим.
Выбор/удаление текста между двумя закладками с помощью VBA
Выбор/удаление текста между двумя закладками с помощью VBA
Предположим, что в вашем документе есть две закладки, как показано на скриншоте ниже. Вы можете выбрать или удалить все содержимое между этими двумя закладками с помощью следующего кода VBA.
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.
5. Во втором диалоговом окне Kutools for Word введите конечную закладку и нажмите OK. См. скриншот:
Примечание: Если введенное имя закладки не существует в документе, появится другое диалоговое окно Kutools for Word, которое напомнит вам ввести правильное имя.
Затем все содержимое между указанными закладками будет немедленно выбрано или удалено. См. скриншоты.
Выбор текста между двумя закладками:
Удаление текста между двумя закладками.
Office Tab: Добавляет интерфейсы с вкладками в Word, Excel, PowerPoint...![]() |
Улучшите свой рабочий процесс прямо сейчас.Узнать больше об Office Tab Бесплатная загрузка |
Лучшие инструменты для повышения производительности в Office
Kutools для Word– улучшите свой опыт работы с Word с помощью более чем 100 выдающихся функций!
🤖 Возможности Kutools AI: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...
📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различных форматах (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...
✏ Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Лёгкая очистка: Удалите лишние пробелы / Разрывы разделов / текстовые поля / гиперссылки. Для других инструментов удаления перейдите в группу Удалить...
➕ Творческие вставки: Вставить разделитель разрядов / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений. Откройте больше возможностей в группе Вставить...
🔍 Точные выделения: Точно определяйте нужные страницы / таблицы / фигуры / абзацы заголовка. Улучшайте навигацию благодаря расширенным функциям Выбрать ...
⭐ Уникальные улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов преобразования...
🌍 Поддержка более40 языков: Используйте Kutools на удобном вам языке – поддерживаются английский, испанский, немецкий, французский, китайский и ещё более40 языков!

Лучшие инструменты для повышения производительности в Office
Kutools для Word – 100+ инструментов для Word
- 🤖 Возможности Kutools AI: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка / Супер Перевод / Искусственный интеллект для редактирования / Проверка с помощью ИИ
- 📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Пакетно преобразовать в PDF
- ✏ Редактирование содержимого: Пакетный поиск и замена / Изменить размер всех изображений
- 🧹 Лёгкая очистка: Удалить лишние пробелы / Удалить разрывы разделов
- ➕ Творческие вставки: Вставить разделитель разрядов / Вставить флажки / Создать QR-коды
- 🌍 Поддержка более40 языков: Kutools говорит на вашем языке – поддерживается более40 языков!