Перейти до основного матеріалу

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

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

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

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

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

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

Kutools для Word: Інтеграція ШІ 🤖, понад 100 розширених функцій заощаджують 50% часу обробки документів.Безкоштовне завантаження

Вкладка Office: представлено вкладки, подібні до браузера, у Word (та інших інструментах Office), що спрощує навігацію між кількома документами.Безкоштовне завантаження


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

Вкладка Office: надає інтерфейси вкладок у Word, Excel, PowerPoint...
слово середнє оголошення 100
Покращте свій робочий процес зараз.      Детальніше       Безкоштовне завантаження

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

Крок 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 - Підніміть свій досвід Word із Over 100 Чудові особливості!

🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту  /  Переписати текст  /  Узагальнити документи  /  Звертайтеся за інформацією на основі Документа, все в Word

📘 Майстерність документів: Розділити сторінки  /  Об’єднати документи  /  Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...)  /  Пакетне перетворення в PDF  /  Експортувати сторінки як зображення  /  Друк кількох файлів одночасно...

Редагування змісту: Пакетний пошук та заміна між кількома файлами  /  Змінити розмір усіх зображень  /  Транспонування рядків і стовпців таблиці  /  Перетворити таблицю в текст...

🧹 Очищення без зусиль: Змітати Зайві простори  /  Розбиття розділів  /  Усі заголовки  /  Текстові поля  /  Гіперпосилання  / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...

Творчі вставки: Вставити Роздільники тисяч  /  Прапорці  /  радіо кнопки  /  QR-код  /  Штрих-код  /  Таблиця діагональних ліній  /  Заголовок рівняння  /  Підпис зображення  /  Заголовок таблиці  /  Кілька зображень  / Дізнайтеся більше в Вставити групу...

???? Точність вибору: Точне визначення конкретні сторінки  /  Таблиці  /  форми  /  заголовок абзаців  / Покращте навігацію за допомогою більше Виберіть функції...

Покращення зірок: Швидка навігація до будь-якого місця  /  автоматичне вставлення повторюваного тексту  /  плавно перемикатися між вікнами документів  /  11 Інструменти перетворення...

👉 Хочете спробувати ці функції? Kutools для Word пропонує a 60-денна безкоштовна пробна версія, без обмежень! ????
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is very useful definitely, thank you very much. Is there a way to add bold text in the selection? what would be the best way to change line 7? I want to get all headings and also all keywords in normal text that are marked bold in the text.
This comment was minimized by the moderator on the site
Thanks, this is very useful. I wanted to select all instances of all Headings at once, so I changed line 7 to this:
If tempTable.OutlineLevel <> wdOutlineLevelBodyText Then
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations