Top-office11.ru

IT и мир ПК
2 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Заполнение 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 с данными и режим работы программы;

Читать еще:  Vba excel interior colorindex

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) сохранять настройки, сделанные в диалоговом окне, для последующих сеансов работы с надстройкой.

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

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

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

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

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

Заполнение word данными из excel

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

Читать еще:  Галочка в word 2020

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

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

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

Sasha_Smirnov
Посмотреть профиль
Найти ещё сообщения от Sasha_Smirnov
27.01.2009, 05:30#3
автоматический перенос данных с таблиц Excel в текст Word

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

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

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

в какой версии это лутше сделать

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

Сделал программу для заполнения документов данными из таблицы Excel (из Excel в Word)

———————
Надстройка предназначена для формирования (подготовки) документов по шаблонам, с заполнением созданных файлов данными из текущей книги 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

EducatedFool
Посмотреть профиль
Найти ещё сообщения от EducatedFool
27.01.2009, 06:02#4
Sasha_Smirnov
Посмотреть профиль
Найти ещё сообщения от Sasha_Smirnov
29.01.2009, 23:07#5

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

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

29.01.2009, 23:28#6
EducatedFool
Посмотреть профиль
Найти ещё сообщения от EducatedFool

Да спасибо, есть похожая тема
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 повторялась два раза.
И еще, как сделать чтобы все сохранялось в отдельных файлах, (название файла, например по фамилии) а не все в одном.
Спасибо.

Ссылка на основную публикацию
Adblock
detector
30.01.2009, 07:21#7