VBA Программный ответ на вопрос диалогового окна

[DiemonStar]

В вашем написании выдает синтаксическую ошибку. Поэтому у вас и хочу уточнить, запустился ли он у вас в таком виде?

вообще-то, я просто хотел подсказать Вам направление, в котором лежит потенциальное решение... или Вы надеялись получить готовый код?

з.ы. не тестировал, ибо мне влом было создавать как документ, так и книгу. а проблемы со скобками решаются довольно быстро...

[HenryO]

Сообщение от IgorGO

программно нажать "Да" - читайте SendKeys

Sub ГенерацияОтчетов()
Dim oShell As Object
Dim oWord As Object

Set oShell = CreateObject("Shell.Application")
oShell.shellexecute ThisWorkbook.Path & "\Шаблон отчетов.docm"

Application.Wait (Now + TimeValue("0:00:05"))

Set oWord = GetObject(, "word.application")
oWord.Activate
SendKeys ("{Left}" + "{ENTER}")

GetObject(, "Word.Application").Run "ФормированиеОтчетов.ВставкаОтчетаИзExcel"

End Sub

Задачу решил.
Спасибо большое за Sendkeys.

[HenryO]

Сообщение от DiemonStar

вообще-то, я просто хотел подсказать Вам направление, в котором лежит потенциальное решение... или Вы надеялись получить готовый код?

з.ы. не тестировал, ибо мне влом было создавать как документ, так и книгу. а проблемы со скобками решаются довольно быстро...

Вы просто написали конкретный код, поэтому я его и принял за решение.
Просто с СreateObject("word.application") метод Open не работает. Много раз пробовал в различных вариациях.
Но было бы интересно узнать обратное,конечно же.
В любом случае спасибо большое вам, что обратили внимание на мой вопрос.