Ответить макросом Да.

[agregator]

Всем здравствуйте. Открываю документ Word из Excel

Sub Открыть()
CreateObject("WScript.Shell").Run """C:\Users\Vladimir\Desktop\Слияние.docx"""    ' аналогично двойному щелчку мыши на файле
End Sub

После этого появляется окно
"При открытии данного документа будет выполнена следующая команда SQL:
SELECT * FROM ’Лист1S'
Данные из базы данных будут помещены в документ. Продолжить?
Да Нет"
Подскажите пожалуйста код, чтобы открыть "Слияние.docx" и выполнилась команда SQL, т.е. ответить Да.
Application.EnableEvents = False и Application.DisplayAlerts = False не помогают

[IgorGO]

Application.DisplayAlerts = False - это команда для Excel

используйте SendKeys чтобы закрыть окно с предупреждением

а лучше, откройте Word

  On Error Resume Next
  Set wApp = GetObject(, "Word.Application")
  If Err Then Err.Clear: Set wApp = CreateObject("Word.Application")
  On Error GoTo 0
  wApp.DisplayAlerts = False
  set wDoc = wApp.documents.open("C:\Users\Vladimir\Desktop\Слияние.docx")

...
как то так

[agregator]

IgorGO, спасибо получилось! Но почему то срабатывало только на второй раз, поэтому написал

Set wDoc = wApp.documents.Open("C:\Users\Vladimir\Desktop\Слияние.docx")

два раза и стало срабатывать

Sub Открыть()
On Error Resume Next
  Set wApp = GetObject(, "Word.Application")
  If Err Then Err.Clear: Set wApp = CreateObject("Word.Application")
  On Error GoTo 0
  wApp.DisplayAlerts = False
  Set wDoc = wApp.documents.Open("C:\Users\Vladimir\Desktop\Слияние.docx")
  Set wDoc = wApp.documents.Open("C:\Users\Vladimir\Desktop\Слияние.docx")
  wApp.DisplayAlerts = True
End Sub

Как то странно?

[agregator]

В результате документ открылся, но команда SQL:SELECT * FROM ’Лист1S' не выполнилась, т.е. нажалась кнопка НЕТ, т.к. она выбрана по умолчанию. Можно что нибудь придумать?

[agregator]

Кросс:
http://www.planetaexcel.ru/forum/ind...sql-otvetit-da

[gsparrow]

Сам только что искал, нашел здесь ваш вопрос, и нашел вот такое решение - правим реестр:
HKEY_CURRENT_USER\Software\Microsof t\Office\14.0\Word\Options
"SQLSecurityCheck"=dword:000000 00

14.0 - Word 2010, для другой версии - будет другая соотв.ветка
Нашел здесь:
http://stackoverflow.com/questions/11301716

[agregator]

gsparrow, спасибо! Этот способ работает. Здесь нашел по-русски и подробно:
https://support.microsoft.com/ru-ru/kb/825765

[kulib]

gsparrow, спасибо! Этот способ работает. А я мучался полжизни)