AcroExch.AVDoc.FindText(), Acrobat XI

Question

Code from Chapter 16 Scripting Quicktest Professional Page 25,  Dani Vainstein
FindText(): Finds the specified text,
but doesn't scrolls so that it is visible, and doesn't highlights it
Dim AcroApp, AcroAVDoc As Object
Dim gPDFPath, bReset, nCount
gPDFPath = "c:\Input.pdf"
Set AcroApp = CreateObject("AcroExch.App")
AcroApp.Show
Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
If AcroAVDoc.Open(gPDFPath, "") Then
AcroAVDoc.BringToFront
bReset = True: nCount = 0
Do While AcroAVDoc.FindText("9630208046", True, True, bReset)
bReset = False: nCount = nCount + 1
Loop
End If
AcroApp.CloseAllDocs
AcroApp.Exit
Print "The word '9630208046' was found " & nCount & " times."
Set AcroApp = Nothing
End Sub
With Acrobat 9 and Access the program works. Is there a Workaround for Acrobat XI.

Answer 1

For me it works correct - I only dislike the msgbox "not found", when the value is false.
Another way would be be to read the text of the page(s) and anlyse it in VBS.
Attached a code snipet for that.
HTH, Reinhard
'// 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