Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Devuelve un objeto TextRange que representa un campo de número de página en una publicación.
Sintaxis
expresión. InsertPageNumber (type)
expresión Variable que representa un objeto TextRange .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Type | Opcional | PbPageNumberType | Especifica si el número de página es el número de la página actual o el número de la página siguiente o anterior de un cuadro de texto vinculado. Puede ser una de las constantes PbPageNumberType . |
Valor devuelto
TextRange
Ejemplo
En este ejemplo se inserta un campo de número de página en una forma de la página principal para que el número de página actual aparezca en la parte superior de cada página.
Sub PageNumberShape()
With ActiveDocument.MasterPages(1).Shapes _
.AddShape(Type:=msoShape5pointStar, Left:=36, _
Top:=36, Width:=50, Height:=50)
With .TextFrame.TextRange
.InsertPageNumber
.ParagraphFormat.Alignment = pbParagraphAlignmentCenter
End With
.Fill.ForeColor.RGB = RGB(Red:=125, Green:=125, Blue:=255)
End With
End Sub
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.