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
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.