🚀 go-pugleaf

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