PageNumbers.ChapterPageSeparator (Word)

Retorna ou define o caractere separador usado entre o número do capítulo e o número da página. Leitura/gravação WdSeparatorType. Os valores de retorno possíveis são wdSeparatorColon - Dois-pontos, wdSeparatorEmDash - Um travessão enfatizado, wdSeparatorEnDash - Um travessão padrão, wdSeparatorHyphen - Um hífen, wdSeparatorPeriod - Um ponto-final.

Antes de criar os números de página que incluem números de capítulo, os títulos do documento devem ter um formato de estrutura de tópicos numerados aplicado que usa os estilos de caixa de diálogo marcadores e numeração. Para fazer isso no Visual Basic, use o método ApplyListTemplate.

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