Set ShAp = CreateObject("Shell.Application")
Set FSO  = CreateObject("Scripting.FileSystemObject")
IBox FiMask, "маски расширений файлов", "';'", "расширений", "*.doc;*.docx;*.rtf"
Set SFolder = ShAp.BrowseForFolder(0, vbCr & vbCr & "Выберите папку для поиска:", 17, ShAp.NameSpace(&H11))
If VarType(SFolder) = 9 Then WScript.Quit
IBox wd, "ключевые слова", "запятую", "ключей", "желтый,января,Иванов,563"
Set oWord = CreateObject("Word.Application") : oWord.Visible = False
Name = "Поиск " & Split(wd,",")(0) & ".txt"
Path = ShAp.NameSpace(&H0).Self.Path & "\" & Name
Set LogFile = FSO.OpenTextFile(Path, 8, True)
FFolder SFolder, Check : Title = " Поиск файлов по ключевым словам" : LogFile.Close
If Check Then
  If MsgBox("Поиск завершен!" & vbCr & vbCr & "Данные сохранены на Рабочем столе" & vbCr &_
  "в файле " & Name & vbCr & vbCr & "Желаете открыть?", 4132, Title) = 6 Then ShAp.Open Path
Else MsgBox "Соответствующие Файлы не найдены!", 4144, Title End If : oWord.Quit

Sub IBox(Var, Text1, Text2, Title, Val)
  Var = Trim(InputBox(String(5, vbCr) & "Введите " & Text1 & " через " & Text2 & ":", " Ввод " & Title, Val))
  If Var = "" Then WScript.Quit
End Sub

Sub FFolder(Folder, Ch)
  Set Items = ShAp.NameSpace(Folder).Items
  Items.Filter 8256, FiMask
  For Each I In Items
    If Left(I.Name, 2) <> "~$" Then
      Set Doc = oWord.Documents.Open(I.Path, False, False)
      Set Sel = oWord.Selection
      For Each Word In Split(wd, ",")
        Sel.Find.Text = Word : Sel.Find.Forward = True
        Sel.Find.MatchWholeWord = False : If Sel.Find.Execute Then _
        LogFile.WriteLine Word & " в " & I.Path : Ch = 1
      Next : Doc.Close
    End If
  Next : Items.Filter 8224, "*"
  For Each Fd in Items
    If FSO.FolderExists(Fd.Path) Then FFolder Fd.Path, Ch
  Next
End Sub

InputBox, tip, Выберите тип файла, Введите расширение файла`,`nпо умолчанию "doc"
if tip=
tip=doc
MsgBox ".%tip%"
FileSelectFolder, SFolder,  ,  , Выберите папку для поиска
if SFolder=
return
InputBox, wd, Ввод ключей, Введите ключевые слова:`n(ввод через запятую-`nнапример:"желтый`,января`,Иванов`,563")
if wd=
return
Loop, parse, wd, `, ;узнаем количество ключей
{
if (A_Index=1)
Name:=A_LoopField
++N1
} 
MsgBox, 4, Запуск поиска, Все готово для поиска`nВы хотите продолжить?`n(Нажмите Да или Нет)
IfMsgBox No 
return

Loop, %SFolder%\*.%tip%, , 1 ; Рекурсия в подпапки.
{
DirFile=%A_LoopFileFullPath%
oWord:=ComObjCreate("Word.Application")
Word:=oWord.Documents.Open(DirFile)
text:=word.ActiveWindow.Document.Range().Text
Word.Close()
oWord.Quit()
N2=
	Loop, parse, wd, `, ;подбираем ключи
	{
	IfInString, text, %A_LoopField%
	++N2
	}
	
	if (N2=N1)
	{
	FileAppend, %word%`n%DirFile%`n, %A_Desktop%\Поиск %Name%.txt
	Break
	}
}
if (N2=N1)
MsgBox Поиск завершен`nданные сохранены`nна рабочем столе`nв файле Поиск %Name%
else
MsgBox Файл не найден