Заполнение документа word из excel

Заполнение документа word из excel

Версия от 24.09.2019

Операционная система: Windows

Microsoft Office 2007/2010/2013/2016/2019/365

Надстройка для Word позволяет пользователям заполнять любое количество документов Word (.doc, .docm, .docx) данными, хранящимися в Excel-файлах (.xls, .xlsm, .xlsx).

Для работы с надстройкой необходимо:

1. Скачать архив с файлами, который станет доступен для скачивания сразу после оплаты (порядок оплаты);

2. В приложении Word установить основную надстройку (расширение dotm), следуя пошаговой инструкции по установке для различных версий Word в результате успешной установки на ленте Word появляется вкладка «Надстройки» и кнопка вызова диалогового окна программы;

3. В приложении Excel установить вспомогательную надстройку (расширение xlam) следуя пошаговой инструкции по установке для различных версий Excel. Эта надстройка не добавляет никаких вкладок и кнопок на ленту приложения. Вспомогательная надстройка добавляет в Excel пользовательские функции, позволяющие преобразовать некоторые значения к к определенному виду, например, даты в формат «дд» месяц гггг, числа в текст прописью, изменить падеж фамилии, имени, отчества и должности с именительного на родительный;

В состав вспомогательной надстройки для Excel входят следующие функции:

СуммаПрописьюРубли — преобразует число в текст прописью и подставляет рубли;

СуммаПрописьюЕвро — преобразует число в текст прописью и подставляет евро;

СуммаПрописьюДоллары — преобразует число в текст прописью и подставляет доллары;

СуммаПрописьюГривны — преобразует число в текст прописью и подставляет гривны;

СуммаПрописьюТенге — преобразует число в текст прописью и подставляет тенге;

ЧислоПрописью — преобразует целое число в текст прописью как в мужском, так и в женском роде (ИСТИНА — мужской, ЛОЖЬ — женский);

РодПадежФИО — преобразует ФИО в родительный падеж (ФИО в разных ячейках);

РодПадежФИО_2 — преобразует ФИО в родительный падеж (ФИО в одной ячейке);

РодПадежДолжность — преобразует должность в родительный падеж;

ДатаСтрокой — преобразует дату к формату «dd» month yyyy, если аргумент «Кавычки» — ИСТИНА, или к формату dd month yyyy, если аргумент «Кавычки» — ЛОЖЬ;

ВалютаРубли — определяет окончание целой части валюты по указанному числу;

ВалютаКопейки — определяет окончание дробной части валюты по указанному числу;

ДробноеЧислоПрописью — преобразует дробное число в текст прописью до тысячных.

4. Подготовить рабочую книгу Excel для внесения исходных данных (образец рабочей книги прилагается). Внести в столбцы «C» и «D» файла Excel данные для их дальнейшего использования в документах Word, коды должны быть уникальными. На основе этих кодов создаются метки для последующего внесения в шаблон документа Word;

5. Подготовить шаблон документа Word, для этого необходимо внести в документ Word специальные метки в строгом соответствии с заданными кодами файла Excel;

6. Нажать кнопку вызова диалогового окна на вкладке «Надстройки» в приложении Word;

7. Выбрать в диалоговом окне файл Excel с данными и режим работы программы;

8. При необходимости вставки таблиц из рабочей книги Excel в шаблон документа Word перейти на вкладку диалогового окна «Выбор таблиц для вставки» и заполнить пустые поля, предварительно создав в рабочей книге Excel диапазон ячеек с исходными данными для вставки таблиц и закладки в шаблоне документа Word;

8.1. таблица должна быть размещена на отдельном листе рабочей книги с исходными данными, а диапазон ячеек таблицы должен быть заполнен именами закладок в шаблонах документов Word, адресами (либо именами) таблиц, именами листов, на которых расположены эти таблицы;

8.2. при необходимости можно изменить расположение каждой вставленной таблицы на листе документа Word (0 — по левому краю, 1 — по центру, 2 — по правому краю), предусмотрена возможность организовать автоматическую вставку служебных закладок вида «Img_clmn_номер» в ячейки таблицы столбца с заданным номером для одновременной вставки в эти ячейки изображений;

8.3. в шаблоне заполняемого документа необходимо зайти на вкладку Вставка/Ссылки/Закладка и создать необходимое количество закладок, присвоив им уникальные имена.

9. При необходимости вставки в шаблон документа Word изображений, перейти на соответствующую вкладку, установить флажок в поле «Выбор изображений для вставки» и заполнить пустые поля, предварительно создав в рабочей книге Excel диапазон ячеек с исходными данными для вставки изображений и закладки в шаблоне документа Word ;

9.1. таблица должна быть размещена на отдельном листе рабочей книги с исходными данными, а диапазон ячеек таблицы должен быть заполнен именами закладок в шаблонах документов Word, полными именами файлов изображений, высотой либо шириной изображений (если размеры отсутствуют, то изображение вставляется в натуральную величину) и способом обтекания изображения текстом;

9.2. при необходимости вставки изображений во вставленные таблицы необходимо использовать служебные закладки вида «Img_clmn_номер», для вставки изображений в произвольные позиции документов можно использовать любые другие имена закладок;

10. Сохранить сделанные в диалоговом окне установки, чтобы не повторять их в следующий сеанс работы;

11. Нажать кнопку «ОК».

1) выбирать файл Excel с данными для заполнения документа Word;

2) автоматически заполнять активный документ Word данными из выбранного файла Excel;

3) выбирать несколько документов Word для заполнения данными из Excel;

4) автоматически заполнять любое количество документов Word данными из выбранного файла Excel (например комплект договоров на продажу земельного участка, на регистрацию этого участка, на подключение его к коммуникациям, о порядке пользования, акт приема передачи и так далее ) ;

5) автоматически сохранять заполненные документы под уникальными именами и сообщать пользователю имя файла и путь к папке, в которую он сохранен;

6) задавать путь к папке для сохранения заполненных документов (по умолчанию документы сохраняются в ту же папку, в которой расположен шаблон заполняемого документа);

7) использовать значение заданной ячейки в именах заполняемых документов;

8) автоматически закрывать заполненные документы;

9) отключать вывод сообщений об именах заполненных документов и путях к папкам, в которые они сохранен;

10) автоматически записывать исходные данные на отдельный лист, формируя таким образом реестр заполненных документов;

11) копировать таблицы (расчеты, спецификации) из рабочей книги Excel с исходными данными в шаблон документа Word;

12) вставлять изображения (печати, подписи, эскизы) в шаблон документа Word;

13) сохранять настройки, сделанные в диалоговом окне, для последующих сеансов работы с надстройкой.

+ помощь при установке

+ помощь при настройке

+ бесплатные обновления

+ без привязки к компьютеру

*В случае, если в надстройку будут вноситься какие-либо изменения или дополнения, то обновленную версию надстройки Вы будете получать бесплатно в течение одного года со дня покупки.

Надстройка для заполнения документов данными из Excel (из Excel в Word) + рассылка почты

Надстройка FillDocuments для MS Excel: общие сведения

Предназначение программы: заполнение множества документов данными из Excel нажатием одной кнопки.

Для работы программы требуется таблица Excel с данными для подстановки, и папка с шаблоном (шаблонами) документов.
В качестве шаблонов можно использовать файлы Word и Excel.

На выходе получаются заполненные файлы исходного формата, или формата PDF.
Возможно формирование писем по шаблону, с последующей рассылкой через Outlook или TheBAT.

• Количество шаблонов не ограничено. Вы легко можете сами настраивать любые шаблоны.
  В качестве шаблонов могут выступать файлы Excel (XLS, XLSX и др.), документы Word (DOC, DOCX и др.), а также текстовые документы (расширения TXT, DAT, XML и т.д.).
• Гибкая настройка имён создаваемых файлов. Можно раскладывать файлы по подпапкам.
• Подстановка таблиц и картинок (фото, печатей, подписей и т.п.) в заполняемые документы.
• Склонение фамилий, дата и сумма прописью, — дополнительные функции обработки данных.
• Рассылка почты (писем с вложениями) через TheBAT! или Outlook. Можно формировать красивые HTML-письма
• Есть возможность формировать один документ по нескольким строкам исходной таблицы.
  (вывести список сотрудников в приказ, список товаров в накладную, и т.д.).
• Можно выбирать шаблоны для заполнения в диалоговом окне
  (или даже программа будет сама брать нужные шаблоны для разных строк)
• Подстановка данных в надписи и колонтитулы шаблонов Word.

С момента выхода программы в 2012 году, её функционал постоянно развивался (вышли десятки обновлений), поэтому сейчас в FillDocuments есть всё, что только может вам понадобиться для задачи создания документов по шаблонам.

Более подробно всё это описано в разделе Справка по программе

На видео рассказывается о работе с программой, и показан процесс её настройки:

Подробные инструкции и описание функционала также можно найти в разделе Справка по программе

Нажатием одной кнопки, эта программа вам позволит:

• заполнить и распечатать договор купли-продажи и акт выполненных работ всего за пару секунд
• подготовить приказы, уведомления и доверенности по таблице с данными сотрудников
• разослать персонифицированные коммерческие предложения или приглашения по почте
• подготовить договоры и акты по шаблонам, и сразу вывести их на печать
• сделать красивые грамоты по различным шаблонам, и сохранить результат в виде ПДФ файлов
• распечатать несколько накладных или заявок на товар в формате Excel по одной исходной таблице (прайсу)
• заполнять командировочные удостоверения, инструкции, соглашения, или любые другие однотипные документы

Как скачать и протестировать программу

Для загрузки надстройки FillDocuments воспользуйтесь кнопкой Скачать программу

Если не удаётся скачать надстройку, читайте инструкцию про антивирус

Если скачали файл, но он не запускается, читайте почему не появляется панель инструментов

Это полнофункциональная пробная (TRIAL) версия, у вас есть 5 дней бесплатного использования ,
в течение которых вы можете протестировать работу программы.

Этого вполне достаточно, чтобы всё настроить и проверить, используя раздел Справка по программе

Если вам понравится, как работает программа, вы можете Купить лицензию

Лицензия (для постоянного использования) стоит 1600 рублей .

В эту стоимость входит активация на 2 компьютера (вы сможете пользоваться программой и на работе, и дома).
Если нужны будут дополнительные активации, их можно будет в любой момент приобрести по 500 рублей за каждый дополнительный компьютер.

• 747328 просмотров

Комментарии

Александр, сделайте доп столбец в исходной таблице (протянув формулу типа =B2, чтобы даты в двух столбцах одинаковые были), и назначьте этому доп. столбцу нужный формат даты. И из этого столбца подставляйте в шаблоны.

Добрый день. Во-первых, Игорь, спасибо вам за вашу программу — пользуюсь ею уже много лет. Во-вторых, вопрос: столкнулся с задачей: в excel дата в формате ДД.ММ.ГГГГ (удобно для просмотра, компактно), а в word нужно вывести эту дату в формате длинной даты (12 апреля 1961 г., а то еще «12» апреля 1961 года). Как это можно сделать, т.к. пока в word переносится только тот формат, который используется в таблице.

Ответил вам на почту

Игорь, добрый день!
Скачал и протестировал 22.03.2020 демонстрационную версию Вашего макроса: FillDocuments
Версия: 3.2.7 от 26.11.2019

Нашел ряд ошибок при экспорте данных из Excel файла в Word, а именно:
1. Не происходит вставка в Header и Footer документа.
2. При вставке даты некорректно отображаются кавычки “10» марта 2020 г.
3. Сумма не переносится корректно, если в Excel ячейка не вмещается: #########

К сожалению, прикрепить файлы к данному сообщению не возможно.
Можно отправить исходные и полученные файлы с ошибкой Вам на почту?

С уважением,
Денис

Добрый день,
формирую XML путем подстановки данных из excel строк в нужные поля. потом сохраняю с расширентем .xml, файлы сохраняются в UTF8, а нужно в windows-1251.
скачал и установил ваш корректор в реестр — не помогло.
WIN10 64 DE

если расширение файлов устанавливать, как .txt , то кодировка , как и хотелось бы win 1251

Добрый вечер,
мне нужно из таблицы excel по каждой строке формировать XML файл. Получаю файл, но программа генерируете файл в кодировке UTF-8, а надо в windows-1251.

Что можно сделать?

Добрый вечер,
мне нужно из таблицы excel по каждой строке формировать XML файл.
как можно получить файл с расширением XML ?
т.е. если я делаю шаблон с расширением XML , то файл получается, но надстройка не подставляет в нужные места значения из строк. Если тот же шаблон в ворде, то я получаю заполненные как нужно файлы, ног в формате .doc

Моя программа (надстройка) никак не связана с вашими файлами, в которых хранятся данные.
Программа открывается, и хорошо, — от программы больше ничего не требуется, программа не должна открывать никакие файлы (файл с исходными данными вы открываете сами. Где он хранится у вас, это вам лучше знать)

У меня исчез файл Excel, где данные. Открывается программа и пусто.

Автор, ты гений! Какая это помощь отделу кадров, ты даже не представляешь! 1С можно выкидывать нахрен. Я в таком восторге, что ты не представляешь. Честно, пока не купил, потому что только пару часов как играю с твоим творением, но точно куплю! Это супер-мега-круто!

Эта ошибка из-за того, что Word подвисает.
Попробуйте другую версию Ms Office (я рекомендую версию 2010)

Добрый день! подскажите пожалуйста!
Пользуюсь триал версией и столкнулся с проблемой. Имеется Excel файл 10000 сторк 3 столбца программа прекрасно создает 10000 документов ворд с заменой. НО при наличие в Excel файле 10000 строк и 38 столбцов программа создает 350 файлов после чего в окне формирования документов отображает создание еще 100 документов(которые никуда не сохраняются) и после вылетает ошибка что сервер занят. Есть предположения это проблемы Wordа Excelя или надстройки?

Проверьте маску имени файла в настройках программы
https://excelvba.ru/programmes/FillDocuments/manuals/FilenameMask
Примените стандартную маску <%str%>— <%filename%>. <%ext%>для проверки работоспособности.

Здравствуйте.
Хочу купить программу. Скачала бесплатную версию и столкнулась с такой проблемой. Создано 9 шаблонов, 8 — в ворд. 1 — в ексель. После нажатия «Сформировать документы» документы по шаблону ексель формируются всегда. Документы по 8 шаблонам ворд то формируются, то нет. При этом программа пишет, что создано 9 файлов, а по факту в папке сохранен всего 1.

Здравствуйте, после формулы «Пропись_РублиКопейки_сЧислами» появляется лишний пробел, в шаблоне его нет.

Забыл ещё одно. Есть возможность при выводе из надстройки в .PDF подхватывать заполненные значения полей Свойств документа: Заголовок, Автор, Тема, Ключевые слова.
Когда делаю перевод в .PDF из .XLSX своим макросом, это всё подхватывается, а из надстройки все поля пустые.

1. Сейчас сижу на 3.2.6, потому что при нажатии на этой странице «Скачать программу» она сохраняется размером 0 КБ. Можно какую-нибудь ссылку «нормальную» получить. Видать админы что-то позакрывали :(.
2. При формировании документов (много, около 250 штук из таблицы в 7500 строк) с установленной галкой на вывод в .PDF периодически происходит «зависание» на «больших» файлах. Выяснил момент зависания: выскакивает инфоокно «Публикация», ползунок на нём доходит почти до конца, выскакивает инфоокно «Сохранение файла», ползунок доходит до конца и это окошко не закрывается. Приходится «пинать» 🙂 — жать «Отмена». Файл при этом сохраняется и проблем в нём не видно, а процесс дальше идёт нормально.
3. Пункт меню «О программе» —> кнопка «Опции» —> в тексте чекбокса ошибка «Запускать настройку автоматически вместе с Excel». Должно быть «. надстройку. «?

Артём, не сталкивался с подобной проблемой
Моя программа никак не затрагивает картинки и прочие объекты в шаблонах, т.е. ничего там меняться не должно.

Добрый день.
При генерации документов Excel появилась проблема — в исходном шаблоне имеются несколько вставленных изображений (подписи). После формирования документов, в получившихся файлах все эти изображения уменьшаются в полтора раза. В чем может быть причина?

Да, возможно. В справке по программе об этом написано.
Привязываетесь не к названиям полей (текст слева/сверху от ячейки с данными), а к именам/адресам конкретных ячеек.

Возможно ли формировать договор из вертикальной таблицы??

Дмитрий, скорее всего, маска имени файла неверно задана
(программа не может сохранить файл под нужным именем)
https://excelvba.ru/programmes/FillDocuments/manuals/FilenameMask

Добрый день!
Я пока пользуюсь демо-версией.
Мне важно сначала разобраться. потом планирую купить.
У меня сейчас 1 проблема: после команды «Сформировать документы» папка с документами открывается, но документ не формируется. Хотя на печать отправляется. В чем может быть причина?

Екатерина, да, возможно
Читайте справку про подстановочные коды (можно брать данные из заданных ячеек)
https://excelvba.ru/programmes/FillDocuments/manuals/templates/FieldCodes

Второй тип кодов полей — ссылки на фиксированные (именованные) ячейки таблицы

Подскажите,пожалуйста, если таблица эксель, которую используем для заполнения шаблонов очень сложная и не умещается в одну строку,и имеет несколько столбцов. Возможно ли создать документ с хаотичным выбором ячеек из такой таблицы эксель? у меня итогу не было создано готового документа.

Здравствуйте, Никита.
Эта проблема не имеет отношения к моей программе, потому, не смогу помочь.
Моя программа просто нажимает кнопку «Печать» после формирования документов, т.е. это равносильно распечатке созданного документа вручную (можете открыть созданный документ и распечатать, будет так же по времени)

Добрый день!
Столкнулся с такой проблемой: связка Win10Pro + Office2019, документы по шаблону формируются, галка автопечать стоит, выводит один документ на печать, принтер уходит в затуп и печатает один документ примерно в минуту. Драйвера стоят самые последние. На этом же ПК в связке Win7Pro + Office 2010 такой проблемы не было. Подскажите, пожалуйста, в какую сторону «копать»? Спасибо.
ПыСы: лицензия куплена если что )

Армен, всё это написано на сайте, просто не все читают: https://excelvba.ru/faq/system_requirements

Тут многие спрашивают про Mac, почему вы не рекомендуете программы эмуляции Windows на Маc. Например Parallels Desktop

Отправить комментарий

Тип программы:
условно-бесплатная

Ограничения: 5 дней бесплатного использования

Все обновления бесплатны

Если что-то непонятно, или не нашли ответа на свой вопрос, в любое время пишите
в Skype или на почту

версия 3.2.7 от 26.11.2019

ПОПУЛЯРНЫЕ ПРОГРАММЫ

© 2009-2019 Игорь Вахненко

Слияние документов Word и Excel

Слияние документов Word и Excel

Добрый день, уважаемые читатели и подписчики блога! Сегодня речь пойдёт о слиянии документов Word и Excel.

Задача: используя «базу» контактов магазинов из книги Excel загрузить в договор, составленный в программе Word.

Также есть пустой документ Word. В него нужно подставить данные.

Воспользуемся встроенной функцией «Слияние» доступной в пакете Microsoft Office.

Суть функции слияния — из файла Excel берутся заголовки, по ним будут расставляться поля для заполнения в документе Word. Данные будут автоматически подставляться вслед за изменением режима просмотра.

Данные в заголовках обязательно должны быть уникальными!

У способа есть много минусов (в сравнении с макросами), но для повседневного и быстрого использования вполне сгодится.

• создадим пустой документ;
• перейдём на вкладку «Рассылки»;
• в блоке кнопок «Начало слияния» нажимаем кнопку «Начать слияние»;
• выбираем пункт «Обычный документ Word».

Поначалу ничего не изменится, ведь теперь стоит указать — откуда получить информацию. В том же блоке кнопок нажмём кнопку «Выбор получателей» и выберем пункт «Использовать существующий список».

Далее появится окно выбора файла источника. Укажем путь до файла с данными по магазинам. Щёлкнуть на файл и нажать «Открыть».

В появившемся окне необходимо подтвердить источник (откуда будут загружаться данные), на примере это будет Лист1. Обязательно должна стоять галка «Первая строка содержит заголовки столбцов».

Нажимаем «ОК» и… ничего не меняется. Кроме одно детали — становятся активными действия в блоке кнопок «Составление документа и вставка полей. Он-то нам и нужен.

Откинем первые три кнопки — в нашем случае они не понадобятся и напечатаем небольшой текст, где будут упомянуты заголовки данных из книги Excel. Это позволит в дальнейшем добавить «Поля слияния».

Сделаем так, чтобы наши данные «подтянулись» в документ. Нажимаем кнопку «Вставить поле слияния» и видим, что все заголовки таблицы являются полями слияния, другим языком — могут загружаться в то место документа, куда были помещены пользователем.

Самое главное — смотреть куда в данный момент установлен курсор, так как именно в эту часть текста и будет добавляться поле слияния.

Установим курсор в заголовок, после символа «№», затем выберем из списка «Вставить поле слияния» пункт «Договор».

Появится слово «Договор» в кавычках. Странно, но нет:) Теперь нужно нажать кнопку «Просмотреть результаты». Картина будет другой. После номера договора подгрузился его номер по магазину «Ручеёк» — 152.

Заполним все поля — щёлкаем после слова «Магазин» и выбираем пункт «Магазин», после слова «поставщика» и выбираем поле «Контрагент», после «сумму» выбираем пункт «Сумма», после «№» «Договор», после «от» «Дата».

Снова нажимаем кнопку «Просмотреть результаты».

Данные подгрузились. Как их поменять? Рядом с кнопкой «Просмотреть результаты» есть стрелка. Щелкая на неё можно увидеть как меняются данные.

Вот так можно быстро подгрузить данные из Excel в Word. В следующих уроках мы сделаем похожее действие — только с помощью VBA.

Вас может заинтересовать урок — Импорт данных SQL в Excel.

Заполнение документа word из excel

Как — смотрите вопрос (внизу этой страницы) от «неправильно понятой» девушки по имени Aleksandra.

В какой версии лучше — да по большому счёту всё равно.

Перечислите, какие именно действия Вы совершаете вручную (чтобы понять, что будет делать за Вас программа).

А пока «пристрелочный» вариант. Все таблицы открытого документа он преобразует в табулированный (разбитый символами табуляции) текст.

Сложного ничего нет. Прикрепите файл с таблицей Excel — тогда и макрос напишем.
Можно прикрепить и пример того, что должно получиться после вставки в Word.

Если известно, какой диапазон ячеек является таблицей (например, [a2:g35]), то макрос для переноса займёт 3 строки.

Кстати, тема неоднократно обсуждалась на форуме.

В любой. По крайней мере, в Office XP, 2003, 2007 это будет работать.

———————
Надстройка предназначена для формирования (подготовки) документов по шаблонам, с заполнением созданных файлов данными из текущей книги Excel.

В качестве шаблонов могут выступать следующие типы файлов:

• документы Word (расширения DOC, DOCX, DOCM)
• шаблоны Word (расширения DOT, DOTX, DOTM)
• книги Excel (расширения XLS, XLSX, XLSM, XLSB)
• шаблоны Excel (расширения XLT, XLTX, XLTM)
• текстовые документы (расширения TXT, DAT, XML и т.д.)

В качестве исходных данных для заполнения, используется открытый в Excel файл (с таблицей, содержащей строку заголовка)

Количество шаблонов документов не ограничено

ПРОГРАММА ПОДДЕРЖИВАЕТ ФОРМИРОВАНИЕ ДОКУМЕНТОВ В ФОРМАТЕ PDF
(создаётся файл DOC, и преобразуется в PDF средствами Word 2007 — 2010)
———————————
В каких случаях вам может пригодиться эта надстройка:

• если у вас в таблице Excel хранится список контрагентов (с их реквизитами), и вы хотите нажатием одной кнопки формировать договоры, акты или коммерческие предложения для каждого из них
• если в вашей таблице Excel хранятся паспортные данные сотрудников, и вам необходимо быстро сформировать по шаблону приказы или прочие документы в формате Word, заполнив созданные документы данными сотрудников
• подготовить письма, уведомления, грамоты в формате PDF или Word, заполнив созданные файлы информацией с листа Excel
• и т.д. и т.п. — надстройку можно применять для создания любых документов на основе данных из Excel

———————————

Скачать надстройку можно здесь:
http://excelvba.ru/programmes/FillDocuments

Пролистайте эту страницу вниз — увидите список похожих тем.
В них Вы, скорее всего, найдёте ответ на свой вопрос.

Поиском по форуму сможете найти ещё множество подобных тем, где уже не раз обсуждался этот вопрос.

Да спасибо, есть похожая тема
http://programmersforum.ru/showthread.php?t=28058
но есть проблема, вот макрос который я переделал для себя.

Sub CreateDocs()
Dim WA As New Word.Application
Dim WD As Word.Document, ra As Word.Range
Set WD = WA.Documents.Add(ThisWorkbook.Path & Application.PathSeparator & «шаблон.dot»)
With WA.Selection
.HomeKey Unit:=wdStory: .EndKey Unit:=wdStory, Extend:=wdExtend
.Copy
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
.Paste
.EndKey Unit:=wdStory: .HomeKey Unit:=wdStory, Extend:=wdExtend
.Find.Execute «<призвище>«, False, , , , , , , , Cells(i, 1), True
.EndKey Unit:=wdStory, Extend:=wdExtend
.Find.Execute «<імя>«, False, , , , , , , , Cells(i, 2), True
.EndKey Unit:=wdStory, Extend:=wdExtend
.Find.Execute «<побатькові>«, False, , , , , , , , Cells(i, 3), True
.EndKey Unit:=wdStory, Extend:=wdExtend
.Find.Execute «<серія>«, False, , , , , , , , Cells(i, 4), True
.EndKey Unit:=wdStory, Extend:=wdExtend
.Find.Execute «<номер>«, False, , , , , , , , Cells(i, 5), True
.EndKey Unit:=wdStory, Extend:=wdExtend
.Find.Execute «<кім виданий>«, False, , , , , , , , Cells(i, 6), True
.EndKey Unit:=wdStory, Extend:=wdExtend
.Find.Execute «<дата>«, False, , , , , , , , Cells(i, 7), True
.EndKey Unit:=wdStory, Extend:=wdExtend
.Find.Execute «<ідентифікаційний>«, False, , , , , , , , Cells(i, 8), True
.EndKey Unit:=wdStory
Next i
End With
WD.SaveAs ThisWorkbook.Path & Application.PathSeparator & «договора.doc»
WD.Close False: WA.Quit False
End Sub

Проблема в том что данные в шаблоне word повторяются два раза, и фамилия,имя,отчество три раза, в верху и внизу документа. Этот код вставляет все по очереди,получается в верху договора одна фамилия а внизу другая, по списку следующая в таблице excel? а нужно чтобы каждая строка из excel повторялась два раза.
И еще, как сделать чтобы все сохранялось в отдельных файлах, (название файла, например по фамилии) а не все в одном.
Спасибо.

Оценка статьи:

Загрузка...