PageNumbers.ChapterPageSeparator (Word)

Devuelve o establece el carácter separador que se usa entre el número de capítulo y el número de página. Posibles valores de retorno son wdSeparatorColon - Carácter de dos puntos, wdSeparatorEmDash - Carácter de guión enfatizado, wdSeparatorEnDash - Carácter de guión estándar, wdSeparatorHyphen - Carácter de guión, wdSeparatorPeriod - Carácter de punto.

Antes de crear números de página que incluyan números de capítulos, los títulos del documento deben tener un formato de esquema numerado que utilice estilos del cuadro de diálogo Numeración y viñetas.

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