Partager via


Objet Documents (Word)

Collection de tous les objets Document actuellement ouverts dans Word.

Remarques

Pour renvoyer la collection Documents, utilisez la propriété Documents. L’exemple suivant montre comment afficher les noms des documents ouverts.

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

Utilisez la méthode Add pour créer un document vide et l’ajouter à la collection Documents . L'exemple suivant montre comment créer un nouveau document basé sur le modèle Normal.

Documents.Add

Utilisez la méthode Open pour ouvrir un fichier. L'exemple suivant montre comment ouvrir le document nommé « Sales.doc ».

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

Utilisez Documents (Index), où Index est le nom ou le numéro d’index du document pour renvoyer un seul objet Document . The following instruction closes the document named "Report.doc" without saving changes.

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

Le numéro d’index représente la position du document dans la collection Documents. L’exemple suivant montre comment activer le document qui figure en première position dans la collection Documents.

Documents(1).Activate

L’exemple suivant montre comment vérifier si la collection Documents contient le document nommé « Report.doc » et ainsi déterminer s’il est ouvert. Si le document se trouve dans la collection Documents, il est activé, sinon il est ouvert.

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

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.