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

  • Artigo

Se aplica a

As informações contidas neste tópico se aplicam apenas às especificado Ferramentas do Visual Studio para o Office projetos e as versões do Microsoft Office.

Tipo de Projeto

  • Projetos de nível de documento

  • Projetos de nível de aplicativo

Versão do Microsoft Office

  • Word 2003

  • Word 2007

For more information, see Recursos disponíveis pelo aplicativo e o tipo de projeto.

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

Os procedimentos são diferentes para personalizações em nível de documento e o nível de aplicativo Adicionar-ins.

Personalizações de nível de documento

Para adicionar texto a rodapés do documento

  1. Defina a fonte do texto a ser inserido no rodapé principal de cada seção do documento.

    Dim section As Word.Section

For Each section In Me.Sections
    section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
        .Range.Font.ColorIndex = Word.WdColorIndex.wdDarkRed

    section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
        .Range.Font.Size = 20

    foreach (Word.Section wordSection in this.Sections)
{
    wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
        .Range.Font.ColorIndex = Word.WdColorIndex.wdDarkRed;

    wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
        .Range.Font.Size = 20;

  2. Inserir o texto no rodapé da.

        section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
        .Range.Text = "Confidential"
Next

        wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
        .Range.Text = "Confidential";
}

Para adicionar texto a cabeçalhos no documento

  1. Adicionar uma entrada de AutoTexto para mostrar a página X de Y de cada cabeçalho no documento.

    Dim section As Word.Section
For Each section In Me.Sections

    section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Fields.Add( _
        section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range, _
        Word.WdFieldType.wdFieldEmpty, "AUTOTEXT  ""Page X of Y"" ", True)

    foreach (Word.Section section in this.Sections)
{
    object fieldEmpty = Word.WdFieldType.wdFieldEmpty;
    object autoText = "AUTOTEXT  \"Page X of Y\" ";
    object preserveFormatting = true;

    section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range.Fields.Add(
        section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range,
        ref fieldEmpty, ref autoText, ref preserveFormatting);

  2. Definir o alinhamento do parágrafo para que o texto se alinha Direito do cabeçalho.

        section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
        .Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight
Next

        section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
        .Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight;
}

Compilando o código

Para usar esses exemplos de código, execute-os da classe ThisDocument no seu projeto.

Nível de aplicativo Adicionar-ins

Para adicionar texto a rodapés em um documento

  1. Defina a fonte do texto a ser inserido no rodapé principal de cada seção do documento.Este exemplo de código usa o documento ativo.

    Dim section As Word.Section
Dim document As Word.Document = Me.Application.ActiveDocument

For Each section In document.Sections
    section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
        .Range.Font.ColorIndex = Word.WdColorIndex.wdDarkRed

    section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
        .Range.Font.Size = 20

    Word.Document document = this.Application.ActiveDocument;
foreach (Word.Section wordSection in document.Sections)
{
    wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
        .Range.Font.ColorIndex = Word.WdColorIndex.wdDarkRed;

    wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
        .Range.Font.Size = 20;

  2. Inserir o texto no rodapé da.

        section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
        .Range.Text = "Confidential"
Next

        wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
        .Range.Text = "Confidential";
}

Para adicionar texto a cabeçalhos no documento

  1. Adicionar uma entrada de AutoTexto para mostrar a página X de Y de cada cabeçalho no documento.Este exemplo de código usa o documento ativo.

    Dim section As Word.Section
For Each section In Me.Application.ActiveDocument.Sections

    section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Fields.Add( _
        section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range, _
        Word.WdFieldType.wdFieldEmpty, "AUTOTEXT  ""Page X of Y"" ", True)

    foreach (Word.Section section in this.Application.ActiveDocument.Sections)
{
    object fieldEmpty = Word.WdFieldType.wdFieldEmpty;
    object autoText = "AUTOTEXT  \"Page X of Y\" ";
    object preserveFormatting = true;

    section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range.Fields.Add(
        section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range,
        ref fieldEmpty, ref autoText, ref preserveFormatting);

  2. Definir o alinhamento do parágrafo para que o texto se alinha Direito do cabeçalho.

        section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
        .Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight
Next

        section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
        .Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight;
}

Compilando o código

Para usar esses exemplos de código, execute-os da classe ThisAddIn no seu projeto.

Consulte também

Tarefas

Como: Criar novo documento

Como: Estender intervalos em documentos

Como: Loop através de itens localizados em documentos