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

31.10.2013, 09:17. **Показов** 6902. **Ответов** 2

Author24 — интернет-сервис помощи студентам

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

@yrdy · 31.10.2013, 10:30

LotusScript

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-ужасен и непредсказуем :(

LotusScript

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

@yukym · 13.11.2013, 15:52

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

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

LotusScript

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

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

okymtryk
		1
	Сохранить Документ Word С Определённым Именем 31.10.2013, 09:17. Показов 6902. Ответов 2 Метки нет (Все метки) Подскажите как сохранить документ Word созданный на основе шаблона, не открывая Word, с определённым именем. Как указать путь куда он будет сохранён? И каким будет путь по умолчанию?

	13.11.2013, 15:52