Objeto HeaderFooter (Publisher)
Representa o cabeçalho ou o rodapé de uma página mestra.
Comentários
Use Page.Header ou Page.Footer para retornar um objeto HeaderFooter .
Use o método Delete para excluir qualquer conteúdo existente de um cabeçalho ou rodapé. Chamar esse método não exclui o quadro de texto, mas apenas seu conteúdo.
Use a propriedade TextRange para retornar um objeto TextRange que representa o cabeçalho ou rodapé de uma página mestra. Qualquer manipulação de conteúdo de cabeçalho ou rodapé é feita usando essa propriedade do objeto HeaderFooter .
Exemplo
O exemplo a seguir adiciona texto ao cabeçalho da primeira página mestra do documento ativo.
Dim objHeader As HeaderFooter
Set objHeader = ActiveDocument.MasterPages(1).Header
objHeader.TextRange.Text = "Master Page 1 Header"
O exemplo a seguir exclui todo o conteúdo de cabeçalho e rodapé de todas as páginas mestras em uma publicação.
Dim objMasterPage As page
For Each objMasterPage In ActiveDocument.masterPages
objMasterPage.Header.Delete
objMasterPage.Footer.Delete
Next
O exemplo a seguir primeiro exclui qualquer conteúdo existente e, em seguida, adiciona um timbre ao cabeçalho de uma página mestra.
Dim objHeader As HeaderFooter
Set objHeader = ActiveDocument.MasterPages(1).Header
With objHeader
.Delete
.TextRange.Text = "<Insert Address Here>"
End With
Métodos
Propriedades
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.