как открыть в гугле выделенный фрагмент текста Word

[Казанский]

Крч

Sub SearchInOpera()
    Shell """c:\Program Files\Opera\opera.exe"" ""http://www.google.com/search?q=%22" & Selection.Text & "%22"""
End Sub

[caute]

там, где профи за пять минут долетел, рядовой дятел день долбицца

[caute]

А можно небольшое усовершенствование?
Если слово для отправки в Оперу не выделено, чтобы отправлялось то слово, которое ближе к курсору (или внутри которого стоит курсор). Так, как это сделано в макросе Лингво.

[viter.alex]

можно. Вместо Selection.Text поставить Selection.Words.First.Text

[caute]

благодарствую! работает

[caute]

увы, Selection.Words.First.Text не ищет выделенный текст, берет из него для поиска только первое слово. Вот если бы губы Никанора Ивановича да приставить к носу Ивана Кузьмича...

[Скрипт]

caute, нужно добавить в код команды, которые смотрят, как выделен текст:

1. текст не выделен;
2. текст выделен.

Для этого можно использовать вот этот код:

Sub Procedure_1()

    'Вывод результата в View - Immediate Window.
    Debug.Print Selection.Type

End Sub

[viter.alex]

Shell """c:\Program Files\Opera\opera.exe"" ""http://www.google.com/search?q=%22" & IIf(Selection.Start = Selection.End, Selection.Words.First.Text, Selection.Text) & "%22"""

[caute]

теперь стало идеально! уже наслаждаюсь