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

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

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

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

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

Выбрать все абзацы заголовков с помощью функции “Найти и заменить”

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

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

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

Шаг 1. Нажмите Главная > Найти и выберите Расширенный поиск mark

Шаг 2. Нажмите кнопку Еще , чтобы открыть дополнительные параметры поиска;

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

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

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

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

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

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

Шаг 2. Нажмите Module на Вставить скопируйте и вставьте следующий код VBA в окно модуля.

Шаг 3. Затем нажмите Выполнить , чтобы применить VBA.

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

Sub SelectHeadingParagraphs ()
Dim tempTable As Paragraph
Application.ScreenUpdating = Ложь
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Для каждой таблицы tempTable в ActiveDocument. Абзацы
‘Debug.Print tempTable.Range.Style & “” & wdStyleHeading2
Если tempTable.Style = ActiveDocument. Стили (wdStyleHeading2) Затем
‘Debug.Print “aaa”
tempTable.Range.Editors.Add wdEditorEveryone
End If
Next
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 дней! Получить сейчас!

Нажмите Kutools > Выбор абзаца в группе выбора абзаца. См. Снимок экрана

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

Рекомендуемые инструменты для работы с Word