Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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


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

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

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

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

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

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

документ-выберите-заголовок-абзацы-1

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

документ-выберите-заголовок-абзацы-2

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

документ-выберите-заголовок-абзацы-3

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


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

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

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

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

Шаг 3: Затем нажмите Runдок-обратный знак-6 кнопку, чтобы применить 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!

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

документ-выберите-заголовок-абзацы-4

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



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

 

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

  • Сложные и повторяющиеся операции можно производить разово за секунды.
  • Вставляйте сразу несколько изображений из папок в документ Word.
  • Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
  • Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
Сортировать комментарии по
Комментарии (3)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, это очень полезно. Я хотел выбрать все экземпляры Heading1 и Heading2 одновременно, поэтому я изменил строку 7 на эту:
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, это очень полезно. Я хотел выбрать все экземпляры всех заголовков одновременно, поэтому я изменил строку 7 на это:
Если tempTable.OutlineLevel <> wdOutlineLevelBodyText Тогда
Этот комментарий был сведен к минимуму модератором на сайте
Это очень полезно, безусловно, большое спасибо. Есть ли способ добавить жирный текст в выделение? что было бы лучшим способом изменить строку 7? Я хочу получить все заголовки, а также все ключевые слова в обычном тексте, выделенные жирным шрифтом в тексте.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL