Поиск файлов Word по содержанию определенной строки

Option Explicit
Dim fso As Object, word As Object, Doc As Object
 
Sub CheckingFiles()
    Dim v  ' as File '
    Dim f&, s$, j$(), j1$(), b As Boolean
    Set fso = CreateObject("scripting.filesystemobject")
    s = ThisWorkbook.Path 'Папка по умолчанию, та-же где и эта книга
    Set word = CreateObject("Word.Application")
    word.DisplayAlerts = 0
    ChDir s
    On Error Resume Next
    Debug.Print "Найденные файлы Word:"
    For Each v In fso.GetFolder(s).Files
        If LCase(fso.GetExtensionName(v)) = "doc" Then
            'а далее можно организовать поиск в файле нужного текста
            Err.Clear
            b = InStr(1, v, "~$") = 0
            If b Then Set Doc = word.Documents.Open(CStr(v))
            If b And Err = 0 Then
                If MsgBox("Показать этот документ ?", vbYesNo) = vbYes Then
                    'Здесь пример активности этого документа _
                    тут можно организовать и поиск и всё что хош
                    word.Visible = 1: Exit For 'одного будет достаточно
            End If: End If
        End If
    Next
End Sub

Option Explicit
 
Dim fso As Object, word As Object, Doc As Object
 
Private Sub Form_Load()
 Dim v  ' as File '
    Dim f&, s$, j$(), j1$(), b As Boolean
    Set fso = CreateObject("scripting.filesystemobject")
    s = "c:\1\"
    Set word = CreateObject("Word.Application")
    word.DisplayAlerts = 0
    ChDir s
    On Error Resume Next
    Debug.Print "Найденные файлы Word:"
    For Each v In fso.GetFolder(s).Files
    
    
        If LCase(fso.GetExtensionName(v)) = "doc" Then
            Err.Clear
            b = InStr(1, v, "~$") = 0
            If b Then Set Doc = word.Documents.Open(CStr(v), , True)
            If b And Err = 0 Then
             'Собственно сам поиск
            If word.Selection.Find.Execute("илья") = True Then MsgBox v
             End If
        End If
        
        
    Next
 
End Sub