...
Dim wrdApp As Object, doc As Object, tbl As Object ...
sFN = App.Path & "\Templates\report.dot"
Set wrdApp = CreateObject("Word.Application")
Set doc = wrdApp.Documents.Add(sFN, False, wdNewBlankDocument, True)
...
sFN = App.Path & "\Результаты тестирования\test1.doc"
doc.SaveAs sFN
doc.Close
wrdApp.Quit
|