Événement Application.NewDocument (Word)

  • Article

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.