Смарт-теги в Microsoft Office фирменного и кустарного приготовления
Листинг 4. Инициализация выбранной операции
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'
' Выбор операциии по обработке термина
Dim ieObject As Object
Dim strAction$
If ListBox1.ListIndex >= 0 Then ' выполнение операции
' строка операции
strAction$ = ListBox2.List(ListBox1.ListIndex)
' вставка термина вместа {TEXT}
' FindWord — глобальная переменная для передачи параметра
strAction$ = Replace(strAction$, "{TEXT}", FindWord$)
' Инициализация Internet Explorer
Set ieObject = CreateObject("InternetExplorer.Application")
ieObject.Navigate strAction$
ieObject.Visible = True
End If
End Sub
