Cómo: Agregar encabezados y pies de página a documentos

Actualización: noviembre 2007

Se aplica a

La información de este tema sólo se aplica a los proyectos de Visual Studio Tools para Office y versiones de Microsoft Office especificados.

Tipo de proyecto

  • Proyectos de nivel de documento

  • Proyectos de nivel de aplicación

Versión de Microsoft Office

  • Word 2003

  • Word 2007

Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto.

Puede agregar texto a los encabezados y pies de página del documento con las propiedades Headers y Footers de Section. Cada sección de un documento contiene tres encabezados y pies de página:

Los procedimientos son diferentes para las personalizaciones de nivel de documento y los complementos de nivel de aplicación.

Personalizaciones de nivel de documento

Para agregar texto a los pies de página del documento

  1. Establezca la fuente del texto que se va a insertar en el pie de página principal de cada sección del 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. Inserte el texto en el pie de página.

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

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

Para agregar texto a los encabezados del documento

  1. Agregue un elemento de Autotexto para mostrar Página X de Y en cada encabezado del 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. Establezca la alineación de párrafo para que el texto se alinee a la derecha del encabezado.

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

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

Compilar el código

Para usar estos ejemplos de código, ejecútelos desde la clase ThisDocument del proyecto.

Complementos de nivel de aplicación

Para agregar texto a los pies de página de un documento

  1. Establezca la fuente del texto que se va a insertar en el pie de página principal de cada sección del documento. En este ejemplo de código se usa el documento activo.

    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. Inserte el texto en el pie de página.

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

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

Para agregar texto a los encabezados del documento

  1. Agregue un elemento de Autotexto para mostrar Página X de Y en cada encabezado del documento. En este ejemplo de código se usa el documento activo.

    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. Establezca la alineación de párrafo para que el texto se alinee a la derecha del encabezado.

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

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

Compilar el código

Para usar estos ejemplos de código, ejecútelos desde la clase ThisAddIn del proyecto.

Vea también

Tareas

Cómo: Crear nuevos documentos

Cómo: Ampliar intervalos en documentos

Cómo: Recorrer los elementos encontrados en documentos

  • Last updated on