Clase HeaderFooter (Word VBA)

La clase HeaderFooter representa un solo encabezado o pie de página.

Set

Para usar una variable de clase HeaderFooter, primero debe ser instanciado, por ejemplo

Dim hfr as HeaderFooter
Set hfr = Selection.HeaderFooter

Los siguientes procedimientos se pueden usar para establecer variables de clase HeaderFooter : HeadersFooters.Item, Selection.HeaderFooter, Section.Footers y Section.Headers

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos HeaderFooter en una colección.

Dim hfrFooter As HeaderFooter
For Each hfrFooter In Footers
	
Next hfrFooter

Propiedades

Exists True si existe el objeto HeaderFooter especificado.

Selection.HeaderFooter.Exists = True

Index Devuelve un WdHeaderFooterIndex que representa el encabezado o pie de página especificado en un documento o una sección.

Dim whfIndex As WdHeaderFooterIndex
whfIndex = Selection.HeaderFooter.Index

IsEmpty

Dim booIsEmpty As Boolean
booIsEmpty = Selection.HeaderFooter.IsEmpty

IsHeader True si el objeto HeaderFooter especificado es un encabezado.

Dim booIsHeader As Boolean
booIsHeader = Selection.HeaderFooter.IsHeader

LinkToPrevious True si el encabezado o el pie de página está vinculado al encabezado o pie de página correspondiente de la sección anterior.

Selection.HeaderFooter.LinkToPrevious = True

PageNumbers Devuelve una colección PageNumbers que representa todos los campos de número de página incluidos en el encabezado o pie de página especificado.

Dim pnsPageNumbers As PageNumbers
Set pnsPageNumbers = Selection.HeaderFooter.PageNumbers

Parent Devuelve un objeto Object que representa el objeto primario del objeto HeaderFooter especificado.

Dim objParent As Object
Set objParent = Selection.HeaderFooter.Parent

Range Devuelve un objeto Range que representa la parte de un documento incluida en el encabezado o pie de página especificado.

Dim rngRange As Range
Set rngRange = Selection.HeaderFooter.Range

Shapes Devuelve una colección Shapes que representa todos los objetos Shape de un encabezado o pie de página.

Dim shpsShapes As Shapes
Set shpsShapes = Selection.HeaderFooter.Shapes

HeadersFooters.Count Devuelve un Long que representa el número de encabezados y pies de página de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Sections(1).Headers.Count

HeadersFooters.Parent Devuelve un objeto Object que representa el objeto primario del objeto HeadersFooters especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Sections(1).Headers.Parent