PageNumbers.ChapterPageSeparator (Word)
Gibt das Trennzeichen, das zwischen der Kapitelnummer und der Seitenzahl verwendet wird, zurück oder legt dieses fest. Mögliche Rückgabewerte sind wdSeparatorColon - Doppelpunkt, wdSeparatorEmDash - Geviertstrich, wdSeparatorEnDash - Gedankenstrich, wdSeparatorHyphen - Trennstrich, wdSeparatorPeriod - Punkt.
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.
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