Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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

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


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

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

Узнать больше Скачать бесплатно

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

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

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

Doc-Select-заголовков-абзацы-1

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

Doc-Select-заголовков-абзацы-2

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

Doc-Select-заголовков-абзацы-3

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


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

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

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

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

Шаг 3: Затем нажмите прогондок-обратный для применения VBA.

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

Sub 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

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


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

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

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

щелчок Kutools >Выбор абзаца в группе выбора абзаца. Посмотреть скриншот

Doc-Select-заголовков-абзацы-4

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




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

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Bob Flisser · 4 years ago
    Thanks, this is very useful. I wanted to select all instances of Heading1 and Heading2 at once, so I changed line 7 to this:

    If (tempTable.Style = ActiveDocument.Styles(wdStyleHeading1)) Or (tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)) Then