Compartir a través de


Objeto Page (Publisher)

Representa una página de una publicación. La colección Pages contiene todos los objetos de página de una publicación.

Observaciones

Use Pages (índice) para devolver un único objeto Page .

Use la propiedad FindByPageID del objeto Pages para buscar un objeto Page mediante el identificador de página asignado por la aplicación.

Use el método Add para crear una página y agregarla a la publicación.

Ejemplo

En el ejemplo siguiente se agrega texto nuevo a la primera forma de la primera página de la publicación activa.

Sub AddPageNumberField() 
 With ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 .InsertAfter " This text is added after the existing text." 
 .Font.Size = 15 
 End With 
End Sub

En el ejemplo siguiente se agrega una nueva página a la publicación activa y, a continuación, se busca esa página mediante el identificador de página.

Sub FindPage() 
 Dim lngPageID As Long 
 
 'Get page ID 
 lngPageID = ActiveDocument.Pages.Add(Count:=1, After:=1).PageID 
 
 'Use page ID to add a new shape to the page 
 ActiveDocument.Pages.FindByPageID(PageID:=lngPageID) _ 
 .Shapes.AddShape Type:=msoShape5pointStar, _ 
 Left:=200, Top:=72, Width:=50, Height:=50 
 
End Sub

Métodos

Propiedades

Vea también

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.