Propriedade HeaderFooter.LinkToPrevious (Word)
True se o cabeçalho ou o rodapé especificado está vinculado ao cabeçalho ou rodapé correspondente na seção anterior. Boolean de leitura/gravação.
Sintaxe
expression. LinkToPrevious
Expressão Uma expressão que retorna um objeto 'HeaderFooter'.
Comentários
Quando um cabeçalho ou um rodapé está vinculado, seu conteúdo é o mesmo que o do cabeçalho ou do rodapé anterior. Como a propriedade LinkToPrevious está definida como True por padrão, você pode adicionar cabeçalhos, rodapés e números de página ao documento inteiro trabalhando com os cabeçalhos, rodapés e números de página da primeira seção. Por exemplo, adicionar números de página ao cabeçalho de todas as páginas em todas as seções do documento ativo.
ActiveDocument.Sections(1) _
.Headers(wdHeaderFooterPrimary).PageNumbers.Add
A propriedade LinkToPrevious aplica-se a cada cabeçalho ou rodapé individualmente. Por exemplo, a propriedade LinkToPrevious poderia ser definida como True para o cabeçalho de página de numeração par, mas como False para o rodapé de página de numeração par.
Exemplo
A primeira parte deste exemplo cria um novo documento com duas seções. A segunda parte cria cabeçalhos exclusivos para as páginas de numeração par e ímpar nas seções um e dois do novo documento.
Documents.Add
With Selection
For j = 1 to 4
.TypeParagraph
.InsertBreak
.TypeParagraph
Next j
End With
With ActiveDocument
.Paragraphs(5).Range.InsertBreak Type:=wdSectionBreakNextPage
.PageSetup.OddAndEvenPagesHeaderFooter = True
End With
With ActiveDocument.Sections(2)
With .Headers(wdHeaderFooterPrimary)
.LinkToPrevious = False
.Range.InsertBefore "Section 2 Odd Header"
End With
With .Headers(wdHeaderFooterEvenPages)
.LinkToPrevious = False
.Range.InsertBefore "Section 2 Even Header"
End With
End With
With ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary) _
.Range.InsertBefore "Section 1 Odd Header"
.Headers(wdHeaderFooterEvenPages) _
.Range.InsertBefore "Section 1 Even Header"
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.