Macrobutton одним кликом

[Ципихович Эндрю]

Здравствуйте, как бы запускать данное поле одним кликом мыши (энергосберегающий режим)

[Ципихович Эндрю]

сделал, в классе модуля

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)

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

'отключаем дёргание экрана при выполнении кода
    Application.ScreenUpdating = False

    If Selection.Fields.Count = 1 Then
        'Selection.Fields(1).Type = 51
        'и
        'Selection.Fields(1).Type = wdFieldMacroButton
        'одно и тоже
        If Selection.Fields(1).Type = wdFieldMacroButton Then

            Dim Код_выделенного_поля_изначально As String
            Код_выделенного_поля_изначально = Trim$(Selection.Fields(1).Code)

            Dim Первый_пробел_в_тексте_кода_поля As Integer
            Первый_пробел_в_тексте_кода_поля = InStr(Код_выделенного_поля_изначально, " ")

            Код_выделенного_поля_изначально = Trim$(Right$(Код_выделенного_поля_изначально, (Len(Код_выделенного_поля_изначально) - Первый_пробел_в_тексте_кода_поля)))
            Первый_пробел_в_тексте_кода_поля = InStr(Код_выделенного_поля_изначально, " ")

            Dim ИмяМакроса As String
            'Mid$(String,Start,[Length])
            ИмяМакроса = Trim$(Mid$(Код_выделенного_поля_изначально, 1, Первый_пробел_в_тексте_кода_поля - 1))

            Dim Сообщение As String
            Сообщение = Trim$(Right$(Код_выделенного_поля_изначально, (Len(Код_выделенного_поля_изначально) - Первый_пробел_в_тексте_кода_поля)))
        End If
    End If

    MsgBox$ ИмяМакроса

сообщает имя макроса, как дальше быть, чтобы рациональней? напрямую как переменная не обратится к нужному имени макроса

[Ципихович Эндрю]

посмотрите пожалуйста в прикреплёном файле есть
Модуль
Запуск_класса_модуля_SP
Класс модуля
SelectionPaste
Если их поместить в Нормал.дот всё работает, хотелось бы тоже самое сделать но чтобы это работало только в одном документе, я этот модуль и класс модуля поместил в этот документ, но не работает, что не так???
По задумке это должно работать при нажатии на
1. Первое поле
2. Поле - Дата регистрации материала
3. На любое поле <10 ..... >10