Как выделить все абзацы заголовков в Word?

Иногда нам нужно удалить или отредактировать все абзацы заголовков. Первый шаг - выбрать все абзацы заголовков. В этом уроке вы научитесь следующим методам выбора всех абзацев заголовков.

Выделите все абзацы заголовков с помощью кнопки "Найти и заменить".

Выделите все абзацы заголовков с помощью VBA

Выберите все абзацы заголовков с помощью Kutool for Word

Выделите все абзацы заголовков с помощью кнопки "Найти и заменить".

Удивительный! Используйте эффективные вкладки в Word (Office), например Chrome, Firefox и New Internet Explorer!

Подробнее Скачать бесплатно

Функция «Найти и заменить в слове» - это наиболее распространенный способ выделить все абзацы заголовков.

Шаг 1: нажмите Главная >Найдите И выберите Предварительный поиск отметка

Шаг 2: нажмите Больше кнопка для вызова дополнительных параметров поиска;

Шаг 3: нажмите Формат отметьте всплывающие варианты ниже.

Шаг 4: нажмите Стиль для выбора стиль заголовка вы использовали в диалоговом окне «Найти стиль».

Примечание: этот метод позволяет каждый раз выбирать только один абзац заголовка. Редактирование всех абзацев заголовков занимает много времени.

Выделите все абзацы заголовков с помощью VBA

В качестве альтернативы мы можем использовать VBA для выбора всех абзацев заголовков.

Шаг 1: нажмите «Alt-F11» открыть окно Microsoft Visual Basic для приложений;

Шаг 2: нажмите Модули на Вставить вкладку, скопируйте и вставьте следующий код VBA в окно модуля;

Шаг 3: Затем нажмите Run кнопку, чтобы применить VBA.

Код VBA для выбора всех абзацев заголовка:

Подложка SelectHeadingParagraphs ()
Dim tempTable как абзац
Приложение.ScreenUpdating = False
ActiveDocument. DeleteAllEditableRanges wdEditorEveryone
Для каждой таблицы tempTable в ActiveDocument.Paragraphs
'Debug.Print tempTable.Range.Style & "" & wdStyleHeading2
Если tempTable.Style = ActiveDocument.Styles (wdStyleHeading2) Тогда
'Debug.Print "aaa"
tempTable.Range.Editors.Add wdEditorEveryone
End If
Далее
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument. DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub

Примечание: в этом методе в качестве примера используется заголовок 2. Заголовок 2 может быть изменен на другой стиль заголовка.

Выберите все абзацы заголовков с помощью Kutool for Word

Есть ли более простой способ выделить все абзацы заголовков? Kutool for Word - ваш лучший выбор. После того, как вы установили Kutool for Word, вы можете выбрать все заголовки (абзацы заголовков) одним щелчком мыши.

Kutools for Word, удобная надстройка, включает группы инструментов, облегчающих вашу работу и расширяющих ваши возможности обработки текстовых документов. Бесплатная пробная версия на 45 дней! Get It Now!

Нажмите Кутулс >Выбор абзаца в группе выбора абзаца. Смотрите скриншот

Для получения более подробной информации о Выберите абзацы заголовка Kutools for Word, пожалуйста, посетите: Выбор абзаца описание функции

---

Рекомендуемые инструменты для повышения производительности Word

 

Kutools For Word - Более 100 расширенных функций для Word, сэкономьте 50% времени

• Сложные и повторяющиеся операции можно производить разово за секунды.
• Вставляйте сразу несколько изображений из папок в документ Word.
• Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
• Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
• Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.

Узнать больше Загрузить сейчас покупка