данные таблицы excel в word

[Screame]

Здравствуйте! Поставлена следующая задача: нужно данные из таблицы excel, переписать в word, таблиц много и они разные, но все идентичные, ранее задача реализовывалась вручную, хотелось бы все както сделать попроще, но за какой подобный пример не возьмусь ничего не работает, так как нужно. Короче ничего у меня не выходит. Пример одной из таблиц приложил, Помогите!

[VictorM]

не работает, так как нужно.

А как нужно? Мне например ничего не стало понятнее после просмотра Ваших файлов.
Да и вообще, неужели из всего что есть на форуме по этому вопросу excel в word Вам таки не подходит.

[EducatedFool]

Посмотрите это:
http://excelvba.ru/code/CreateWordDocuments
http://excelvba.ru/category/Word


------------------ добавлено позже --------------------------

Сделал программу для заполнения документов данными из таблицы 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

[nerv]

или здесь

http://www.planetaexcel.ru/forum.php?thread_id=33910
http://www.planetaexcel.ru/forum.php?thread_id=33939

[nerv]

На примере последней таблицы из Word: извлекаете архив в папку, открываете Excel, нажимаете Alt+F8, затем Enter. Повторюсь, результат в самой последней таблице Word.

Sub io()
Dim x As Object
With CreateObject("Word.Application")
    With .Documents.Open(Me.Parent.Path & "\додаток 1.rtf")
        For Each x In Range("H5:K14").Cells
            .Tables(4).Cell(x.Row - 5 + 3, x.Column - 8 + 3).Range = x.Value
        Next
        '.Tables(2).Cell(3, 2).Range таблица "АКТИВ" в Word
        '.Tables(3).Cell(3, 2).Range таблица "ПАСИВ" в Word  ну и названия)
    End With
    .Visible = True
End With
End Sub

[Alexjandro]

Ребята хорошие мои! А если нужно вместе с данными и графи перенести в ворд? То как стоит поступить с кодом?

[VictorM]

График (диаграмму) или картинкой
или как обьект Excel