Сохранить Документ Word С Определённым Именем

[agintrek]

Подскажите как сохранить документ Word созданный на основе шаблона, не открывая Word, с определённым именем. Как указать путь куда он будет сохранён? И каким будет путь по умолчанию?

 

[erdi]

Set word = CreateObject("Word.Application")
word.documents.add("путь до шаблона")	' открываем шаблон
Set worddoc = word.activedocument 'Активация объекта			
word.visible = False	' видимость на экране
Call worddoc.SaveAs ("путь куда будешь сохранять", 0, False, "", False, "", False, False, False, False, False)	' сохранение по указанному пути
word.quit

ну и желательно в конце все же выполнять функцию принудительного завершения всех процессов word, на случай если что-то пойдет не так..... COM-ужасен и непредсказуем

Sub CloseMSWord()
On Error GoTo ErrH
Dim objs As Variant
Dim strSQL As String
Dim strWMI As String
strWMI = "winmgmts:"
strSQL = "Select * From Win32_Process "
strSQL = strSQL & "where Name = 'WINWORD.EXE'"
Set objs = GetObject(strWMI).ExecQuery(strSQL)
ForAll obj In objs
obj.Terminate
End ForAll
Quit:
Exit Sub
ErrH:
Error Err, Error$ & " in " & GetThreadInfo(1) & " line " & CStr(Erl)
End Sub

 

[Eugen]

Надо не забыть еще константы вордовые объявить.

Я например из экселя выхожу так:

TempDir$ = Environ("Temp")
file = TempDir$+{\Загрузка от }+Today+{.xls}
Call excel.objWorkbook.SaveAs(file, xlExcel8)
Call excel.quitAndKillApp()

Не знаю правда, сработает ли с вордом.