Événement Application.NewDocument (Word)
Se produit lors de la création d'un document.
Remarque
Si vous travaillez avec un document incorporé dans un autre document, cet événement ne se produit pas.
Syntaxe
Sous-application privée _NewDocument(ByVal Doc As Document)
Expression Variable qui représente un objet Application qui a été déclaré avec des événements dans un module de classe.
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Doc | Obligatoire | Document | Nouveau document. |
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 lors de la création d’un nouveau document. 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 Application pour obtenir des instructions sur la façon d’y parvenir.
Public WithEvents appWord as Word.Application
Private Sub appWord_NewDocument(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.