Compartilhar via


Objeto Documents (Word)

Uma coleção de todos os objetos Document que estão abertos atualmente no Word.

Comentários

Use a propriedade Documents para retornar à coleção Documents. O exemplo a seguir exibe os nomes dos documentos abertos.

For Each aDoc In Documents 
 aName = aName & aDoc.Name & vbCr 
Next aDoc 
MsgBox aName

Use o método Add para criar um novo documento vazio e adicioná-lo à coleção Documentos . O exemplo a seguir cria um novo documento baseado no modelo Normal.

Documents.Add

Use o método Open para abrir um arquivo. O exemplo a seguir abre o documento chamado "Sales.doc".

Documents.Open FileName:="C:\My Documents\Sales.doc"

Use documentos (índice), onde índice é o nome do documento ou o número de índice para retornar um único objeto de documento. A instrução a seguir fecha o documento chamado "Report.doc" sem salvar alterações.

Documents("Report.doc").Close SaveChanges:=wdDoNotSaveChanges

O número de índice representa a posição do documento no conjunto de documentos. O exemplo a seguir ativa o primeiro documento no conjunto de documentos.

Documents(1).Activate

O exemplo a seguir enumera a coleção Documents para determinar se o documento chamado "Report.doc" está aberto. Se esse documento estiver contido na coleção Documents, será ativado; caso contrário, será aberto.

For Each doc In Documents 
 If doc.Name = "Report.doc" Then found = True 
Next doc 
If found <> True Then 
 Documents.Open FileName:="C:\Documents\Report.doc" 
Else 
 Documents("Report.doc").Activate 
End If

Confira também

Referência do modelo de objeto do Word

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.