VBA exel: найти текст в файле Word и вставить в Exel

[01234567898]

Доброго времени, форумчане.
У меня возникла проблемка. Мне необходимо макросом в Exel скопировать текст из файла Word. Текст файла примерно такой:
Акт №123
...
Таблица 1
Таблица 2
…
Приложения:
Сертификат качества 1 — 5 листов;
Сертификат качества 2 — 3 листа;
…
Сертификат качества N — 2 листа.

Представитель …..

Текст всегда находится между словами «Приложения:» и «Представитель».
Я научился обращаться к файлу Word, вытягивать в Exel данные из таблиц. А вот с поиском и копированием текста беда. А файлов как всегда +100500.

Sub Test()
Dim myWord As Object, myDoc As Object
Dim Name As String, strText1 As String, strText2 As String
 
Name = ThisWorkbook.Worksheets("Лист1").Range("A1") & ".docx"
 
On Error GoTo Instr
 
Set myWord = GetObject(, "Word.Application")
Set myDoc = myWord.Documents(Name)
 
With myDoc.Range
strText1 = «Приложения:»
strText2 = «Представитель»
????????????????????
End With
 
ThisWorkbook.Worksheets("Лист1").Range("A2").Select
ActiveCell.Paste
 
End Sub
 
Instr:
    MsgBox "Произошла ошибка: " & Err.Description
End Sub

Прошу Вас помочь с макросом.