объект assistant в Office 2007

[aksktis]

Доброго времени суток.
Думаю из названия темы понятен вопрос=) Можно ли использовать помошника в 2007 офисе? и если можно то как?
Заранее спасибо.

[Viper]

Можно. Объект Assistant в справке описан весьма хорошо.

[aksktis]

да и статей по этому поводу довольно много, но это не применимо к 2007 офису, скажем этот код

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

Public Sub mdlShowAssistant()
    With Assistant
        Debug.Print .Filename
        .Filename = "Rocky.acs"
        .On = True
        .Animation = msoAnimationGreeting
        .Animation = msoAnimationGetAttentionMinor
        .AssistWithHelp = True
        .FeatureTips = True
        .GuessHelp = True
        .HighPriorityTips = True
        .Visible = True
    End With
End Sub


прекрасно работает в 2003, а в 2007 ошибка (Метод 'On' объекта 'Assistant' неверен), кстати нашел одно настораживающее сообщение
http://office.microsoft.com/ru-ru/help/ ... 51049.aspx
но может кто нибудь придумал как использовать хотя бы системных чаров средствами VBA?

[aksktis]

написал код на VBS для управления помощником.. одна просьба, как бы мне его по человечески интегрировать в VBA, банальная вставка в SUB естественно дает ошибку 424, но помощник при этом отрабатывает..
вот код на VBS (возможно придется поправить путь к файлу помощника..)

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

Set myagent = CreateObject("Agent.Control.2")
myagent.Connected = True
myagent.Characters.Load"0","С:\WINDOWS\MSAGENT\CHARS\MERLIN.ACS"
myagent.Characters("0").MoveTo 514, 220
myagent.Characters("0").Show
myagent.Characters("0").Play "DoMagic1"
myagent.Characters("0").Play "DoMagic2"
myagent.Characters("0").Speak " Это пример использование помощника средствами VBS"
myagent.Characters("0").MoveTo 926, 591
myagent.Characters("0").Speak "До свидания!"
myagent.Characters("0").Play "Hide"
Dim WshShell
     Set WshShell = WScript.CreateObject("WScript.Shell")
     WScript.sleep 15000


помогите пожалуйста=)