Добавление поиска (по яндекс, гугл и т.д) в Word 2003 и Excel 2003

[Макс Фолдер]

Доброго времени суток.

Как добавить поиск по слову по яндексу, гуглу и др. поисковым системам в Word 2003 и Excel 2003 ? , т.е выделяешь например какое-то слово и/или фразу, нажимаешь правой кнопкой мыши и в контестном меню , есть пункт "поиск яндекс", "поиск гугл" и т.д., или выделяешь слово/фразу , нажимаешь сочетание клавиш привязанное к поиску и автоматом ищеться , разумеется должен запускать браузер где будут отображаться рез-ты поискового запроса, хотя в принципе можно и в самом Word 2003 и Excel 2003 отдельное окошко ....

[Iska]

По простому:
Option Explicit

Sub SearchInWeb()
CreateObject("WScript.Shell").Run "https://www.google.ru/search?q=" & Selection.Text
End Sub

Option Explicit

Sub SearchInWeb()
CreateObject("WScript.Shell").Run "https://www.google.ru/search?q=" & ActiveCell.Value
End Sub

Можно, конечно, добавлять разные умствования.

[Макс Фолдер]

Iska,
а куда и как этот код нужно добавлять ?

[Iska]

И тот, и другой код — в шаблоны. Назначьте макросам горячие клавиши. Сохраните шаблоны в соответствующие папки автозагрузки Word и Excel.