Événement Application.WindowBeforeRightClick (Word)
Se produit lorsqu'un utilisateur clique avec le bouton droit dans la zone d'édition d'une fenêtre de document avant le clic droit par défaut.
Syntaxe
Private Sub expression._'WindowBeforeRightClick** (Sel As Selection**, Cancel As Boolean)
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 |
|---|---|---|---|
| Sel | Obligatoire | Sélection | Sélection actuelle. |
| Cancel | Obligatoire | Booléen | False lorsque l'événement se produit. Si la procédure événementielle affecte la valeur true, le clic droit par défaut ne se produit pas lorsque la procédure est terminée. |
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 montre comment inviter l’utilisateur à répondre par oui ou non avant d’exécuter l’action de clic droit par défaut. 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_WindowBeforeRightClick _
(ByVal Sel As Selection, Cancel As Boolean)
Dim intResponse As Integer
intResponse = MsgBox("Selection = " & Sel & vbLf & vbLf _
& "Continue with operation on this selection?", _
vbYesNo)
If intResponse = vbNo Then Cancel = True
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.