WindowBeforeRightClick Event

Occurs when the editing area of a document window is right-clicked, before the default right-click action.

Private Subobject**_WindowBeforeRightClick(ByValSelAs Selection**, CancelAs Boolean)

object An object of type Application declared with events in a class module. For more information about using events with the Application object, see Using Events with the Application Object .

Sel The current selection.

CancelFalse when the event occurs. If the event procedure sets this argument to True, the default right-click action does not occur when the procedure is finished.

Example

This example prompts the user for a yes or no response before executing the default right-click action. This code must be placed in a class module, and an instance of the class must be correctly initialized in order to see this example work; see Using Events with the Application Object for directions on how to accomplish this.

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

Applies to | Application Object

See Also | WindowActivate Event | WindowBeforeDoubleClick Event | WindowDeactivate Event | WindowSelectionChange Event