Adobe Acrobat - Busqueda en pdf

<%

Dim objApp, objAVDoc, objPDDoc, objHilite, objMatch

Dim strFilePath, strSearchText

' Ruta del archivo PDF '

strFilePath = "Ruta\Archivo.pdf"

' Texto a buscar en el archivo PDF '

strSearchText = "TextoABuscar"

' Crea una instancia de la aplicación Acrobat '

Set objApp = Server.CreateObject("AcroExch.App")

' Crea una instancia del documento AV '

Set objAVDoc = Server.CreateObject("AcroExch.AVDoc")

' Abre el archivo PDF '

If objAVDoc.Open(strFilePath, "") Then

    ' Crea una instancia del documento PD '

    Set objPDDoc = objAVDoc.GetPDDoc()

    ' Crea una instancia del objeto de búsqueda '

    Set objHilite = Server.CreateObject("AcroExch.HiliteList")

    ' Realiza la búsqueda de texto en el archivo PDF '

    Set objMatch = objPDDoc.FindText(strSearchText, 0, 0, objHilite)

    ' Recorre las coincidencias encontradas '

    While Not objMatch Is Nothing

        ' Obtiene la página de la coincidencia '

        Dim intPageNum

        intPageNum = objMatch.GetPageNum()

        ' Muestra el número de página y la posición del texto encontrado '

        Response.Write "Coincidencia encontrada en la página " & intPageNum & ": " & objMatch.GetText & "<br>"

        ' Avanza a la siguiente coincidencia '

        Set objMatch = objPDDoc.FindText(strSearchText, intPageNum, 0, objHilite)

    Wend

    ' Cierra el documento PD '

    objPDDoc.Close

    ' Cierra el documento AV '

    objAVDoc.Close True

Else

    Response.Write "No se pudo abrir el archivo PDF"

End If

' Cierra la aplicación Acrobat '

objApp.Exit

Set objApp = Nothing

%>