Compartilhar via


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.