PageNumbers.ChapterPageSeparator-Eigenschaft (Word)

Artikel
10/16/2024

Gibt das Trennzeichen, das zwischen der Kapitelnummer und der Seitenzahl verwendet wird, zurück oder legt dieses fest. WdSeparatorType-Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. ChapterPageSeparator

Ausdruck Ein Ausdruck, der ein PageNumbers-Objekt darstellt.

Hinweise

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 Kapitelnummern hinzugefügt, und die Kapitelnummer ist durch einen Gedankenstrich von der Seitenzahl getrennt.

Dim intLoop As Integer 
Dim hfTemp 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 hfTemp = ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary) 
With hfTemp.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