Виктор
Зарегистрирован: 10.03.2005 Сообщения: 210 Откуда: Горловка (Щирий кум)
|
Добавлено: Ср Май 18, 2011 9:57 am Заголовок сообщения: Переводчик |
|
|
Задрал Азаров учить всей страной украинский - поэтому:
Код: | Option Explicit
Dim dlg
Set dlg = CreateLibObject("DHTMLDialog")
With dlg
.Caption = "Google Переводчик - в Акценте"
.Resizable = True
.URL = "http://translate.google.com.ua/?hl=ru&ie=UTF-8&oe=UTF-8&tab=wT#ru|uk|"
.Width = 850
.Height = 320
'.SetArgument "wa", app.WorkArea 'будут доступны в тексте скрипта диалога через переменные.
.CreateModeless
End With |
А там как хотите хоть в меню, хоть в кнопку |
|