'-Begin-----------------------------------------------------------------

'-FindTextInPDFFile-----------------------------------------------------
Function FindTextInPDFFile(File As String, SearchText As String) _
  As Boolean
  Dim rc As Boolean
  Dim vDoc As Acrobat.AcroAVDoc
  Set vDoc = CreateObject("AcroExch.AVDoc")
  vDoc.Open File, ""
  rc = vDoc.FindText(SearchText, False, False, False)
  vDoc.Close True
  Set vDoc = Nothing
  FindText = rc
End Function

'-End-------------------------------------------------------------------