VBNet - Форум - объект assistant в Office 2007

Вопрос: объект assistant в Office 2007 Добавлено: 07.04.09 15:26

Автор вопроса: aksktis

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

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

2) Этот код написан на VBS, но пристроить его к VBA по-человечески у меня не получилось (получиолсь только не по-человечески)

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

помогите пожалуйста умным советом=)
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: VβÐ Вопросов: 15 Ответов: 194	Web-сайт: www.homacosoft.com Профиль \| \| #1	Добавлено: 07.04.09 19:42
	Насколько я помню, в Office 2007 нет помощников Ответить

Номер ответа: 2 Автор ответа: aksktis Вопросов: 1 Ответов: 2	Профиль \| \| #2	Добавлено: 08.04.09 00:00
	да я знаю но не обязательно использовать именно офисного помощника, я выше привел vbs скрипт.. вопрос в том как этот скрипт использовать в офисе (если уж у него собственных нет) Ответить

Номер ответа: 3 Автор ответа: AngryBadger Вопросов: 33 Ответов: 245	Профиль \| \| #3	Добавлено: 08.04.09 09:26
	Дык в 2003 2-й код нормально работает, только кое-что нужно поменять.(При условии, что тебя устроит что, при этом excel на 15 секунд в паузе) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub WinAgent 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 "oMagic1" myagent.Characters("0".Play "oMagic2" myagent.Characters("0".Speak " Это пример использование помощника средствами VBA" myagent.Characters("0".MoveTo 926, 591 myagent.Characters("0".Speak "До свидания!" myagent.Characters("0".Play "Hide" sleep 15000 end sub А если не устроит, то можно и так(Но это вообще ппц): Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub winAgent() Dim f! f = FreeFile Open "C:\MyFile.vbs" For Output As #f Print #f, "Set myagent = CreateObject(""Agent.Control.2""" Print #f, "myagent.Connected = True" Print #f, "myagent.Characters.Load(""0"", ""С:\WINDOWS\MSAGENT\CHARS\MERLIN.ACS""" Print #f, "myagent.Characters(""0"".MoveTo 514, 220" Print #f, "myagent.Characters(""0"".Show" Print #f, "myagent.Characters(""0"".Play ""oMagic1""" Print #f, "myagent.Characters(""0"".Play ""oMagic2""" Print #f, "myagent.Characters(""0"".Speak ""Это пример использование помощника средствами VBS""" Print #f, "myagent.Characters(""0"".MoveTo 926, 591" Print #f, "myagent.Characters(""0"".Speak ""Досвидания!""" Print #f, "myagent.Characters(""0"".Play ""Hide""" Print #f, "Dim wshShell" Print #f, "Set WshShell = WScript.CreateObject(""WScript.Shell""" Print #f, "WScript.sleep 15000" Close #f CreateObject("WScript.Shell".Run "C:\Myfile.vbs" Sleep 50 'Если не будет работать, нужно чуть-чуть подкрутить Kill "C:\MyFile.vbs" End Sub Прошу, строго не судить! Ответить

Номер ответа: 4 Автор ответа: AngryBadger Вопросов: 33 Ответов: 245	Профиль \| \| #4	Добавлено: 08.04.09 09:28
	) Жесть какая! Там где смайлы, там закрывающая скобка. Кстати, как их убрать? Ответить

Номер ответа: 5 Автор ответа: aksktis Вопросов: 1 Ответов: 2	Профиль \| \| #5	Добавлено: 08.04.09 09:59
	Бу-га-га) забавно получилось, а слип попробую спасибо за идею (и как сам не догадался), т.к. я действовал именно по второму варианту.. Ответить

Страница: 1 |