Application.WindowBeforeDoubleClick Event (Word)
Occurs when the editing area of a document window is double-clicked, before the default double-click action.
Syntax
expression .Private Sub object_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
expression A variable that represents an Application object that has been declared with events in a class module. For more information about using events with the Application object, see Using Events with the Application Object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
Sel |
Required |
Selection |
The current selection. |
Cancel |
Required |
Boolean |
False when the event occurs. If the event procedure sets this argument to True, the default double-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 double-click action. This code must be placed in a class module, and an instance of the class must be correctly initialized 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_WindowBeforeDoubleClick _
(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