перейти в другую процедуру

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

Здравствуйте, пытаюсь это сделать получаю отлуп, что не так?

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

Dim Двойной_щелчок_левой_клавиши_мыши As Boolean
Двойной_щелчок_левой_клавиши_мыши = True

App_WindowSelectionChange ByVal Sel As Selection, Двойной_щелчок_левой_клавиши_мыши

End Sub

[Казанский]

ByVal и тип используются только при объявлении процедуры, а при вызове просто

App_WindowSelectionChange Sel, Двойной_щелчок_левой_клавиши_мыши

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

Спасибо, чуть сдвинулся, что-то задуманное не выходит

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

Option Explicit

Public WithEvents App As Word.Application

Dim Двойной_щелчок_левой_клавиши_мыши As Boolean
'

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

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

Двойной_щелчок_левой_клавиши_мыши = True

App_WindowSelectionChange , _
Двойной_щелчок_левой_клавиши_мыши

End Sub

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)

If Trim$(Selection.Text) Like "*Здравствуйте*" And Двойной_щелчок_левой_клавиши_мыши = True Then MsgBox$ "Здравствуйте"
'проверка на работоспособность
If Len(Selection) <> 0 Then MsgBox$ "Класс SelectionPaste - Выделено"

    Exit Sub

надо чтобы на Здравствуйте когда щёлкнул два раза вылезло сообщение...

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

пойдём другим путём - если на событие нажатие правой клавиши мыши повесить макрос
тогда как условие поставить чтобы если нужно не показывало контекстное меню???