Объединение файлов Word в один средствами VBA
Формулировка задачи:
Ответа на этот вопрос не нашел, так что если пропустил эту тему в архивах, заранее прошу прощения.
Тема такая. Из полей формы или напрямую из запросов данные экспортируются в шаблоны документов Word на закладки - это все довольно подробно разобрано на этом форуме под разными углами, вопросов нет. Проблема другая.
Нажатием кнопки формируется документ Word, в котором на каждой странице по акту выполненных работ. Мудохаться с каждым актом отдельно бредово, разумеется, лучше сформировать один документ на все акты и распечатать. Цикл напрашивается сам собой - это понятно. Итак, формируем первый акт, никаких проблем. Вопрос: как к нему теперь присоединить второй акт, третий и т.д.? По идее, по циклу экспортируем в шаблон каждый по отдельности акт и присоединяем к конечному документу. Как это делается? Сразу следующий вопрос: явно должна использоваться команда на разрыв страницы, чтобы каждый акт должен быть на отдельной странице - как это прописывается в VBA?
Заранее спасибо за ответы.
Тема такая. Из полей формы или напрямую из запросов данные экспортируются в шаблоны документов Word на закладки - это все довольно подробно разобрано на этом форуме под разными углами, вопросов нет. Проблема другая.
Нажатием кнопки формируется документ Word, в котором на каждой странице по акту выполненных работ. Мудохаться с каждым актом отдельно бредово, разумеется, лучше сформировать один документ на все акты и распечатать. Цикл напрашивается сам собой - это понятно. Итак, формируем первый акт, никаких проблем. Вопрос: как к нему теперь присоединить второй акт, третий и т.д.? По идее, по циклу экспортируем в шаблон каждый по отдельности акт и присоединяем к конечному документу. Как это делается? Сразу следующий вопрос: явно должна использоваться команда на разрыв страницы, чтобы каждый акт должен быть на отдельной странице - как это прописывается в VBA?
Заранее спасибо за ответы.
Решение задачи: «Объединение файлов Word в один средствами VBA»
textual
Листинг программы
docNow.Range.Copy 'копируем все данные открытого документа docAct.Range(docAct.Range.End - 1).Paste 'вставляем скопированное в книгу для объединения данных - в конец docAct.Range(docAct.Range.End - 1).InsertBreak Type:=0 'вставляем разрыв страницы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д