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

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

Úžasný! Používejte efektivní karty v aplikaci Word (Office), jako jsou Chrome, Firefox a New Internet Explorer!

Dozvědět se 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 Home >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



Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetřete 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Díky, to je velmi užitečné. Chtěl jsem vybrat všechny výskyty Heading1 a Heading2 najednou, takže jsem změnil řádek 7 na toto: If (tempTable.Style = ActiveDocument.Styles(wdStyleHeading1)) Or (tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)) Then
Tento komentář byl moderátorem webu minimalizován
Díky, je to velmi užitečné. Chtěl jsem vybrat všechny výskyty všech nadpisů najednou, takže jsem změnil řádek 7 na toto:
If tempTable.OutlineLevel <> wdOutlineLevelBodyText Then
Tento komentář byl moderátorem webu minimalizován
To je určitě velmi užitečné, děkuji mnohokrát. Existuje způsob, jak přidat tučný text do výběru? jaký by byl nejlepší způsob, jak změnit řádek 7? Chci získat všechny nadpisy a také všechna klíčová slova v normálním textu, která jsou v textu označena tučně.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL