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

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

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



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

[Iska]

По простому:

↧ Word ↧

Код:

Код: Выделить всё

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

↧ Excel ↧

Option Explicit



Sub SearchInWeb()

CreateObject("WScript.Shell").Run "

https://www.google.ru/search?q=

" & ActiveCell.Value

End Sub





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

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

Iska,

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

[Iska]

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