Método PageNumbers.Add (Word)
Devuelve un objeto PageNumber que representa los números de página agregados al encabezado o pie de página de una sección.
Sintaxis
expresión. Add (PageNumberAlignment, FirstPage)
expresión requerida. Variable que representa un objeto PageNumbers .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| PageNumberAlignment | Opcional | Variant | Puede ser cualquier constante WdPageNumberAlignment. |
| FirstPage | Opcional | Variant | False para que el encabezado y el pie de página de la primera página sean distintos a los del resto de las páginas del documento. Si FirstPage se establece como False, no se insertará ningún número de página en la primera página. Si se omite este argumento, el valor lo controla la propiedad DifferentFirstPageHeaderFooter. |
Comentarios
Si la propiedad LinkToPrevious del objeto HeaderFooter se establece en True, los números de página continuarán secuencialmente de una sección a otra a lo largo del documento.
Ejemplo:
En este ejemplo se agrega un número de página al primer pie de página de la primera sección del documento activo.
With ActiveDocument.Sections(1)
.Footers(wdHeaderFooterPrimary).PageNumbers.Add _
PageNumberAlignment:=wdAlignPageNumberLeft, _
FirstPage:=True
End With
En este ejemplo se insertan números de página en el encabezado del documento activo y se les da formato.
Set myPgNum = ActiveDocument.Sections(1) _
.Headers(wdHeaderFooterPrimary) _
.PageNumbers.Add(PageNumberAlignment:= _
wdAlignPageNumberCenter, FirstPage:= True)
myPgNum.Select
With Selection.Range
.Italic = True
.Bold = True
End With
Consulte también
Objeto de colección PageNumbers
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.