здравствуйте, скажите при таком коде
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Dim ObjectWord As Object
Set ObjectWord = GetObject(, "Word.Application")
Dim ObjectOpenWord As Object
Set ObjectOpenWord = ObjectWord.ActiveDocument
Dim ObjectOpenWordPath As String
ObjectOpenWordPath = ObjectOpenWord.Path
Dim ObjectOpenWordName As String
ObjectOpenWordName = ObjectOpenWord.Name
Dim ObjectOpenWordFullName As String
ObjectOpenWordFullName = ObjectOpenWord.FullName
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim file As Object
Set file = fso.GetFile(ObjectOpenWord)
ObjectOpenWord.SaveAs (ObjectOpenWordPath & "\" & "111.doc")
file.Delete
как обойти если в файле открыто диалоговое окно как его закрыть?
