Événement Application.DocumentOpen (Word)
Se produit à l'ouverture d'un document.
Syntaxe
expression. DocumentOpen (Doc As Document**)
Expression Variable qui représente un objet « Application » déclaré avec des événements dans un module de classe.
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Doc | Obligatoire | Document | Document en cours d'ouverture. |
Remarques
Pour plus d’informations sur l’utilisation d’événements avec l’objet Application , consultez Utilisation d’événements avec l’objet Application.
Exemple
Cet exemple demande à l’utilisateur s’il faut enregistrer tous les autres documents ouverts lorsqu’un document est ouvert. Ce code doit être placé dans un module de classe et une instance de la classe doit être correctement initialisée pour que cet exemple fonctionne . Consultez Utilisation d’événements avec l’objet Applicationpour obtenir des instructions sur la façon d’y parvenir.
Public WithEvents appWord as Word.Application
Private Sub appWord_DocumentOpen(ByVal Doc As Document)
Dim intResponse As Integer
Dim strName As String
Dim docLoop As Document
intResponse = MsgBox("Save all other documents?", vbYesNo)
If intResponse = vbYes Then
strName = ActiveDocument.Name
For Each docLoop In Documents
With docLoop
If .Name <> strName Then
.Save
End If
End With
Next docLoop
End If
End Sub
Voir aussi
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.