Événement Document.New (Word)

Cet événement se produit lorsqu'un nouveau document basé sur le modèle est créé. Exécution d'une procédure de l'événement New uniquement s'il est stocké dans un modèle.

Syntaxe

expression.**Private Sub Document_New'

Expression Variable qui représente un objet Document .

Remarques

Pour plus d’informations sur l’utilisation d’événements avec l’objet Document , consultez Utilisation d’événements avec l’objet Document.

Exemple

Cet exemple montre comment demande à l'utilisateur s'il faut enregistrer tous les autres documents ouverts lors de la création d'un nouveau document basé sur le modèle. (Cette procédure est enregistrée dans le module de classe ThisDocument d'un modèle et non pas dans un document.)

Private Sub Document_New() 
 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 Application.Documents 
 With docLoop 
 If .Name <> strName Then 
 .Save 
 End If 
 End With 
 Next docLoop 
 End If 
End Sub

Voir aussi

Objet Document

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.