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

Тема в разделе "Lotus - Программирование", создана пользователем agintrek, 1 ноя 2013.

  1. agintrek

    agintrek New Member

    Регистрация:
    1 ноя 2013
    Сообщения:
    1
    Симпатии:
    0
    Подскажите как сохранить документ Word созданный на основе шаблона, не открывая Word, с определённым именем. Как указать путь куда он будет сохранён? И каким будет путь по умолчанию?
     
  2. erdi

    erdi Well-Known Member

    Регистрация:
    20 авг 2008
    Сообщения:
    261
    Симпатии:
    36
    Код (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
     
  3. Eugen

    Eugen Well-Known Member

    Регистрация:
    22 мар 2012
    Сообщения:
    172
    Симпатии:
    0
    Надо не забыть еще константы вордовые объявить.

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

Поделиться этой страницей