Partager via

Utilisation d’événements avec l’objet Document (Publisher)

  • Article

L'objet Document prend en charge sept événements : BeforeClose, Open, Redo, ShapesAdded, ShapesRemoved, Undo et WizardAfterChange. Vous écrivez des procédures pour répondre à ces événements dans le module de classe nommé ThisDocument.

Pour créer une procédure événementielle, procédez comme suit :

  1. Sous votre projet de publication, dans la fenêtre Explorateur de projets , double-cliquez sur ThisDocument. En mode Dossier , ThisDocument se trouve dans le dossier Objets Microsoft Publisher .

  2. Sélectionnez Document dans la zone de liste déroulante Objet.

  3. Sélectionnez un événement dans la zone de liste déroulante Procédure. Une sous-routine vide s'ajoute au module de classe.

  4. Ajoutez les instructions Visual Basic que vous souhaitez exécuter lorsque l’événement se produit.

Exemple

Cet exemple montre une procédure événementielle Open qui affiche un message lorsqu’une composition est ouverte.

Private Sub Document_Open() 
    MsgBox "This publication is copyrighted." 
End Sub

L'exemple suivant montre une procédure événementielle BeforeClose qui invite l'utilisateur à donner une réponse Oui ou Non avant de fermer un document.

Private Sub Document_BeforeClose(Cancel As Boolean) 
    Dim intResponse As Integer 
 
    intResponse = MsgBox("Do you really want to close " _ 
        & "the document?", vbYesNo) 
 
    If intResponse = vbNo Then Cancel = True 
End Sub

Remarque

Pour plus d’informations sur la création de procédures événementielles pour l’objet Application , consultez Utilisation d’événements avec l’objet Application.

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.