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

Hvordan vælges alle overskriftsafsnit i Word?

Nogle gange er vi nødt til at slette eller redigere alle overskriftsafsnit. Det første trin er at vælge alle overskriftsafsnit. Denne vejledning lærer dig følgende metoder til, hvordan du vælger alle afsnit til overskrifter.

Vælg alle overskriftsafsnit med Find og erstat

Vælg alle overskriftsafsnit med VBA

Vælg alle overskriftsafsnit med Kutool for Word


pil blå højre bobleVælg alle overskriftsafsnit med Find og erstat

Fantastiske! Brug effektive faner i Word (Office) som Chrome, Firefox og New Internet Explorer!

Læs mere Gratis download

Funktionen Find og erstat i ord er den mest almindelige måde at vælge alle overskriftsafsnit på.

Trin 1: Klik Forside >find og vælg Find på forhånd markere

Trin 2: Klik Mere knap for at få flere søgemuligheder op;

doc-vælg-overskrift-afsnit-1

Trin 3: Klik dannet markere pop op-muligheder nedenfor.

doc-vælg-overskrift-afsnit-2

Trin 4: Klik på stil for at vælge overskrift stil du har brugt i Find hvilken stil-dialogboks.

doc-vælg-overskrift-afsnit-3

Bemærk: denne metode kan kun vælge et afsnit overskrift hver gang. Det er tidskrævende at redigere alle overskriftsafsnit.


pil blå højre bobleVælg alle overskriftsafsnit med VBA

Alternativt kan vi bruge VBA til at vælge alle afsnit overskrifter.

Trin 1: Tryk på "Alt-F11" at åbne Microsoft Visual Basic for Application-vinduet;

Trin 2: Klik Moduler på den indsatte fane, kopier og indsæt følgende VBA-kode i modulvinduet;

Trin 3: Klik derefter på Kørdoc-omvendt-tegn-6 knappen for at anvende VBA.

VBA-koden for at vælge alle overskriftsafsnit:

Sub SelectHeadingParagraphs ()
Dim tempTable Som afsnit
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
For hver tempTable i ActiveDocument.Paragraphs
'Debug.Print tempTable.Range.Style & "" & wdStyleHeading2
Hvis tempTable.Style = ActiveDocument.Styles (wdStyleHeading2) Derefter
'Fejlfinding. Udskriv "aaa"
tempTable.Range.Editors.Tilføj wdEditorEveryone
End If
Næste
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub

Note: denne metode tager overskrift2 som et eksempel. Overskrift2 kan skifte til en anden overskriftstype.


pil blå højre bobleVælg alle overskriftsafsnit med Kutool for Word

Er der en nemmere måde at vælge alle overskriftsafsnit på? Kutool for Word er dit bedste valg. Når du har installeret Kutool til Word, kan du vælge alle overskrifter (overskrift afsnit) med et enkelt klik.

Kutools for Word, en praktisk tilføjelse, indeholder grupper af værktøjer, der letter dit arbejde og forbedrer din evne til at behandle orddokument. Gratis prøveperiode i 45 dage! Hent den nu!

Klik Kutools >Afsnit Vælg i afsnittet Vælg afsnit. Se skærmbillede

doc-vælg-overskrift-afsnit-4

For mere detaljeret information om Vælg Overskrift afsnit af Kutools for Word, besøg venligst: Afsnit Vælg funktionsbeskrivelse



Anbefalede Word-produktivitetsværktøjer

 

Kutools til Word - mere end 100 avancerede funktioner til Word, spar din 50% tid

  • Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
  • Indsæt flere billeder på tværs af mapper i Word-dokumentet på én gang.
  • Flet og kombiner flere Word-filer på tværs af mapper i en med den ønskede rækkefølge.
  • Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
  • Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...
Sorter kommentarer efter
Kommentarer (3)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Tak, det er meget nyttigt. Jeg ville vælge alle forekomster af Overskrift1 og Overskrift2 på én gang, så jeg ændrede linje 7 til denne: If (tempTable.Style = ActiveDocument.Styles(wdStyleHeading1)) Eller (tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)) Så
Denne kommentar blev minimeret af moderatoren på webstedet
Tak, dette er meget nyttigt. Jeg ville vælge alle forekomster af alle overskrifter på én gang, så jeg ændrede linje 7 til dette:
Hvis tempTable.OutlineLevel <> wdOutlineLevelBodyText Then
Denne kommentar blev minimeret af moderatoren på webstedet
Dette er helt sikkert meget nyttigt, mange tak. Er der en måde at tilføje fed tekst i markeringen? hvad ville være den bedste måde at ændre linje 7 på? Jeg ønsker at få alle overskrifter og også alle søgeord i normal tekst, der er markeret med fed i teksten.
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL