Trapping a mouseclick and mousemove event in VB

There are no mouse methods exposed in Word VBA. The best I could suggest is to create a Class module and to test the width in the WindowSelectionChange event.

You will need a declaration such as this in the module:

Dim WithEvents wdApp As Word.Application

and you need to have set wdApp equal to the current Application during the session.

Set wdApp = Application

Sorry I am not getting how to use it.Can u please explain me in detail or if possible do send me some sample code .

This is what I have done .wordapp is declared global.please tell me how to link with the document as it is not working currently.


Dim WithEvents wdApp As Word.Application
Dim x As New Class1



Private Sub Class_Initialize()
Set wdApp = Word.Application
Set ThisDocument = ActiveDocument


MsgBox "testing1"



End Sub

Private Sub wdApp_DocumentOpen(ByVal Doc As Document)

Set wdApp = Word.Application


End Sub

Private Sub wdApp_NewDocument(ByVal Doc As Document)
 MsgBox "testing"
End Sub

Private Sub wdApp_Quit()

End Sub

Private Sub wdApp_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
MsgBox "testing"
End Sub

Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection)
    MsgBox "testing"
End Sub

I have tweaked your code a tiny bit.

'Put this code in a module and run it.
Sub Register_Event_Handler()
    Dim X As New Class1
 
    Set X.wdApp = Application
    MsgBox "wdApp events registered in: " & X.wdApp.Name
End Sub
 
'This is the code for the class module
 
Option Explicit
 
Public WithEvents wdApp As Word.Application
 
 
Private Sub wdApp_NewDocument(ByVal Doc As Document)
    MsgBox "testing"
End Sub
 
 
Private Sub wdApp_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
    MsgBox "testing"
End Sub
 
Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection)
    MsgBox "testing"
End Sub

Select allOpen in new window

it is giving error in module's code with the following line
Set X.wdApp = Application
    It is saying that wdApp member not found.I have added the module's code in newly created module.
Do u have any other better approach to the problem.please do let me know.

oh I had made 1 mistake. Now it is working.thanks a lot.Now my requirement is that when i open a word my macro should automatically start.please solve this problem also.Thanks again in advance

the windows events r not working still and that is what i need.what must I do for that.please do let me know