Осуществляю поиск строки "Текст" в doc-документе.
Делаю так.
'====================================
Dim WordApp As Word.Application
Dim DocWord As Word.Document
Dim flagFind As Boolean
Set WordApp = New Word.Application
Set DocWord = WordApp.Documents.Open("file.doc")
flagFind = DocWord.content.Find.Execute("---")
.,,,,,,
'====================================
на строк flagFind=... VB6 выдает сообщение:
"Method 'Execute' of object 'Find' failed"