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

[HenryO]

Друзья,
мой макрос открывает файл-doc и дальше идет вставка таблицы из excel.
Проблема в том, что в файле-doc есть Связь с таблицей excel.
При открытии .doc, выходит окно с вопросом об обновлении связи. Мне нужно до начала следующей процедуры нажать "Да, обновить связь".
Как мне это сделать (подойдет 2 след. варианта):
1)могу я вручную нажать на "Да", тогда нужно, чтоб следующая процедура не запускалась, пока я не нажму
2)либо есть какой-то способ прописать, чтоб программа за меня сама нажала на "Да".

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

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

'ЗДЕСЬ ВСПЛЫВАЕТ ОКОШКО!

Application.Wait (Now + TimeValue("0:00:05"))
GetObject(, "Word.Application").Run "ФормированиеОтчетов.ВставкаОтчетаИзExcel"

End Sub

[DiemonStar]

открывайте ваш документ через объект "word.application", где можно предварительно отключить сообщения

Set Wa =  = CreateObject("Word.Application")
Wa.DisplayAlerts = wdAlertsNone
Set Wd = Wa.Open ThisWorkbook.Path & "\Шаблон отчетов.docm"

[HenryO]

А если я отключу сообщение, связь обновится? Нужно, чтоб связь обновлялась.

[IgorGO]

это
Wa.DisplayAlerts = wdAlertsNone
отключит появление окон-предупреждений
если не обновляется связь - значит где-то потерялся связанный обьект, приложение само не может "разрулить" ситуацию спрашивает у пользователя обновить связь, следующий вопрос будет "а где этот обьект находится".
связь не установилась, Вы не вступили в конструктивный диалог с приложением (а при отключенных сообщениях, даже не узнаете об этом прискорбном событии и будете лишены возможности установить связь), связь не будет установлена в данном сеансе работы.

[DiemonStar]

Ну так добавьте:

Wd.Fields.Update

p.s. в хелпе сноска на 2010 и 2013 офисы, но в предыдущих версиях тоже должно быть обновление связей...

[HenryO]

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

открывайте ваш документ через объект "word.application", где можно предварительно отключить сообщения

Set Wa =  = CreateObject("Word.Application")
Wa.DisplayAlerts = wdAlertsNone
Set Wd = Wa.Open ThisWorkbook.Path & "\Шаблон отчетов.docm"

А вы сами тестировали этот код?
У след.строчки

Set Wd = Wa.Open ThisWorkbook.Path & "\Шаблон отчетов.docm"

без круглых скобок - синтаксическая ошибка,
с круглыми скобками - объект не поддерживает данный метод

[HenryO]

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

это
Wa.DisplayAlerts = wdAlertsNone
отключит появление окон-предупреждений
если не обновляется связь - значит где-то потерялся связанный обьект, приложение само не может "разрулить" ситуацию спрашивает у пользователя обновить связь, следующий вопрос будет "а где этот обьект находится".
связь не установилась, Вы не вступили в конструктивный диалог с приложением (а при отключенных сообщениях, даже не узнаете об этом прискорбном событии и будете лишены возможности установить связь), связь не будет установлена в данном сеансе работы.

Не совсем так у меня. Я запуская ворд как раз из-под источника. Просто хочется программно нажать на "Да, обновить связь" или какой-нибудь способ, который позволит не переходить к следующей строчке, пока не произведу действие вручную, т.е. вручную нажму на "Да, обновить".

Про отключение сообщений даже речи не стоит.

[IgorGO]

А вы сами тестировали этот код?

это вместо спасибо пытаюсь разобраться?

с круглыми скобками - объект не поддерживает данный метод

это смотря где в данном выражении скобки открыть-закрыть

[IgorGO]

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

[HenryO]

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

это вместо спасибо пытаюсь разобраться?
это смотря где в данном выражении скобки открыть-закрыть

Интонация у меня была вопросительная и крайне доброжелательная, не подумайте ничего. Я благодарен за любой совет.

Set Wd = Wa.Open ThisWorkbook.Path & "\Шаблон отчетов.docm"

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

Set Wd = Wa.Open (ThisWorkbook.Path & "\Шаблон отчетов.docm")

Вот так уже не выдает синтаксическую ошибку, но зато выдает, что Wa не поддерживает данный метод Open.