Clase PageNumber (Word VBA)

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

Los principales procedimientos de la clase PageNumber son Copy, Delete, Select y PageNumbers.Add

Set

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, PageNumbers.Item y HeaderFooter.PageNumbers

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

Métodos

Los principales métodos de la clase PageNumber son

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

Selection.HeaderFooter.PageNumbers(1).Copy

Delete - Elimina el número de página especificado.

Selection.HeaderFooter.PageNumbers(1).Delete

Select - Selecciona el número de página especificado.

Selection.HeaderFooter.PageNumbers(1).Select

PageNumbers.Add - Devuelve un objeto PageNumber que representa los números de página agregados al encabezado o pie de página de una sección.

Dim pnr As PageNumber
Set pnr = Selection.HeaderFooter.PageNumbers.Add()

Propiedades

Alignment Devuelve o establece una constante WdPageNumberAlignment que representa la alineación del número de página.

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

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

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

Dim objParent As Object
Set objParent = Selection.HeaderFooter.PageNumbers(1).Parent

PageNumbers.ChapterPageSeparator Devuelve o establece el carácter separador que se usa entre el número de capítulo y el número de página.

Selection.HeaderFooter.PageNumbers.ChapterPageSeparator = wdSeparatorColon

PageNumbers.Count Devuelve un Long que representa el número de números de página de la colección.

Dim lngCount As Long
lngCount = Selection.HeaderFooter.PageNumbers.Count

PageNumbers.DoubleQuote True si Microsoft Word incluye el objeto PageNumbers especificado entre comillas dobles (").

Selection.HeaderFooter.PageNumbers.DoubleQuote = True

PageNumbers.HeadingLevelForChapter Devuelve o establece el nivel de título que se aplica a los títulos de capítulo del documento.

Selection.HeaderFooter.PageNumbers.HeadingLevelForChapter =

PageNumbers.IncludeChapterNumber True si un número de capítulo se incluye con números de página o una etiqueta de título.

Selection.HeaderFooter.PageNumbers.IncludeChapterNumber = True

PageNumbers.NumberStyle Devuelve o establece una constante WdPageNumberStyle que representa el estilo de número.

Selection.HeaderFooter.PageNumbers.NumberStyle = wdPageNumberStyleArabic

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

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

PageNumbers.RestartNumberingAtSection True si la numeración comienza en 1 nuevo al principio de la sección especificada.

Selection.HeaderFooter.PageNumbers.RestartNumberingAtSection = True

PageNumbers.ShowFirstPageNumber True si el número de página aparece en la primera página de la sección.

Selection.HeaderFooter.PageNumbers.ShowFirstPageNumber = True

PageNumbers.StartingNumber Devuelve o establece el número inicial de nota, número de línea o número de página.

Selection.HeaderFooter.PageNumbers.StartingNumber =