Événement Application.DocumentChange (Word)
Se produit lors de la création d'un nouveau document, de l'ouverture d'un document existant ou de la sélection d'un autre document comme document actif.
Syntaxe
expression.**DocumentChange'()
Expression Variable qui représente un objet « Application » déclaré avec des événements dans un module de classe.
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 lorsque le focus du document change. 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_DocumentChange()
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.