Compartir a través de

Objeto HeadersFooters (Word)

  • Artículo

Una colección de HeaderFooter objetos que representan los encabezados o pies de página de la sección especificada de un documento.

Comentarios

Utilice la propiedad Headers o Footers para devolver la colección HeadersFooters. En el ejemplo siguiente se muestra el texto del pie de página principal de la primera sección del documento activo.

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary) 
 If .Range.Text <> vbCr Then 
 MsgBox .Range.Text 
 Else 
 MsgBox "Footer is empty" 
 End If 
End With

Nota:

[!NOTA] No se puede agregar objetos HeaderFooter al conjunto HeadersFooters.

Use Headers (Index) o Footers (Index), donde index es una de las constantes WdHeaderFooterIndex (wdHeaderFooterEvenPages, wdHeaderFooterFirstPage o wdHeaderFooterPrimary), para devolver un solo objeto HeaderFooter . En el ejemplo siguiente se cambia el texto del encabezado y el pie de página principal de la primera sección del documento activo.

With ActiveDocument.Sections(1) 
 .Headers(wdHeaderFooterPrimary).Range.Text = "Header text" 
 .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text" 
End With

También puede devolver un solo objeto HeaderFooter mediante la HeaderFooter propiedad con un objeto Selection.

Utilice el DifferentFirstPageHeaderFooter propiedad con el objeto PageSetup para especificar una primera página diferente. En el ejemplo siguiente se inserta texto en el primer pie de página del documento activo.

With ActiveDocument 
 .PageSetup.DifferentFirstPageHeaderFooter = True 
 .Sections(1).Footers(wdHeaderFooterFirstPage) _ 
 .Range.InsertBefore _ 
 "Written by Kate Edson" 
End With

Utilice el OddAndEvenPagesHeaderFooter propiedad con el objeto PageSetup para especificar encabezados de página pares e impares distintos y pies de página. Si la propiedad OddAndEvenPagesHeaderFooter es True, puede devolver un encabezado impar o pie de página utilizando wdHeaderFooterPrimary y puede devolver un encabezado o pie de página par mediante wdHeaderFooterEvenPages.

Utilice la ventana Agregar método con el objeto PageNumbers para agregar un número de página a un encabezado o pie de página. En el siguiente ejemplo se agrega números de página al primer pie de página en la primera sección del documento activo.

With ActiveDocument.Sections(1) 
 .PageSetup.DifferentFirstPageHeaderFooter = True 
 .Footers(wdHeaderFooterPrimary).PageNumbers.Add _ 
 FirstPage:=True 
End With

Vea también

Referencia de modelos de objetos de Word

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.