раскидать таблички Excel на страницу в Word

[TayfooN]

Такая проблема. У меня есть Эксель файл, в котором на страницу в 3 столбца и 4 ряда расположены мелкие таблицы, разделённые между собой 1 тонким столбцом и тонкой строчкой. Мне нужно раскидать все таблички на собственную страницу в ворде, но когда я копирую больше чем 1 табличку, то Ворд воспринимает эти таблички как 1 таблицу, даже не знаю, как их расклеить. Добрые люди, помогите

[EducatedFool]

Прикрепите 2 файла:
1) книгу Excel с "табличками"
2) документ Word с примером того, что должно получиться в итоге
(достаточно вставить в документ 3-4 таблицы для образца)


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

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

[TayfooN]

Вот 2 файла

[EducatedFool]

В файле Excel нажми желтую кнопочку.
Если всё будет работать как надо, можешь нажать зелёную.

Проверено в Office 2003 и WinXP.
Макросы в Excel должны быть включены.

Вот весь макрос:

Dim wd As Object

Sub main()
    Set wa = CreateObject("Word.Application")
    wa.Visible = True:    ' wa.ScreenUpdating = False
    Set wd = wa.Documents.Add

    Dim cell As Range
    For Each cell In Me.UsedRange.Columns(1).Cells
        If cell.Interior.ColorIndex = 1 Then
            КопироватьТабличку cell
            If cell(1, 6).Interior.ColorIndex = 1 Then КопироватьТабличку cell(1, 6)
            If cell(1, 11).Interior.ColorIndex = 1 Then КопироватьТабличку cell(1, 11)
        End If
    Next
End Sub

Sub КопироватьТабличку(ByRef cell As Range)
    cell.Resize(13, 4).Copy
    wd.Sections.Add.Range.PasteExcelTable False, False, False
End Sub

См. вложение: (файл Excel пришлось немного урезать)