Share via

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

  • Artículo

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.

Se aplica a: la información de este tema se aplica a los proyectos de nivel de documento y los proyectos de nivel de aplicación para Word 2007 y Word 2010. Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto de Office.

Personalizaciones de nivel de documento

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

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

  • En el ejemplo de código siguiente se establece la fuente del texto que se va a insertar en el pie de página principal de cada sección del documento y, a continuación, se inserta texto en el pie de página.

    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 agregar texto a los encabezados del documento

  • En el ejemplo de código siguiente se agrega un campo para mostrar el número de página en cada encabezado del documento y, a continuación, se establece la alineación de párrafo para que el texto se alinee a la derecha del encabezado.

    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;
}

Complementos de nivel de aplicación

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

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

  • En el ejemplo de código siguiente se establece la fuente del texto que se va a insertar en el pie de página principal de cada sección del documento y, a continuación, se inserta texto en el pie de página. En este ejemplo de código se usa el documento activo.

    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 agregar texto a los encabezados del documento

  • En el ejemplo de código siguiente se agrega un campo para mostrar el número de página en cada encabezado del documento y, a continuación, se establece la alineación de párrafo para que el texto se alinee a la derecha del encabezado. En este ejemplo de código se usa el documento activo.

    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;
}

Vea también

Tareas

Cómo: Crear nuevos documentos

Cómo: Ampliar intervalos en documentos

Cómo: Recorrer los elementos encontrados en documentos