Как заполнить таблицу в одном документе Word данными из таблицы Excel с помощью макроса VBA?

Question

[ProooNoob]

Всех приветствую! Возникла задача автоматизации формирования таблицы в документе Word из данных, вводимых в таблицу Excel.
1. Имеется таблица Excel
Примерный формат приведён ниже, с неопределенным количеством вводимых данных, но со строго указанной формой. Необходимо при нажатии клавиши формировать таблицу в Word документе.

2. Имеется сам типовой Word документ
Таблица в документе должна быть заполнена данными из таблицы Excel и в зависимости от количества пунктов (№ п/п) расширяться полями (в качестве примера приведены пустые поля).

3. Имеется пример кода
Который нашел на просторах интернета: Думал переделать под свои задачи, но пока не знаю с чего именно начать.

Sub main()
Dim wdApp As Object
Dim wdDoc As Object

HomeDir$ = ThisWorkbook.Path
Set wdApp = CreateObject("Word.Application")
i% = 2
Do
If Cells(i%, 1).Value = "" Then Exit Do
If Cells(i%, 1).Value <> "" Then

NPP$ = Cells(i%, 1).Text
ID$ = Cells(i%, 2).Text
Adress$ = Cells(i%, 3).Text
SN$ = Cells(i%, 4).Text

DataC$ = Date

FileCopy HomeDir$ + "\template.doc", HomeDir$ + "\" + NPP$ + "_" + ID$ + "_" + DataC$ + ".doc"
Set wdDoc = wdApp.Documents.Open(HomeDir$ + "\" + NPP$ + "_" + ID$ + "_" + DataC$ + ".doc")

wdDoc.Range.Find.Execute FindText:="&date", ReplaceWith:=DataC$

wdDoc.Range.Find.Execute FindText:="&id", ReplaceWith:=ID$
wdDoc.Range.Find.Execute FindText:="&adress", ReplaceWith:=Adress$
wdDoc.Range.Find.Execute FindText:="&sn", ReplaceWith:=SN$

wdDoc.Save
wdDoc.Close
End If

i% = i% + 1
Loop
wdApp.Quit
MsgBox "Готово!"

End Sub

Подскажите, как это реализовать с применением макросов VBA? Буду рад любой помощи, примерам кода, алгоритму как это делать. Прочесал форумы, но не нашел необходимой информации, хоть и задача является типичной.

Comments

[Александр]

Какая конечная цель выгрузки из «Экселя» в «Ворд»?

[ProooNoob]

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

[Александр]

клавише

Клавише? Спецклавиатура под макросы? :-D

На первом скриншоте кнопка! (Ядрёна ж кочерыжка! Клавиша!)

На вопрос не ответили.

[Денис _______________]

2. Если рисовать таблицы средствами Word, то к ним можно обращаться с адресацией в ячейку, что-то типа такого

Rem -= Заполняем данными таблицы ЖВК =-
       Dim y, k As Integer
       Let k = 1
       For y = Worksheets("Титул").Cells(4, 4) To Worksheets("Титул").Cells(4, 5)
           Wd.Tables(3).cell(k, 1).Range.Text = Worksheets("БД для входного контроля (2)").Cells(6, 4 + y)
           Let k = k + 1
       Next y
       End With

Wd.Tables(3) - 3 это номер таблицы на листе World. Я так понимаю это порядковый номер таблицы.

https://habr.com/ru/post/359218/