Salt la conținutul principal

Cum să selectați toate paragrafele de titlu din Word?

Uneori trebuie să ștergem sau să edităm toate paragrafele de antet. Primul pas este selectarea tuturor paragrafelor de titlu. Acest tutorial vă va învăța următoarele metode despre cum să selectați toate paragrafele de antet.

Selectați toate paragrafele de titlu cu Găsiți și înlocuiți

Selectați toate paragrafele de titlu cu VBA

Selectați toate paragrafele de titlu cu Kutool for Word


săgeată albastru dreapta balonSelectați toate paragrafele de titlu cu Găsiți și înlocuiți

Fila Office: Aduce interfețe cu file în Word, Excel, PowerPoint...
ot cuvânt mijloc ad 100
Îmbunătățiți-vă fluxul de lucru acum.      Citeste mai mult       Descărcare gratuită

Funcția Găsiți și înlocuiți în cuvânt este cel mai frecvent mod de a selecta toate paragrafele de antet.

Pasul 1: Faceți clic pe Inițial >Găsi Și selectați Găsiți în avans marca

Pasul 2: Faceți clic Mai Mult buton pentru a afișa mai multe opțiuni de căutare;

doc-select-heading-paragraph-1

Pasul 3: Faceți clic pe Format bifați opțiunile pop-up de mai jos.

doc-select-heading-paragraph-2

Pasul 4: Faceți clic pe Stil pentru a selecta stil de antet pe care l-ați folosit în caseta de dialog Găsiți ce stil.

doc-select-heading-paragraph-3

Notă: această metodă poate selecta un singur paragraf de titlu de fiecare dată. Este nevoie de timp pentru a edita toate paragrafele de antet.


săgeată albastru dreapta balonSelectați toate paragrafele de titlu cu VBA

Alternativ, putem folosi VBA pentru a selecta toate paragrafele de titlu.

Pasul 1: Apăsați „Alt-F11” pentru a deschide fereastra Microsoft Visual Basic pentru aplicație;

Pasul 2: Faceți clic pe Module pe Insera filă, copiați și lipiți următorul cod VBA în fereastra Module;

Pasul 3: Apoi faceți clic pe Alergadoc-revers-semn-6 pentru a aplica VBA.

Codul VBA pentru a selecta toate paragrafele de titlu:

Sub SelectHeadingParagraphs ()
Dim tempTable Ca paragraf
Application.ScreenUpdating = Fals
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Pentru fiecare tempTable din ActiveDocument.Paragrafe
'Debug.Print tempTable.Range.Style & "" & wdStyleHeading2
Dacă tempTable.Style = ActiveDocument.Styles (wdStyleHeading2) Atunci
'Debug.Print "aaa"
tempTable.Range.Editors.Add wdEditorEveryone
Final, dacă
Pagina Următoare →
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = Adevărat
End Sub

Atenție: această metodă ia ca titlu Heading2. Titlul 2 se poate schimba în alt stil de titlu.


săgeată albastru dreapta balonSelectați toate paragrafele de titlu cu Kutool for Word

Există o modalitate mai ușoară de a selecta toate paragrafele de titlu? Kutool for Word este cea mai bună alegere. După ce ați instalat Kutool for Word, puteți selecta toate titlurile (paragrafele de titlu) cu un singur clic.

Kutools pentru Cuvânt, un supliment util, include grupuri de instrumente pentru a vă ușura munca și a vă îmbunătăți capacitatea de procesare a documentelor Word. Încercare gratuită timp de 45 de zile! Ia-L Acum!

Clic Kutools >Selectare paragraf din grupul Selectare paragraf. Vezi captura de ecran

doc-select-heading-paragraph-4

Pentru informații mai detaliate despre Selectați Paragrafele de antet din Kutools for Word, vă rugăm să vizitați: Selectare paragraf descrierea caracteristicii


Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

Scufundați-vă în caracteristicile evidențiate de mai jos sau faceți clic aici pentru a explora întreaga putere a Kutools for Word.

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/XLSX)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan ...

Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere   /  Redimensionați toate imaginile   /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text ...

🧹 Curățare fără efortÎndepărtați Spații suplimentare  /  Secțiuni pauze  /   Toate anteturile  /  Casete text  /  hiperlinkuri  /  Pentru mai multe instrumente de eliminare, accesați grupul nostru de eliminare

Inserții creative: Insera Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  /  Descoperiți mai multe în grupul nostru de inserări

???? Selectii de precizie: Identificați anumite pagini  /  tabele  /  forme  /  paragrafele de titlu  /  Navigați cu ușurință folosind grupul nostru Select

Îmbunătățiri de stele: Navigați rapid în orice locație  /  inserarea automată a textului repetitiv  /  comutați fără probleme între ferestrele documentelor  /  11 Instrumente de conversie ...

Transformați-vă sarcinile Word cu Kutools. 👉 Descărcați acum cu o perioadă de încercare de 30 de zile 🚀.

 
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