Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Создание папки с документами Word по запросу из Excel
 
#1
01.06.2014 18:41:52
Всех приветствую. Прошу помощи у форумчан.
Есть договор в Word (файл ДОГОВОР.docx), в котором есть связанные с файлом Excel поля. И есть файл Excel "Смета.xlsm", в котором вводятся необходимые значения для расчёта стоимости, также вводятся № договора, ФИО заказчика, адрес заказчика.

Сама задача: нужно сделать "кнопку" в Excel "Создать документы", при нажатии которой будет браться незаполненный файл Word (файл "ДОГОВОР.docx" из папки "Мои документы", например), будет заполнятся значениями "№ договора", "ФИО", адрес и т. д., и будет сохраняться в папку "№ договора".

Таким образом, при каждом новом заказе будет открываться "Смета.xlsm", будет заполняться значениями, затем, по команде, будет создаваться "ДОГОВОР.docx" в папке с номером договора, не изменяя оригинальный "ДОГОВОР.docx".
Догадываюсь что делается через VBA, но с ним не знаком((( Всем заранее большое спасибо.

P. S. Всегда отношусь с уважением к правилам форума, но для меня без расшифровки имя vikttur (ничего против не имею) звучит как бессмысленный набором символов.
Изменено: 6el6iu-Белый - 01.06.2014 18:58:19
 
 
 
#2
01.06.2014 18:52:48
Цитата
6el6iu-Белый пишет: Догадываюсь что делается через VBA, но с ним не знаком
Может перенести в раздел "Работа"?
P.S. Я Вам расшифрую: vikttur - Виктор Турист. А теперь Вы мне "расшифруйте" необходимость шестёрок. Без этого никак? Или, если просто Белый - это не так круто?
 
 
 
#3
01.06.2014 18:57:02
Смысл - в обычном произношении или чтении. Произнесите вслух свой ник. Как? Нормально? А людям к Вам обращаться как-то нужно.
Этот пункт правил - об обычном уважении к собеседнику.

Р.s. Не все продвинуты в своем сумасшествии настолько, чтобы воспринимать 6 как Б, а 6i как ы.
Я таки продвинулся    :)  (помогла подсказка, иначе - никак)

Требование уже двух модераторов - уберите эту глупость.
 
 
 
#4
01.06.2014 19:54:17
Оффтоп знатный получился. А всё таки по делу - кто сможет помочь?

P. S. 6 - для возможности регистрации, кириллица почти на всех сайтах в логинах запрещена.
 
 
 
#5
01.06.2014 19:59:36
Цитата
Юрий М пишет:
Может перенести в раздел "Работа"?
 
 
 
#6
01.06.2014 22:56:33
Есть готовое решение:
http://excelvba.ru/programmes/FillDocuments

Пробовали?
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#7
01.06.2014 23:51:36
Она платная - не подходит.
В моей задаче всё гораздо проще: хотя бы первый шаг сделать - макрос на открытие файла "ДОГОВОР.docx". Он автоматом заполнится данными из файла "Смета.xlsm". И всё - первый этап пройден. Там уже можно его вручную сохранить, а попутно буду искать способ автоматизировать.
 
 
 
#8
02.06.2014 00:05:48
Цитата
БелыйТурист) пишет:
хотя бы первый шаг сделать - макрос на открытие файла "ДОГОВОР.docx"
ТАК не пробовали?
 
 
 
#9
02.06.2014 00:15:28
Если поискать на сайте, - можно найти и бесплатный вариант:
http://excelvba.ru/code/CreateWordDocuments
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#10
02.06.2014 00:24:44
Игорь, спасибо, посмотрел код VBA, если разберусь, то из него нужное наковыряю.
А ещё нашёл Макрос, запускающий Word из Excel и открывающий существующий документ:

Код
Sub Zapusk_Word_iz_Excel_02()
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If objWrdApp Is Nothing Then
            Set objWrdApp = CreateObject("Word.Application")
            Set objWrdDoc = objWrdApp.Documents.Open("C:\Doc1.doc")
            objWrdApp.Visible = True
        End If
    Set objWrdDoc = objWrdApp.Documents.Open("C:\Doc1.doc")
    Set objWrdDoc = Nothing
    Set objWrdApp = Nothing
End Sub
Пробовать буду уже наверное завтра.
 
 
 
#11
02.06.2014 10:50:59
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
Страницы: 1
Читают тему
Наверх