1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

  1. agintrek

    agintrek New Member

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

    erdi Well-Known Member

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

    Eugen Well-Known Member

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

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

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