Přejít k hlavnímu obsahu

Jak vybrat všechny nadpisy odstavců v aplikaci Word?

Někdy musíme odstranit nebo upravit všechny odstavce záhlaví. Prvním krokem je výběr všech nadpisových odstavců. Tento výukový program vás naučí následující metody, jak vybrat všechny nadpisy odstavců.

Vyberte všechny odstavce nadpisu pomocí funkce Najít a nahradit

Vyberte všechny nadpisy odstavců pomocí VBA

Vyberte všechny nadpisy odstavců pomocí programu Kutool pro Word


šipka modrá pravá bublinaVyberte všechny odstavce nadpisu pomocí funkce Najít a nahradit

Karta Office: Přináší rozhraní s kartami do aplikací Word, Excel, PowerPoint...
střední slovo ad 100
Vylepšete svůj pracovní postup hned teď.      Více       Stažení zdarma

Funkce Najít a nahradit ve Wordu je nejběžnějším způsobem, jak vybrat všechny nadpisy odstavců.

Krok 1: Klepněte na tlačítko Domů >Najít A vyberte položku Pokročilé hledání označit

Krok 2: Klepněte na tlačítko Moře tlačítko pro vyvolání dalších možností vyhledávání;

doc-select-titulek-odstavce-1

Krok 3: Klepněte na tlačítko Formát níže označte vyskakovací možnosti.

doc-select-titulek-odstavce-2

Krok 4: Klepněte na tlačítko Styl vyberte položku styl nadpisu jste použili v dialogovém okně Najít jaký styl.

doc-select-titulek-odstavce-3

Poznámka: tato metoda může pokaždé vybrat pouze jeden odstavec nadpisu. Úpravy všech nadpisových odstavců je časově náročné.


šipka modrá pravá bublinaVyberte všechny nadpisy odstavců pomocí VBA

Alternativně můžeme použít VBA k výběru všech odstavců nadpisů.

Krok 1: Stiskněte „Alt-F11“ otevřít okno Microsoft Visual Basic for Application;

Krok 2: Klepněte na tlačítko Modul na Vložit karta, zkopírujte a vložte následující kód VBA do okna modulu;

Krok 3: Poté klikněte Běhdoc-reverzní znamení-6 tlačítko pro použití VBA.

Kód VBA pro výběr všech nadpisových odstavců:

Sub SelectHeadingParagraphs ()
Ztlumit tabulku jako odstavec
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Pro každou tempTable v ActiveDocument.Paragraphs
'Debug.Print tempTable.Range.Style & "" & wdStyleHeading2
If tempTable.Style = ActiveDocument.Styles (wdStyleHeading2) Then
'Debug.Print "aaa"
tempTable.Range.Editors.Add wdEditorEveryone
End If
další
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub

Poznámka: tato metoda bere jako příklad Heading2. Nadpis2 se může změnit na jiné styly nadpisů.


šipka modrá pravá bublinaVyberte všechny nadpisy odstavců pomocí programu Kutool pro Word

Existuje snadnější způsob, jak vybrat všechny nadpisy odstavců? Kutool pro Word je vaše nejlepší volba. Po instalaci Kutool pro Word můžete jedním kliknutím vybrat všechny nadpisy (odstavce nadpisů).

Kutools pro Word, praktický doplněk, obsahuje skupiny nástrojů, které vám usnadní práci a zvýší vaši schopnost zpracovávat textový dokument. Zkušební verze zdarma po dobu 45 dnů! Get It Now!

klikněte Kutools >Výběr odstavce ve skupině Odstavec. Viz snímek obrazovky

doc-select-titulek-odstavce-4

Podrobnější informace o Vyberte nadpisy odstavců Kutools pro Word, navštivte: Výběr odstavce popis funkce


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

Ponořte se do zvýrazněných funkcí níže nebo klikněte sem a prozkoumejte plnou sílu Kutools pro Word.

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/XLSX)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou ...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů   /  Změnit velikost všech obrázků   /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text ...

🧹 Čištění bez námahySmést pryč Extra prostory  /  Sekce přestávky  /   Všechny záhlaví  /  Textová pole  /  Odkazy  /  Další nástroje pro odstraňování najdete v naší skupině pro odstranění

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  /  Objevte více v naší skupině Insert

???? Přesné výběry: Označte konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  /  Procházejte se snadno pomocí naší Select Group

Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje ...

Transformujte své úkoly ve Wordu pomocí Kutools. 👉 Stáhněte si nyní 30denní zkušební verzi 🚀.

Více       Stažení zdarma      Nákup
 
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