PageNumbers.HeadingLevelForChapter-Eigenschaft (Word)

Artikel
04/07/2023

Gibt die Formatvorlage der Überschriftenebene zurück, die den Kapitelüberschriften im Dokument zugewiesen wurde, oder legt sie fest. Long mit Lese-/Schreibzugriff.

Syntax

Ausdruck. HeadingLevelForChapter

Ausdruck Eine Variable, die ein "PageNumbers"-Objekt darstellt.

Hinweise

Die HeadingLevelForChapter-Eigenschaft kann eine Zahl von 0 (null) bis 8 sein, die den Überschriftenebenen 1 bis 9 entspricht.

Bevor Sie Seitenzahlen erstellen können, die Kapitelnummern enthalten, muss den Dokumentüberschriften ein Gliederungsformat mit Nummerierung zugewiesen worden sein, das Formatvorlagen aus dem Dialogfeld Nummerierung und Aufzählungszeichen verwendet. Verwenden Sie dazu in Visual Basic die ApplyListTemplate-Methode.

Beispiel

Im ersten Teil dieses Beispiels wird ein neues Dokument erstellt, Kapitelüberschriften und Seitenumbrüche hinzugefügt, und dann wird das Dokument formatiert, indem das letzte Gliederungsformat mit Nummerierung verwendet wird, das im Dialogfeld Nummerierung und Aufzählungszeichen aufgelistet ist. Im zweiten Teil des Beispiels werden der Kopfzeile zentrierte Seitenzahlen - einschließlich der Kapitelnummer - hinzugefügt. ein Bindestrich trennt die Kapitelnummer und die Seitenzahl. Die erste Überschriftenebene wird für die Kapitelnummer verwendet, und für die Seitenzahl werden römische Kleinbuchstaben verwendet.

Dim intLoop As Integer 
Dim hdrTemp As HeaderFooter 
 
Documents.Add 
For intLoop = 1 To 5 
 With Selection 
 .TypeParagraph 
 .InsertBreak 
 End With 
Next intLoop 
ActiveDocument.Content.Style = wdStyleHeading1 
ActiveDocument.Content.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdOutlineNumberGallery) _ 
 .ListTemplates(7) 
 
Set hdrTemp = ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary) 
 
With hdrTemp.PageNumbers 
 .Add PageNumberAlignment:=wdAlignPageNumberCenter 
 .NumberStyle = wdPageNumberStyleArabic 
 .IncludeChapterNumber = True 
 .HeadingLevelForChapter = 0 
 .ChapterPageSeparator = wdSeparatorEnDash 
End With

Siehe auch

PageNumbers-Auflistung (Objekt)

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über