Søk og erstatt-funksjonen i ord er det mest vanlig måten å velge alle overskriften avsnittene
Trinn 1: Klikk Home > Finn og velg?. Advance Finn mark
Trinn 2: Klikk Mer-knappen for å få frem flere søkealternativer;
Trinn 3:. Klikk Format mark dukker opp alternativene nedenfor
< p>
Trinn 4:. Klikk på Stil for å velge overskriften stilen du har brukt i Finn hvilken stil dialogboksen
Merk: denne metoden kan bare velge en overskrift avsnitt hver gang. Det er tidkrevende å redigere alle overskriften avsnittene
Velg alle overskriften avsnitt med VBA
Alternativt kan vi bruke VBA til å velge alle overskrifter avsnittene
Trinn 1..: Trykk "Alt-F11" for å åpne Microsoft Visual Basic for Application vinduet;
Trinn 2: Klikk Module på kategorien Sett inn, kopier og lim inn følgende VBA kode i Module vinduet;
Trinn 3: Deretter klikker du på Kjør-knappen for å bruke VBA
VBA-kode for å velge alle overskriften avsnitt:. Merk: denne metoden tar Heading2 som et eksempel. Heading2 kan endre til en annen overskriftsstilene. Er det en enklere måte å velge alle overskriften avsnitt? Kutool for Word er det beste valget. Etter at du har installert Kutool for Word, kan du velge alle overskrifter (posisjon avsnitt) med ett klikk. Kutools for Word, en hendig add-in, omfatter grupper av verktøy for å lette arbeidet ditt og forbedre evnen til behandling Word-dokument. Gratis prøveversjon i 45 dager! Få det nå Klikk Kutools > Paragraf Select på Avsnitt Velg gruppe. Se skjermbilde For mer detaljert informasjon om Velg Overskrift ledd Kutools for Word, vennligst besøk: Paragraf Velg funksjonen beskrivelse Anmeldelser
Sub SelectHeadingParagraphs ()
Dim tempTable Som Avsnittsanmeldelser Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
For Hver tempTable I ActiveDocument.Paragraphs
'Debug.Print tempTable.Range.Style & "" &Amp; wdStyleHeading2
Hvis tempTable.Style = ActiveDocument.Styles (wdStyleHeading2) Deretter
'Debug.Print "aaa"
tempTable.Range.Editors.Add wdEditorEveryone
< em> End If
Neste
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub
Velg alle overskriften avsnitt med den Kutool for Word