'-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-------------------------------------------------------------------