Compartilhar via

Propriedade HeaderFooter.IsHeader (Publisher)

  • Artigo

True se o objeto HeaderFooter especificado for um cabeçalho; False se for um rodapé. Boolean somente leitura.

Sintaxe

expressão. IsHeader

Expressão Uma variável que representa um objeto HeaderFooter .

Valor de retorno

Booliano

Exemplo

O exemplo a seguir cria uma nova coleção e a preenche com o cabeçalho e o rodapé de cada página mestra. A coleção é iterada e um teste é feito para determinar se o objeto HeaderFooter é um cabeçalho ou rodapé e, em seguida, o texto apropriado é escrito no cabeçalho ou rodapé.

Dim objHeadersFooters As Collection 
Dim objMasterPage As page 
Dim objHeadFoot As HeaderFooter 
 
Set objHeadersFooters = New Collection 
For Each objMasterPage In ActiveDocument.masterPages 
 objHeadersFooters.Add objMasterPage.Header 
 objHeadersFooters.Add objMasterPage.Footer 
Next objMasterPage 
 
For Each objHeadFoot In objHeadersFooters 
 If objHeadFoot.IsHeader = True Then 
 objHeadFoot.TextRange.Text = "Header Text" 
 ElseIf objHeadFoot.IsHeader = False Then 
 objHeadFoot.TextRange.Text = "Footer Text" 
 End If 
Next

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.