Clase PageNumber - número de página (Word VBA)

La clase PageNumber representa un número de página en un encabezado o pie de página.

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

Dim pnr as PageNumber
Set pnr = Selection.HeaderFooter.PageNumbers(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase PageNumber : PageNumbers.Add y PageNumbers.Item.

For Each

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

Dim pnr As PageNumber
For Each pnr In Selection.HeaderFooter.PageNumbers
	
Next pnr

Alignment

Devuelve o establece una constante WdPageNumberAlignment que representa la alineación del número de página. Posibles valores de retorno son wdAlignPageNumberCenter - Centrado, wdAlignPageNumberInside - Alineado a la izquierda en el interior del pie de página, wdAlignPageNumberLeft - Alineado a la izquierda, wdAlignPageNumberOutside - Alineado a la derecha en el exterior del pie de página, wdAlignPageNumberRight - Alineada a la derecha.

Selection.HeaderFooter.PageNumbers(1).Alignment = wdAlignPageNumberCenter

Copy

Copia el número de página especificado en el Portapapeles.

Selection.HeaderFooter.PageNumbers(1).Copy

Cut

Elimina el objeto especificado del documento y lo coloca en el Portapapeles.

Si la expresión devuelve un objeto Range o Selection , el contenido del objeto se mueve al portapapeles, pero el objeto contraído permanece en el documento.

If ActiveDocument.Fields.Count >= 1 Then 
 ActiveDocument.Fields(1).Cut 
 Selection.Collapse Direction:=wdCollapseEnd 
 Selection.Paste 
End If

Delete

Elimina el número de página especificado.

Selection.HeaderFooter.PageNumbers(1).Delete

Index

Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

Dim lngIndex As Long
lngIndex = Selection.HeaderFooter.PageNumbers(1).Index

Select

Selecciona el número de página especificado.

Después de utilizar este método, utilice la propiedad Selection para trabajar con los elementos seleccionados.

Selection.HeaderFooter.PageNumbers(1).Select