Direkt zum Inhalt

Wie wähle ich alle Überschriftenabsätze in Word aus?

Manchmal müssen wir alle Überschriftenabsätze löschen oder bearbeiten. Der erste Schritt besteht darin, alle Überschriftenabsätze auszuwählen. In diesem Tutorial lernen Sie die folgenden Methoden zum Auswählen aller Überschriftenabsätze kennen.

Wählen Sie alle Überschriftenabschnitte mit Suchen und Ersetzen aus

Wählen Sie mit dem VBA alle Überschriftenabsätze aus

Wählen Sie mit dem Kutool for Word alle Überschriftenabsätze aus

Empfohlene Produktivitätswerkzeuge für Word

Kutools for Word: KI integrieren 🤖Über 100 erweiterte Funktionen sparen 50 % Ihrer Dokumentenbearbeitungszeit.Free Download

Office Tab: Führt die browserähnlichen Registerkarten in Word (und andere Office-Tools) ein und vereinfacht so die Navigation in mehreren Dokumenten.Free Download


Pfeil blau rechte BlaseWählen Sie alle Überschriftenabschnitte mit Suchen und Ersetzen aus

Office Tab: Bringt Registerkarten-Oberflächen zu Word, Excel, PowerPoint ...
ot Wort Mitte Anzeige 100
Verbessern Sie jetzt Ihren Workflow.      Weiterlesen       Free Download

Die Funktion Suchen und Ersetzen in Word ist die häufigste Methode zum Auswählen aller Überschriftenabsätze.

Schritt 1: Klicken Sie auf Home >Finden Sie und wählen Sie die Vorausfindung Kennzeichen

Schritt 2: Klicken Sie auf Mehr Schaltfläche, um weitere Suchoptionen aufzurufen;

doc-select-Heading-Absätze-1

Schritt 3: Klicken Sie auf Format Markieren Sie unten die Popup-Optionen.

doc-select-Heading-Absätze-2

Schritt 4: Klicken Sie auf Design um den zu wählen Überschriftenstil Sie haben im Dialogfeld Suchen nach Stil verwendet.

doc-select-Heading-Absätze-3

Hinweis: Diese Methode kann jeweils nur einen Überschriftenabsatz auswählen. Es ist zeitaufwändig, alle Überschriftenabsätze zu bearbeiten.


Pfeil blau rechte BlaseWählen Sie mit dem VBA alle Überschriftenabsätze aus

Alternativ können wir die VBA verwenden, um alle Überschriften Absätze auszuwählen.

Schritt 1: Drücken Sie "Alt-F11" um das Microsoft Visual Basic für Anwendungsfenster zu öffnen;

Schritt 2: Klicken Sie auf Modul auf die Insert Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.

Schritt 3: Klicken Sie dann auf Führen Siedoc-umgekehrtes-zeichen-6 Schaltfläche zum Anwenden des VBA.

Der VBA-Code zur Auswahl aller Überschriftenabsätze:

Sub SelectHeadingParagraphs ()
Dim tempTable als Absatz
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Für jede tempTable in ActiveDocument.Paragraphs
'Debug.Print tempTable.Range.Style & "" & wdStyleHeading2
Wenn tempTable.Style = ActiveDocument.Styles (wdStyleHeading2) Dann
'Debug.Print "aaa"
tempTable.Range.Editors.Add wdEditorEveryone
End If
Weiter
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub

Hinweis : Diese Methode nimmt Heading2 als Beispiel. Überschrift2 kann zu einem anderen Überschriftenstil wechseln.


Pfeil blau rechte BlaseWählen Sie mit dem Kutool for Word alle Überschriftenabsätze aus

Gibt es eine einfachere Möglichkeit, alle Überschriftenabsätze auszuwählen? Kutool for Word ist Ihre beste Wahl. Nachdem Sie Kutool for Word installiert haben, können Sie alle Überschriften (Überschriftenabsätze) mit einem Klick auswählen.

Kutools for Word, ein praktisches Add-In, enthält Gruppen von Tools, mit denen Sie Ihre Arbeit erleichtern und die Verarbeitung von Word-Dokumenten verbessern können. Kostenlose Testversion für 45 Tage! Hol es dir jetzt!

Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Kutoolen >Absatzauswahl in der Gruppe Absatzauswahl. Siehe Screenshot

doc-select-Heading-Absätze-4

Für detailliertere Informationen über Wählen Sie Überschriften von Kutools for Word besuchen Sie bitte: Absatzauswahl Funktionsbeschreibung


Beste Office-Produktivitätstools

Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!

🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren  /  Text umschreiben  /  Dokumente zusammenfassen  /  Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word

📘 Dokumentenbeherrschung: Seiten teilen  /  Dokumente zusammenführen  /  Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...)  /  Stapelkonvertierung in PDF  /  Seiten als Bilder exportieren  /  Drucken Sie mehrere Dateien gleichzeitig...

Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg  /  Größe aller Bilder ändern  /  Vertauschen Sie Tabellenzeilen und -spalten  /  Tabelle in Text konvertieren...

🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume  /  Abschnittswechsel  /  Alle Header  /  Textfelder  /  Hyperlinks  / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...

Kreative Einsätze: Einfügen Tausend Trennzeichen  /  Kontrollkästchen  /  Radio Knöpfe  /  QR Code  /  Strichcode  /  Diagonale Linientabelle  /  Gleichungsbeschriftung  /  Bildunterschrift  /  Tabellenüberschrift  /  Mehrere Bilder  / Entdecken Sie mehr im Gruppe einfügen...

🔍 Präzise Auswahl: Punktgenau bestimmte Seiten  /  Tabellen  /  Formen  /  Überschriften von Absätzen  / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...

Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort  /  Sich wiederholenden Text automatisch einfügen  /  Wechseln Sie nahtlos zwischen Dokumentfenstern  /  11 Konvertierungstools...

👉 Möchten Sie diese Funktionen ausprobieren? Kutools für Word bietet a 60-Tage kostenlose Testversion, ohne Einschränkungen! 🚀
 
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