Compartilhar via

Objeto Documentos (Publisher)

Representa todas as publicações abertas. A coleção Documentos contém todos os objetos documentos que estão abertos no Microsoft Publisher.

Comentários

Utilize a propriedade Documentos para devolver 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.

Utilize a propriedade Item (índice), em que o índice é o número do índice ou o nome do documento como uma Cadeia, para devolver um objeto de documento específico.

Exemplo

O exemplo seguinte 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 é definida para 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.

  • Last updated on