Тема: VBScript: пример использования персонажей помощника Microsoft Office
Dim w
Set w = CreateObject("Word.Application")
w.Visible = False
Set balloon1 = w.Assistant.NewBalloon
balloon1.Heading = "Хотите узнать, что находится по адресу: http://www.script-coding.com"
Set balloon2 = w.Assistant.NewBalloon
balloon2.Heading = "Данный ресурс посвящён программированию на различных макроязыках и в скриптовых средах. Содержимое ресурса периодически пополняется. Если вы хотите безвозмездно опубликовать свою собственную статью или выложить свою программу (скрипт, обработку или конфигурацию для 1С:Предприятия, и т.п.), но вам негде это сделать самостоятельно, создайте тему на форуме, и ваше предложение будет обязательно рассмотрено в кратчайшие сроки."
balloon1.Show
balloon2.Show
balloon1.Heading = "Спасибо за проявленный интерес к сайту http://www.script-coding.com"
balloon1.Show
w.Quit
Set w = Nothing
Автор примера - Alexbootch.
Для работы примера помощник Microsoft Office должен быть установлен. Проверьте это, вызвав меню "Справка" - "Показать помощника".
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.