Objeto Documents (Publisher)
Representa todas as publicações abertas. A coleção Documentos contém todos os objetos Document que estão abertos no Microsoft Publisher.
Comentários
Use a propriedade Documents para retornar a coleção Documentos .
Use a Adicionar método para adicionar um novo documento à coleção. Uma instância nova e visível do Publisher é criada quando o método Add é chamado.
Use a propriedade Item (index), em que o índice é o número de índice ou o nome do documento como uma Cadeia de Caracteres, para retornar um objeto de documento específico.
Exemplo
O exemplo a seguir lista todas as publicações abertas.
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
O exemplo a seguir adiciona um novo documento à coleção Documents.
Dim objDocument As Document
Set objDocument = Documents.Add
With objDocument
.LayoutGuides.Columns = 4
.LayoutGuides.Rows = 9
.ActiveView.Zoom = pbZoomWholePage
End With
O exemplo a seguir exibe o nome da primeira publicação aberta.
If Documents.Count >= 1 Then
MsgBox Documents.Item(1).Name
End If
O exemplo a seguir verifica o nome de cada documento na coleção Documents. Se o nome de um documento for Sales.doc, uma variável objSalesDoc de objeto será definida como esse documento na coleção Documentos .
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
Propriedades
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.