Генерация отчетов из Excel по шаблону Word

[Nicolas_46]

Уважаемые Программисты! Понимаю что тема довольно таки изъезженная, но просмотрев подобные темы на просторах всемирной паутины, так и не нашел примера который можно было бы адаптировать под мою задачу.
Понял, что проще всего создать отчет из Excel использую заранее подготовленный шаблон.
Я подготовил шаблон, подготовил файл Excel содержащий необходимые данные, но не понимаю, как мне перенести необходимые данные из Excel в Word.
В столбце “A” файла с примером, содержаться названия, которые используются в дальнейшем в шаблоне Word.

PS Приведенный пример является лишь небольшой частью всей задачи, которую я пытаюсь реализовать, по этому предполагается что в дальнейшем в столбце ”A” будет гораздо больше величин, но с этим я справлюсь самостоятельно, если вы выручите меня советом)
Заранее огромное спасибо!

[shanemac51]

посмотрела ваш шаблон

мое первое мнение

--делаю 4-5 ексель листов(для формализации ширины таблиц)
--каждый лист сохраняю как НТМ-файл
--в ворде --шаблон с линковкой этих НТМ -файлов
--сохранение как документ
--если нормально -- разрыв связей, таблицы по ширине листа

----
иначе --очень много писанины(в макросе)
слишком не регулярный шаблон

[Step_UA]

Для представленного образца

Sub Report()
  Dim NPole$, endCol&, Cell As Range, WD As Object, R As Object
    ' измените путь к шаблону на фиксированный или формируйте его программно
    Set WD = CreateObject("Word.Application").documents.Add("D:\Prog\Excel\VBA\Report\Шаблон ТО (Проба).dotm")
    For Each Cell In Application.Intersect(Columns(1), ActiveSheet.UsedRange)
        If Cell <> Empty Then
            NPole = "{" & Cell.Value & "}"
            With Cells(Cell.Row, Columns.Count).End(xlToLeft).MergeArea
                If .Column = 2 Then endCol = 2 Else endCol = .Column + .Columns.Count - 1
            End With
            With Range(Cell.Offset(, 1), Cells(Cell.Row + Cell.MergeArea.Rows.Count - 1, endCol))
                If TypeName(.Value) = "Variant()" Then
                    .Copy
                    Set R = WD.Range
                    While R.Find.Execute(FindText:=NPole)
                        R.Paste
                        Set R = WD.Range(R.End)
                    Wend
                Else
                    WD.Range.Find.Execute FindText:=NPole, ReplaceWith:=CStr(.Value), Replace:=2
                End If
            End With
        End If
    Next
    Application.CutCopyMode = False
    WD.Application.Visible = True
End Sub

[EducatedFool]

Можно просто нажать одну кнопочку в этой программе:
http://excelvba.ru/programmes/FillDocuments

И отдельные значения из ячеек подставятся, и таблицы целиком скопируются.