Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


По простому:
↧ 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

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

Отправлено: 01:11, 03-11-2013 | #2