Insight into working of acroexch.rect

Question

I'm new to using the adobe object & request your help:
here is my problem: i have a pdf document where there are key-words that always appear, but not at the exact same place everytime. i have to locate a target-word, that is either 1 line above / below this key-word. this is my approach so far:
get all text from the page using acroexch.hilite
then, search for my key-word.
the, get it's bounding rect (top, bottom, left, right) - this is where my problem is!! i can't seem do get this
then, add / subtract pixels to reach my target-word
print my key-word --- target-word.
i have started writing some code, but require some help. below is what i have done so far:
Dim acroApp, acroAVDoc, acroPDDoc, acroRect, PDTextSelect ,avDoc, str
Dim gPDFPath, nElem, strPageNo, strDate, strPDFDate, strTime, strPDFTime, strStdTime, strTime2
Dim strarray, strstring1, strnum1, strstring2, strnum2, blnRetFlag
Dim blnFlag
Dim i,strDte,strMonth,strDay,strYear
Dim blnNumericCheckFlag
Dim blnCheckFlag
Dim strPDFPageNo,strExpectedPageNo,strPageFormatType,strarr1,strtemp1,strarr2,strMinute, strHour, strAMPM
dim strText()
Set AcroApp = CreateObject("Acroexch.App")
For I =0 to AcroApp.GetNumAVDocs - 1
Set avDoc = AcroApp.GetAVDoc(0)
'Msgbox(AcroApp.GetNumAVDocs)
If avDoc.IsValid Then
Set AcroPDDoc = avDoc.GetPDDoc()
If not AcroPDDoc is nothing Then
'Msgbox "pd doc created"
else
msgbox "pd doc not created"
exititerationaction()
End If
Set acroRect = Create Object( "AcroExch.Rect" )
If not acroRect is nothing Then
'Msgbox "Rect Object Created"
else
msgbox "Rect obj not created"
End If
acroRect. Bottom = 100 : acroRect. Top = 450 'i need these dynamic ally.
acroRect. Left = 150 : acroRect. Right = 500
Set PDTextSelect = AcroPDDoc.CreateTextSelect( 0, acroRect )
If not PDTextSelect is nothing Then
'Msgbox "text select obj created"
else
msgbox "text select obj not created"
exit test
End If
If PDTextSelect Is Nothing Then
Exit Test()
End If
Call avDoc.SetTextSelection(PDTextSelect)
Call avDoc.ShowTextSelect()
Re Dim preserve strText(PDTextSelect.GetNumText())
For nElem = 0 To PDTextSelect.GetNumText() - 1
'Msgbox (nElem & ":" & PDTextSelect.GetText(nElem))
strText(nElem)=PDTextSelect.GetText( nElem ) & vbcrlf
str = str & strText(nElem)
Next
msgbox str
Call PDTextSelect.Destroy()
'End If
End If
Next
'AcroApp.CloseAllDocs()
'AcroApp.Exit()
Set PDTextSelect = Nothing : Set acroRect = Nothing
Set AcroApp = Nothing : Set AcroAVDoc = Nothing
another sample::
Dim i, j
i = 1
j = 0
flag = false
start = 0
increment = 10
Set app = CreateObject("Acroexch.App")
For j. = 0 to app.getnumavdocs-1
Set myAVDoc = app.GetAVDoc(j.) I Get the first logical Acrobat Viewer Doc
Set myPDDoc = myAVDoc.GetPDDoc() Get the physical document object
Set avpageview = myAVDoc.GetAVPageView() Get the page view doc object
'i Page is the page no. of the PDF where the annot is
While flag = false
Set acrohilist = create object("acroexch.hilitelist")
Call acrohilist.add(start,increment)
avpageview.goto(0) '
Set acropdpage = avpageview.getpage()
Set acropdtextsel = acropdpage.createpagehilite(acrohilist)
If acropdtextsel is nothing Then
msgbox "page hilite could not b. created"
exit test()
End If
Call myAVDoc.settextselection(acropdtextsel)
Call myAVDoc.showtextselect()
If acropdtextsel.getnumtext >1 Then
increment = 10
For k. = 0 to acropdtextsel.getnumtext-2
' you can put in any target word if u. like.. replace ": business" with a variable (this variable can be an array element, if multiple words have to be checked)
If in str(1, lcase(trim(acropdtextsel.gettext(k.))) ,"business",vbtextcompare) > 0 then ' and in str(1, lcase(trim(acropdtextsel.gettext(k.+1))) ,"unit" ,vbtextcompar

Answer 1

thanks for the reply aandi..
another restriction is: i work only with vbscript, i can't get a full blown vb ide installed. so, i'm limited to working with only vbscript. to my knowledge, there are certain syntactical differences when working with vbscript & i don't have that documentation. any help in this direction would benefit me..
thanks in advance.