PageNumbers.ChapterPageSeparator (Word)

Renvoie ou définit le caractère utilisé comme séparateur entre le numéro de chapitre et le numéro de page. Les valeurs de retour possibles sont wdSeparatorColon - Deux-points, wdSeparatorEmDash - Tiret long, wdSeparatorEnDash - Tiret standard, wdSeparatorHyphen - Trait d'union, wdSeparatorPeriod - Point.

Avant de pouvoir créer des numéros de page qui incluent les numéros de chapitre, les titres de document doivent un plan numéroté être appliquée qui utilise des styles à partir de la boîte de dialogue Puces et numéros.

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