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

agintrek

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

erdi

Well-Known Member
20.08.2008
265
36
35
Краснодар
#2
Код:
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

Well-Known Member
22.03.2012
177
0
Москва
#3
Надо не забыть еще константы вордовые объявить.

Я например из экселя выхожу так:
Код:
TempDir$ = Environ("Temp")
file = TempDir$+{\Загрузка от }+Today+{.xls}
Call excel.objWorkbook.SaveAs(file, xlExcel8)
Call excel.quitAndKillApp()
Не знаю правда, сработает ли с вордом.