Поиск определённого текста в PDF-файле

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "AcroRd32 d:\f861.pdf"
 
Do Until Success = True
    Success = objShell.AppActivate("Adobe Acrobat Reader DC")
    Wscript.Sleep 500
Loop
 
objShell.SendKeys "^{f}"
Wscript.Sleep 500
objShell.SendKeys "искомый текст"
objShell.SendKeys "{ENTER}"

Set objShell = WScript.CreateObject("WScript.Shell")
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
objStartFolder = " путь папки с исходными файлами"
 
objDestFolder = "путь папки с результатом"
 
Set objFolder = objFSO.GetFolder(objStartFolder)
 
Set colFiles = objFolder.Files
 
For Each objFile in colFiles
    If InStr(1,objFile.Name,".pdf",1) > 0  Then
         If not (objFSO.FileExists(objDestFolder & objFile.Name)) Then
            FindInFiles objStartFolder & objFile.Name
         End If
    End If
Next
 
 
msgbox "End"
 
 
 
Sub FindInFiles(full_path)
     
     Set PDFApp = CreateObject("AcroExch.App")
     Set PDFDoc = CreateObject("AcroExch.AVDoc")
 
    If PDFDoc.Open(full_path,"") Then
                        
        result1 = PDFDoc.FindText("Text1", 0, 1, 0)
        result2 = PDFDoc.FindText("Text2", 0, 1, 0)
        result3 = PDFDoc.FindText("Text3", 0, 1, 0)
        result4 = PDFDoc.FindText("Text4", 0, 1, 0)
                
        If result1=true OR result2=true OR result3=true OR result4=true Then
                 
                 objFSO.CopyFile full_path, objDestFolder
 
        Else        
                 objFSO.CopyFile full_path, "путь папки для ненужных файлов"
                 
        End If       
    End If
 
    objShell.Run "taskkill /f /im Acrobat.exe", , True
            
End Sub

     Set PDFDoc = nothing
     Set PDFApp = nothing

PDFApp.Show
PDFDoc.BringToFront

'// Save this as xxx.vbs and start with Double Click
'// It gives you the text of an already opened PDF
'// if Acrobat or no Doc is open you get an ErrorMsg
set WshShell = CreateObject ("Wscript.Shell")
WshShell.AppActivate("Adobe Acrobat")
WScript.Sleep 500
'// get the active Document
Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = AcroApp.GetActiveDoc
Set PDDoc = AVDoc.GetPDDoc
 
Set PdfPage = PDDoc.AcquirePage(1) '<<--SET in FILE! =Pagenumber 
Set PageHL = CreateObject("AcroExch.HiliteList")
PageHLRes = PageHL.Add(0,9000) '<<--SET in FILE! (Start,END[9000=All]) 
Set PageSel = PdfPage.CreatePageHilite(PageHL)
 
for i = 0 to PageSel.Getnumtext - 1
  pdfData =PDFData & PageSel.GetText(i)
Next
 
msgBox PDFDATA