Option Explicit

Public WithEvents App As Word.Application
'

Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)

'событие нажатие правой кнопки мыши
MsgBox$ "Класс SelectionPaste - Нажата правая кнопка мыши"

End Sub

'нажатие левой кнопки мыши не обрабатывается !!! Private Sub App_WindowBeforeLeftClick(ByVal Sel As Selection, Cancel As Boolean)

Private Sub App_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)

'событие после двойного щелчка левой клавиши мыши
MsgBox$ "Класс SelectionPaste - Двойной щелчок левой клавиши мыши"

End Sub

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)

'проверка на работоспособность
If Len(Selection) <> 0 Then MsgBox$ "Класс SelectionPaste - Выделено"

End Sub

Sub AutoExec()
'AutoExec работает при запуске Word или загрузке глобального шаблона

'в AutoOpen, AutoExec
'служит для запуска класса SelectionPaste
 Application.Run "Normal.Запуск_класса_модуля_SP.Запуск_класса_модуля_SelectionPaste"     

End Sub

Option Explicit

'служит для запуска класса модуля SelectionPaste, который служит для запуска процедур при событиях:
'выделение определённого текста в документе
'нажатие правой кнопки мыши
'после двойного щелчка левой клавиши мыши
Dim x As New SelectionPaste
'

Sub Запуск_класса_модуля_SelectionPaste()

    Set x.App = Word.Application

End Sub