VBA. Приложение для поиска определённого текста в документах

Option Explicit
Dim fso As Object, word As Object, Doc As Object
 
Sub CheckingFiles()
Application.DisplayAlerts = False
    Dim v
    Dim s$, mask$, b As Boolean
    Set fso = CreateObject("scripting.filesystemobject")
    s$ = [C1]
    mask$ = [C2]
    Set word = CreateObject("Word.Application")
    word.DisplayAlerts = 0
    ChDir s
    On Error Resume Next
    For Each v In fso.GetFolder(s).Files
   
        If LCase(fso.GetExtensionName(v)) = "docx" 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(mask$) = True Then MsgBox v Else MsgBox "Error"
            
             End If
        End If
        
    Next
 
End Sub

Option Explicit
 
 
Dim fso As Object, word As Object, Doc As Object
 
Sub CheckingFiles()
    Application.DisplayAlerts = False
    Dim v, i   As Integer
    Dim s$, mask$, b As Boolean
    Dim sFileNameFull As Variant
    Set fso = CreateObject("scripting.filesystemobject")
 
    sFileNameFull = SelectedFile(vbNullString, False, "*.docx") '"*.xls;*.xlsm;*.xlsx")
    If TypeName(sFileNameFull) = "Empty" Then Exit Sub
 
    s$ = CStr(sFileNameFull)
    mask$ = [C2]
    Set word = CreateObject("Word.Application")
    word.DisplayAlerts = 0
    ChDir s
    On Error Resume Next
    i = 1
    For Each v In fso.GetFolder(s).Files
 
        If LCase(fso.GetExtensionName(v)) = "docx" 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(mask$) = True Then
                    Cells(i, 1).Value = v
                Else:
                    MsgBox "Error"
                End If
            End If
        End If
 
    Next
 
End Sub
 
Public Function SelectedFile(ByVal Path As String, Optional MultiSelect As Boolean = True, Optional ExcelExtens As String = "*.xl*") As Variant
    Dim oFd    As FileDialog
    Dim s()    As String
    Dim lf     As Long
    Set oFd = Application.FileDialog(msoFileDialogFilePicker)
 
    With oFd    'используем короткое обращение к объекту
        .AllowMultiSelect = MultiSelect
        .Title = "VBATools: Выберите файл Excel"   'заголовок окна диалога
        .Filters.Clear    'очищаем установленные ранее типы файлов
        .Filters.Add "Microsoft Excel Files", ExcelExtens, 1    'устанавливаем возможность выбора только файлов Excel
        .InitialFileName = Path    'назначаем папку отображения и имя файла по умолчанию
        .InitialView = msoFileDialogViewDetails    'вид диалогового окна(доступно 9 вариантов)
        If .Show = 0 Then
            SelectedFile = Empty
127:             Exit Function    'показывает диалог
        End If
        ReDim Preserve s(1 To .SelectedItems.Count)
        For lf = 1 To .SelectedItems.Count
            s(lf) = CStr(.SelectedItems.Item(lf))    'считываем полный путь к файлу
        Next
    End With
    SelectedFile = s
    Set oFd = Nothing
End Function

SelectedFile(vbNullString, False, "*.docx")