There is no "Change" event for Word. You may be able to use the "WindowSelectionChange" event.
Option Explicit
Private WithEvents mWordApp As Word.Application
Private Sub Class_Initialize()
Set mWordApp = Word.Application
End Sub
Private Sub mWordApp_WindowSelectionChange(ByVal oSel As Selection)
Beep
End Sub
|