Ga naar hoofdinhoud

Hoe selecteer ik alle koptekst-alinea's in Word?

Soms moeten we alle alinea's met koppen verwijderen of bewerken. De eerste stap is om alle kopparagrafen te selecteren. In deze tutorial leer je de volgende methoden om alle alinea's met koppen te selecteren.

Selecteer alle kopparagrafen met Zoeken en vervangen

Selecteer alle kopparagrafen met de VBA

Selecteer alle kopparagrafen met de Kutool voor Word


pijl blauw rechts belSelecteer alle kopparagrafen met Zoeken en vervangen

Office Tab: Brengt interfaces met tabbladen naar Word, Excel, PowerPoint...
ot woord middelste advertentie 100
Verbeter nu uw workflow.      Lees meer       Gratis download

De functie Zoeken en vervangen in woorden is de meest gebruikelijke manier om alle alinea's met koppen te selecteren.

Stap 1: klik op Home >VIND DE PLEK DIE PERFECT VOOR JOU IS in en selecteer het Geavanceerd zoeken Mark

Stap 2: klik op Meer knop om meer zoekopties weer te geven;

doc-select-kop-alinea-1

Stap 3: klik op Formaat markeer de onderstaande pop-upopties.

doc-select-kop-alinea-2

Stap 4: klik op de stijl om de te selecteren kopstijl die u hebt gebruikt in het dialoogvenster Zoeken naar welke stijl.

doc-select-kop-alinea-3

Opmerking: deze methode kan elke keer slechts één koptekst selecteren. Het is tijdrovend om alle alinea's in de koptekst te bewerken.


pijl blauw rechts belSelecteer alle kopparagrafen met de VBA

Als alternatief kunnen we de VBA gebruiken om alle koppenparagrafen te selecteren.

Stap 1: druk op "Alt-F11" om het Microsoft Visual Basic for Application-venster te openen;

Stap 2: klik op Module op de Invoegen tab, kopieer en plak de volgende VBA-code in het modulevenster;

Stap 3: Klik vervolgens op lopendoc-reverse-teken-6 knop om de VBA toe te passen.

De VBA-code om alle kopparagrafen te selecteren:

Sub SelectHeadingParagraphs ()
Dim tempTable As Paragraaf
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Voor elke tempTable in ActiveDocument.Paragraphs
'Debug.Print tempTable.Range.Style & "" & wdStyleHeading2
Als tempTable.Style = ActiveDocument.Styles (wdStyleHeading2) Dan
'Debug.Print "aaa"
tempTable.Range.Editors.WdEditorEveryone toevoegen
End If
Volgende
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub

Notitie : deze methode neemt Heading2 als voorbeeld. Heading2 kan veranderen in andere kopstijlen.


pijl blauw rechts belSelecteer alle kopparagrafen met de Kutool voor Word

Is er een gemakkelijkere manier om alle alinea's met koppen te selecteren? Kutool voor Word is uw beste keuze. Nadat u de Kutool voor Word heeft geïnstalleerd, kunt u met één klik alle koppen (kopparagrafen) selecteren.

Kutools for Word, een handige invoegtoepassing, bevat groepen tools om uw werk te vergemakkelijken en uw vermogen om Word-documenten te verwerken te verbeteren. Gratis proefperiode van 45 dagen! Snap het nu!

Klik Kutools >Alinea selecteren in de groep Alinea selecteren. Zie screenshot

doc-select-kop-alinea-4

Voor meer gedetailleerde informatie over Selecteer Kop alinea's of Kutools for Word, bezoek alstublieft: Alinea selecteren functiebeschrijving


Beste Office-productiviteitstools

Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!

Duik in de gemarkeerde functies hieronder of Klik hier om de volledige kracht van te ontdekken Kutools for Word.

📘 Documentbeheersing: Pagina's splitsen  /  Voeg documenten samen  /  Selectie exporteren in verschillende formaten (PDF/TXT/DOC/XLSX)  /  Batchconversie naar PDF  /  Pagina's exporteren als afbeeldingen  /  Meerdere bestanden tegelijk afdrukken ...

Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden   /  Formaat van alle afbeeldingen wijzigen   /  Tabelrijen en -kolommen transponeren  /  Converteer tabel naar tekst ...

🧹 Moeiteloos schoonVeeg weg Extra ruimtes  /  Sectie-onderbrekingen  /   Alle koppen  /  Tekstvakken  /  hyperlinks  /  Ga voor meer verwijderingshulpmiddelen naar onze Verwijdergroep

Creatieve invoegingen: Invoegen Duizend scheidingstekens  /  Vink vakjes aan  /  Radio knoppen  /  QR Code  /  Barcode  /  Diagonale lijntabel  /  Vergelijking bijschrift  /  Bijschrift bij afbeelding  /  Tabel titel  /  Meerdere afbeeldingen  /  Ontdek meer in onze Invoeggroep

???? Precisieselecties: Bepaal specifieke pagina's  /  tafels  /  vormen  /  kop paragrafen  /  Navigeer eenvoudig met onze Select Group

Sterverbeteringen: Navigeer snel naar elke locatie  /  automatisch herhaalde tekst invoegen  /  naadloos schakelen tussen documentvensters  /  11 Conversiehulpmiddelen ...

Transformeer uw Word-taken met Kutools. 👉 Nu downloaden met een proefperiode van 30 dagen .

 
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