Objeto Documents (Publicador)

Representa todas las publicaciones abiertas. La colección Documents contiene todos los objetos Document que están abiertos en Microsoft Publisher.

Observaciones

Utilice la propiedad Documents para devolver la colección Documents .

Utilice la ventana Agregar método para agregar un documento nuevo a la colección. Se crea una instancia nueva y visible de Publisher cuando se llama al método Add.

Use la propiedad Item (index), donde index es el número de índice o el nombre del documento como string, para devolver un objeto de documento específico.

Ejemplo

En el ejemplo siguiente se enumeran todas las publicaciones abiertas.

Dim objDocument As Document 
Dim strMsg As String 
For Each objDocument In Documents 
 strMsg = strMsg & objDocument.Name & vbCrLf 
Next objDocument 
MsgBox Prompt:=strMsg, Title:="Current Documents Open", Buttons:=vbOKOnly

En el ejemplo siguiente se agrega un documento nuevo a la colección Documents.

Dim objDocument As Document 
Set objDocument = Documents.Add 
With objDocument 
 .LayoutGuides.Columns = 4 
 .LayoutGuides.Rows = 9 
 .ActiveView.Zoom = pbZoomWholePage 
End With

En el ejemplo siguiente se muestra el nombre de la primera publicación abierta.

If Documents.Count >= 1 Then 
 MsgBox Documents.Item(1).Name 
End If 

En el ejemplo siguiente se comprueba el nombre de cada documento en la colección Documents. Si se Sales.doc el nombre de un documento, se establece una variable objSalesDoc de objeto en ese documento en la colección Documents .

Dim objDocument As Document 
Dim objSalesDoc As Document 
For Each objDocument In Documents 
 If objDocument.Name = "Sales.doc" Then 
 Set objSalesDoc = objDocument 
 End If 
Next objDocument

Métodos

• Add

Propiedades

• Application
• Count
• Elemento
• Parent

Vea también

• Referencia del modelo de objetos de Publisher

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.