Подключение Lingvo к Oper'е (в Hotclick menu)

Лучший на мой взгляд электронный словарь ABBYY Lingvo не имеет возможности перевода слова из коммандной строки. Таким образом, подключение его в меню Oper'ы становится задачей нетривиальной.
Долгое время я не мог узнать как именно передаётся слово из сторонних программ в Lingvo [>>>].
Узнать содержимое макроса, передающего выделенное в Word'е слово в Lingvo оказалось очень просто.
У меня, правда, версия 6.5, но не думаю что в последующих жто сильно изменилось. Надо открыть шаблон LINGVO6A.DOT, находящийся в папке Lingvo. Тогда станет доступной кнопка редактирования для макросов лингво.
И мне открылись 3 модуля: autoexec (пустой), TranslateByLingvo и TranslateWord99.
TranslateByLingvo Code:

Public Sub MAIN()

Dim wordVer$

wordVer$ = WordBasic.[AppInfo$](2)

If (Mid(wordVer$, 1, 1) <> "6") Then

    WordBasic.ToolsMacro Name:="TranslateWord99", Run:=1

End If

End Sub

TranslateWord99 Code:

Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal HWND As Long) As Boolean



Dim msg__$()



'----------------------------------------------------------------------------------

'Fills in the array of messages

'----------------------------------------------------------------------------------



Private Sub FillMsgArray()



'Get language version of WinWord

If (WordBasic.[AppInfo$](16) = "Русский") Then

    msg__$(1) = "Невозможно запустить Lingvo. Возможно, ошибка установки или исполняемые файлы удалены."

Else

    msg__$(1) = "Cannot run Lingvo. The executable files may be missing."

End If

End Sub

Private Function GetSelectedText() As String

Dim st

Dim bkmrkName$

Dim theWord$

theWord$ = ""

If (WordBasic.CountWindows() = 0) Then GoTo exitFunc

If (WordBasic.SelInfo(27) = -1) Then GoTo exitFunc

st = WordBasic.SelType()

If (st = 1 Or st = 5) Then

    'No selection

    bkmrkName$ = "_t_Lingvo_get_word"

    WordBasic.EditBookmark Name:=bkmrkName$, Add:=1

    WordBasic.WordLeft

    WordBasic.WordRight , 1

    theWord$ = WordBasic.[Selection$]()

    WordBasic.EditBookmark Name:=bkmrkName$, GoTo:=1

    WordBasic.EditBookmark Name:=bkmrkName$, Delete:=1

ElseIf (st = 2 Or st = 6) Then

'We have a selection

    theWord$ = WordBasic.[Selection$]()

End If

exitFunc:

GetSelectedText = theWord$

End Function



Private Sub LingvoTranslateWord()



Dim theWord$

theWord$ = GetSelectedText()

If theWord$ = "" Then GoTo exitSub



Dim a As Object

Set a = CreateObject("Lingvo.Application")

On Error Resume Next

If (Err.Number <> 0) Then

    'Не удалось запустить Lingvo

    WordBasic.MsgBox msg__$(1), 48

    GoTo exitSub

End If



Dim HWND As Long

HWND = a.GetLingvoHWND

If (HWND <> 0) Then

    Dim success As Boolean

    success = SetForegroundWindow(HWND)

End If

a.TranslateText theWord$



exitSub:

End Sub



Public Sub MAIN()

ReDim msg__$(4)

FillMsgArray

LingvoTranslateWord

End Sub

Так можно ли тем способом, каким Word передаёт слово в Lingvo передать слово из Oper'ы?
А если нельзя, то может, кто-нибудь возьмётся написать программульку, которая передавала бы слово через коммандную строку?