Макрос поиска таблицы в word - VBA

Формулировка задачи:

Добрый день! Есть документы word, в каждом есть определенная табличка 3*3 с какой то информацией! Заполнять ее надо из Excel. Она находится в середине текста. Ее порядковый номер я не знаю, перед ней могут быть еще таблицы. Помогите ее идентифицировать. Решил устроить поиск по уникальному тексту.

Dim WORD As Word.Application
Dim DOCUNET As Word.Document
 
Set WORD = GetObject(Class:="Word.Application")
Set DOCUNET = WORD.ActiveDocument
 
With DOCUNET.Content.Find
.Text = "Сметная стоимость"
.Execute
 
If .Found = True Then
MsgBox "Нашли"
End If
 
End With

Ну нашли, а что нашли и где оно! Не очень понимаю работу ворда и Vba.

Решение задачи: «Макрос поиска таблицы в word»

textual
                            Листинг программы 
                        

                            Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdTable As Word.Table
 
Set wdApp = GetObject(, "Word.Application")
Set wdDoc = wdApp.ActiveDocument
 
With wdDoc.Content.Find
     .Text = "Сметная стоимость"
     .Execute
     If .Found = True Then
        Set wdTable = .Parent.Tables(1)
        wdTable.Cell(1, 1).Range = "Ячейка <a1>"</a1>
        wdTable.Cell(3, 3).Range = "Ячейка <c3>"</c3>
     End If
End With
                        