Класс модуля не срабатывает

Option Explicit
 
'служит для запуска класса модуля SelectionPaste, который служит для запуска процедур при событиях:
'выделение определённого текста в документе
'нажатие правой кнопки мыши
'после двойного щелчка левой клавиши мыши
Dim x As New SelectionPaste
'
 
Sub Запуск_класса_модуля_SelectionPaste()
 
    Set x.App = Word.Application
 
End Sub

Option Explicit
 
Public WithEvents App As Word.Application
'
 
Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)
 
'событие нажатие правой кнопки мыши
'Before - Прежде чем
'Right - Право
'Click -Нажмите
 
'проверка на работоспособность
'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)
 
'событие после двойного щелчка левой клавиши мыши
'Before - Прежде чем
'Double - Двойной
'Click -Нажмите
 
'проверка на работоспособность
'MsgBox$ "Класс SelectionPaste - Двойной щелчок левой клавиши мыши"
 
End Sub
 
Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
 
'проверка на работоспособность
'If Len(Selection) <> 0 Then MsgBox$ "Класс SelectionPaste - Выделено"
 
'отключаем дёргание экрана при выполнении кода
    Application.ScreenUpdating = False
 
    'MsgBox$ Selection.Text
    If Selection.Text = "января " Or _
       Selection.Text = "февраля " Or _
       Selection.Text = "марта " Or _
       Selection.Text = "апреля " Or _
       Selection.Text = "мая " Or _
       Selection.Text = "июня " Or _
       Selection.Text = "июля " Or _
       Selection.Text = "августа " Or _
       Selection.Text = "сентября " Or _
       Selection.Text = "октября " Or _
       Selection.Text = "ноября " Or _
       Selection.Text = "декабря " Or _
       Selection.Text = "военнообязанный" Or _
       Selection.Text = "военнообязанный" & vbCr Or _
       Selection.Text = "военнообязанная" Or _
       Selection.Text = "военнообязанная" & vbCr Or _
       Selection.Text = "женат" Or _
       Selection.Text = "женат" & vbCr Or _
       Selection.Text = "холост" Or _
       Selection.Text = "холост" & vbCr Or _
       Selection.Text = "замужем" Or _
       Selection.Text = "замужем" & vbCr Then
        'показать форму с именем ..., режим - по умолчанию 0, что означает открыть форму в немодальном режиме
        январь_декабрь.Show
    End If
 
    'отменяем отключенное ранее обновление - дёргание экрана при выполнении кода
    Application.ScreenUpdating = True
 
End Sub

Sub AutoExec()
'AutoExec работает при запуске Word или загрузке глобального шаблона
 
'в AutoOpen, AutoExec
'служит для запуска класса SelectionPaste, для открытия документов УК РФ и УПК РФ
    Application.Run "Normal.Запуск_класса_модуля_SP.Запуск_класса_модуля_SelectionPaste"
  
 
End Sub