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

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

hot
Verbazingwekkend! Gebruik efficiënte tabbladen in Word (Office) zoals Chrome, Firefox en New Internet Explorer!

Meer lezen 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 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 van Kutools for Word, ga naar: Alinea selecteren functiebeschrijving



Aanbevolen Word-productiviteitstools

 

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd

  • Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
  • Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
  • Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Comments (1)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Bedankt, dit is erg handig. Ik wilde alle instanties van Heading1 en Heading2 tegelijk selecteren, dus ik veranderde regel 7 in dit: If (tempTable.Style = ActiveDocument.Styles(wdStyleHeading1)) Or (tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)) Dan
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties