перенос данных из excel в word

[D_e_n_n]

очень нужно, сам не знаю как сделать
есть таблица с номерами договоров и другими данными, необходимо по каждому договору создать лист с таблицей и заполнить её данными из excel файла.
у каждого договора разное кол-во точек поставки


------------------ добавлено модератором - вдруг кому понадобится --------------------------

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

Количество шаблонов документов не ограничено
--------------------------------
В каких случаях вам может пригодиться эта надстройка:

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

--------------------------------

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

[VictorM]

Этот вопрос столько раз уже рассматривался на форуме.
Один из "дежурных" вопросов ))
Воспользуйтесь поиском

[D_e_n_n]

нашел время и воспользовался поиском, сделал почти всё, осталось только 1) чтобы каждый договор не создавался новый файл word а новый лист в worde (так и не понял как это делается)
2) если у одного договора несколько объектов, то создавался один лист с договором, а в таблицу попадали данные всех его объектов

[doober]

Откажитесь от закладок и заполняйте таблицу,
применительно к вашему макросу переменные взяты
Посмотрите ,что в ячейках таблицы появится

Sub TBL()
Dim obj As Object, W_Doc As Object
Dim T As Object
 Set W_Doc = obj.Documents.Add(Template:=tplName)
 
    Set T = W_Doc.Tables(1)
   For M = 1 To 13
    For N = 3 To 8
     T.Cell(N, M).Range.Text = M & "_" & N
     Next
    Next
    
    
End Sub

[IgorGO]

в Excel все в одну таблицу.
В Word - документ слияния
успехов!

[D_e_n_n]

Сообщение от IgorGO

в Excel все в одну таблицу.
В Word - документ слияния
успехов!

пробовал слияние, но так и не понял как там сделать чтобы для одного договора он выводил все его объекты в таблицу

[IgorGO]

на диске С сделайте папку Temp в ней - N1, сложите туда файлы из вложения (т.е. все должно лежать в папке c:\temp\n1) открывайте документ Word.

[D_e_n_n]

Сообщение от IgorGO

на диске С сделайте папку Temp в ней - N1, сложите туда файлы из вложения (т.е. все должно лежать в папке c:\temp\n1) открывайте документ Word.

в первом моём вложении, в примере есть данные.
да это всё понятно, вот только у меня в примере
0003 ОАО Тракторный завод 2 карьер
0003 ОАО Тракторный завод 1 пром зона
0004 Столовая 3 столовая
0004 Столовая 2 столовая2
0004 Столовая 1 1Ф
0007 Киоск 4 киоск пирожки
0007 Киоск 2 УЧЕТ

дак вот в ворд файле должен быть покупатель ОАО Тракторный завод
а в таблице
договор 0003
2 карьер
1 пром зона

договор 0004
3 столовая
2 столовая2

[IgorGO]

а во вложении что?
Вы дальтоник?

[shanemac51]

вопросы
-повторяется ли номер договора у разных покупателей (например дог,003 у столовой и бани, у столовой 003 в 2010 и 2011 году)
-в один файл загнать не сложно, но как вы в этом случае будете подгонять хвосты-подписи или покупатель-договор всегда влезает на лист
-считаю оптимальным с:\temp\покупатель\договор,doc
-подгонка хвоста через предварительный просмотр и уменьшить на 1 страницу