Propriedade PageNumbers.ChapterPageSeparator (Word)

Retorna ou define o caractere separador usado entre o número do capítulo e o número da página. WdSeparatorType de leitura/gravação.

Sintaxe

expression. ChapterPageSeparator

Expressão Uma expressão que representa um objeto 'PageNumbers'.

Comentários

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.

Exemplo

A primeira parte deste exemplo cria um novo documento, adiciona títulos de capítulo e quebras de página e formata o documento usando o último formato de tópico numerado listado na caixa de diálogo Marcadores e numeração. A segunda parte deste exemplo adiciona ao cabeçalho números de página — incluindo o número do capítulo — centralizados, com um traço separando o número de capítulo do número de página.

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

Confira também

Objeto da coleção PageNumbers

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.