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

Як виділити всі абзаци заголовків у програмі Word?

Іноді нам потрібно видалити або відредагувати всі абзаци заголовка. Першим кроком є ​​вибір усіх абзаців заголовків. Цей підручник навчить вас наступним методам виділення всіх абзаців заголовків.

Виділіть усі абзаци заголовка за допомогою функції Знайти та Замінити

Виділіть усі абзаци заголовка за допомогою VBA

Виділіть усі абзаци заголовка за допомогою Kutool для Word


стрілка синя права міхурВиділіть усі абзаци заголовка за допомогою функції Знайти та Замінити

Дивовижний! Використовуйте ефективні вкладки у програмі Word (Office), як-от Chrome, Firefox та New Internet Explorer!

докладніше Безкоштовне завантаження

Функція Знайти та Замінити у слові - це найчастіше спосіб виділення всіх абзаців заголовка.

Крок 1: клацніть Головна >знайти і виберіть Попередній пошук позначити

Крок 2: Клацніть більше кнопка, щоб відкрити більше параметрів пошуку;

doc-select-heading-абзаци-1

Крок 3: клацніть сформований позначте спливаючі опції нижче.

doc-select-heading-абзаци-2

Крок 4: натисніть кнопку стиль щоб вибрати стиль заголовка ви використовували у діалоговому вікні Знайти який стиль.

doc-select-heading-абзаци-3

Примітка: цим методом можна кожного разу вибрати лише один абзац заголовка. Редагування всіх абзаців заголовків займає багато часу.


стрілка синя права міхурВиділіть усі абзаци заголовка за допомогою VBA

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

Крок 1: натисніть "Alt-F11" відкрити вікно Microsoft Visual Basic для програми;

Крок 2: клацніть Модулі на Insert вкладку, скопіюйте та вставте наступний код VBA у вікно Модуль;

Крок 3: Потім натисніть прогінdoc-зворотний знак-6 , щоб застосувати VBA.

Код VBA для вибору всіх абзаців заголовка:

Sub SelectHeadingParagraphs ()
Затемнена таблиця як абзац
Application.ScreenUpdating = Невірний
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Для кожної спокусливої ​​таблиці в ActiveDocument.Paragraphs
'Debug.Print tempTable.Range.Style & "" & wdStyleHeading2
Якщо tempTable.Style = ActiveDocument.Styles (wdStyleHeading2) Тоді
'Налагодження. Друк "aaa"
tempTable.Range.Editors.Add wdEditorEveryone
End If
Далі
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub

Примітка: цей метод бере для прикладу Heading2. Заголовок2 може змінити інший стиль заголовка.


стрілка синя права міхурВиділіть усі абзаци заголовка за допомогою Kutool для Word

Чи існує простіший спосіб виділення всіх абзаців заголовків? Kutool для Word - це ваш найкращий вибір. Після того, як ви встановили Kutool для Word, ви можете одним заголовком вибрати усі заголовки (абзаци заголовків).

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

Натисніть Кутулс >Вибір абзацу у групі «Вибір абзацу». Дивіться знімок екрана

doc-select-heading-абзаци-4

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



Рекомендовані засоби підвищення продуктивності слів

 

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

  • Складні та повторювані операції можна виконати одноразово за кілька секунд.
  • Вставте кілька зображень між папками в документ Word одночасно.
  • Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
  • Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
  • Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...
Коментарі (3)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Дякую, це дуже корисно. Я хотів вибрати всі екземпляри Heading1 і Heading2 відразу, тому я змінив рядок 7 на такий: Якщо (tempTable.Style = ActiveDocument.Styles(wdStyleHeading1)) або (tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)) Тоді
Цей коментар був мінімізований модератором на сайті
Дякую, це дуже корисно. Я хотів вибрати всі екземпляри всіх заголовків одночасно, тому я змінив рядок 7 на це:
Якщо tempTable.OutlineLevel <> wdOutlineLevelBodyText Then
Цей коментар був мінімізований модератором на сайті
Це дуже корисно, безперечно, дякую. Чи є спосіб додати жирний текст у виділення? який найкращий спосіб змінити рядок 7? Я хочу отримати всі заголовки, а також усі ключові слова у звичайному тексті, виділені жирним шрифтом у тексті.
There are no comments posted here yet
Будь ласка, залишайте свої коментарі англійською мовою
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL