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

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

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

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

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

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

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

К счастью, мы можем использовать VBA для выбора абзацев без заголовка. Это простой способ.

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

Шаг 2. Щелкните Module на вкладке Insert , скопируйте и вставьте следующий код VBA в окно модуля:

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

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

Sub SelectNonHeadingParagraphs ()
Dim tempTable As Paragraph
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Для каждой таблицы tempTable в ActiveDocument.Paragraphs
‘Debug.Print tempTable.Range.Style & “” & wdStyleHeading1
Если tempTable.Style ActiveDocument.Styles (wdStyleHeading1) Тогда
‘Debug.Print “aaa”
tempTable.Range.Editors.Add wdEditorEv eryone
End If
Next
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub

Примечание. в этом методе в качестве примера используется заголовок 1. Вы можете использовать другие стили заголовка для замены заголовка 1. Если документ включает несколько стилей заголовка, этот метод не подходит

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

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

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

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

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

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