Como obtenho o Excel VBA para localizar texto específico em arquivos .doc?

Question

Eu quero escrever uma macro que possa encontrar os arquivos com o nome XXXX_TestSummary em cerca de 100 pastas e pesquisar a palavra "Falhou" nesses arquivos. A macro deve retornar o nome do arquivo que contém a palavra com falha no texto ou no Excel.

Estou preso, pois posso encontrar os nomes dos arquivos na pasta. Abaixo está o código:

Sub MainList()

Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long

Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1

For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile

If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.path, True
  Next xSubFolder
End If

Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Como posso fazer isso funcionar?