Como: Adicionar cabeçalhos e rodapés aos documentos

Você pode adicionar texto aos cabeçalhos e rodapés no documento usando o Headers propriedade e Footers propriedade da Section. Cada seção de um documento contém três cabeçalhos e rodapés:

• wdHeaderFooterPrimary

• wdHeaderFooterEvenPages

• wdHeaderFooterFirstPage

Os procedimentos são diferentes das personalizações em nível de documento e os suplementos de nível de aplicativo.

Aplicável a: As informações neste tópico se aplicam a projetos de nível de documento e projetos de nível de aplicativo para Word 2007 e Word 2010. Para obter mais informações, consulte Recursos disponíveis pelo aplicativo do Office e o tipo de projeto.

Personalizações em nível de documento

Para usar os exemplos de código a seguir, executá-los pelo ThisDocument classe no projeto.

Para adicionar texto aos rodapés do documento

• O exemplo de código a seguir define a fonte do texto a ser inserido no rodapé de cada seção do documento principal e, em seguida, insere o texto no rodapé.

  For Each section As Word.Section In Me.Sections
      Dim footerRange As Word.Range = section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
      footerRange.Font.ColorIndex = Word.WdColorIndex.wdDarkRed
      footerRange.Font.Size = 20
      footerRange.Text = "Confidential"
  Next
  

  foreach (Word.Section wordSection in this.Sections)
  {
      Word.Range footerRange = wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
      footerRange.Font.ColorIndex = Word.WdColorIndex.wdDarkRed;
      footerRange.Font.Size = 20;
      footerRange.Text = "Confidential";
  }
  

Para adicionar texto aos cabeçalhos do documento

• O exemplo de código a seguir adiciona um campo para mostrar o número de página em cada cabeçalho do documento e, em seguida, define o alinhamento de parágrafo, para que o texto é alinhado à direita do cabeçalho.

  For Each section As Word.Section In Me.Sections
      Dim headerRange As Word.Range = section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
      headerRange.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage)
      headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight
  Next
  

  foreach (Word.Section section in this.Sections)
  {
      Word.Range headerRange = section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
      headerRange.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage);
      headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight;
  }
  

Suplementos de nível de aplicativo

Para usar os exemplos de código a seguir, executá-los pelo ThisAddIn classe no projeto.

Para adicionar texto aos rodapés em um documento

• O exemplo de código a seguir define a fonte do texto a ser inserido no rodapé de cada seção do documento principal e, em seguida, insere o texto no rodapé. Este exemplo de código usa o documento ativo.

  For Each section As Word.Section In Me.Application.ActiveDocument.Sections
      Dim footerRange As Word.Range = section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
      footerRange.Font.ColorIndex = Word.WdColorIndex.wdDarkRed
      footerRange.Font.Size = 20
      footerRange.Text = "Confidential"
  Next
  

  foreach (Word.Section wordSection in this.Application.ActiveDocument.Sections)
  {
      Word.Range footerRange = wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
      footerRange.Font.ColorIndex = Word.WdColorIndex.wdDarkRed;
      footerRange.Font.Size = 20;
      footerRange.Text = "Confidential";
  }
  

Para adicionar texto aos cabeçalhos do documento

• O exemplo de código a seguir adiciona um campo para mostrar o número de página em cada cabeçalho do documento e, em seguida, define o alinhamento de parágrafo, para que o texto é alinhado à direita do cabeçalho. Este exemplo de código usa o documento ativo.

  For Each section As Word.Section In Me.Application.ActiveDocument.Sections
      Dim headerRange As Word.Range = section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
      headerRange.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage)
      headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight
  Next
  

  foreach (Word.Section section in this.Application.ActiveDocument.Sections)
  {
      Word.Range headerRange = section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
      headerRange.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage);
      headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight;
  }
  

Consulte também

Tarefas

Como: Criar novos documentos

Como: Estender a intervalos em documentos

Como: Percorrer todos os itens encontrados em documentos