Если приложение Ворд закрыто выдает ошибку 429 (см. скрин), если открыто работает нормально. Как исправить?
Код |
---|
Sub zapusk()
Static objWrdApp As Object
Dim objwrddoc As Object
On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application")
If objWrdApp Is Nothing Then
Set objWrdApp = GetObject(, "Word.Application")
Set objwrddoc = objWrdApp.documents.Open("\\aaaa\111.docx")
objWrdApp.Visible = True
End If
Set objwrddoc = objWrdApp.documents.Open("\\aaaa\111.docx")
Set objWrdApp = Nothing
Set objwrddoc = Nothing
End Sub |