Click hyperlinks in pdf via vbscript

Question

hi all,
i'm pretty new to using adobe sdk. i have win xp with ie 6. i have adobe professional 8.0 installed. via vbscript, i can create acroexch.app, avdoc, pddoc. but i can't create acroexch.pdannot object.
this is my problem: i have pdf documents, which open in ie browser. i can search / extract text from the document.
i know, for sure, that there are hyperlinks in that document. i want a way to identify all the hyperlinks & click on each 1 of them. they, inturn, lead to opening of another browser, which contains a pdf with hyperlinks & so on...
problem is, i can't create an acroexch.app object in vbscript. is there any way to do this via vbscript & iac?
any help is appreciated..

Answer 1

can any1 please help me out?
i have a requirement of clicking on a specific annot object. i'm using vbscript.
the problem is, the code is clicking only on the last annot object, no matter what.
problem: i have a pdf document, which has many link annot objects. i need to click on the specific annot object. how can i click a particular annot, based on it's index or annot count?
below is my code, which tries to get the index, subtype & annot name.
i can get all 3, but the code just doesn't click on the annot i want.
i have been trying for quite some time & i seriously need some help...
below is my code:
private sub get_link_name(leftVal, rightVal)
Dim strText()
For lpj = 0 to annotCnt-1
Set pdPage=AcroPDDoc.AcquirePage(0)
Set pdAnnot=pdPage.GetAnnot(lpj)
If not pdAnnot is nothing Then
annotType= pdAnnot.GetSubType
If pdAnnot.IsValid and annotType="Link" Then
index=pdPage.GetAnnotIndex(pdAnnot)
Set acroRect = nothing
Set acroRect = CreateObject("AcroExch.Rect")
acroRect.Bottom =bottom : acroRect.Top = top
acroRect.Left = leftVal : acroRect.Right = rightVal
Call PDTextSelect.Destroy()
Set PDTextSelect = AcroPDDoc.CreateTextSelect(0, acroRect)
If not PDTextSelect is nothing Then
For nElem = 0 To PDTextSelect.GetNumText() - 1
ReDim preserve strText(PDTextSelect.GetNumText())
strText(nElem)= PDTextSelect.GetText(nElem)
annotname = strText(nElem)
Next
end if 'for pd text select
end if ' for pd annot
'reporter.ReportEvent micDone, "annot name: ", annotname
End If
Next 'loop to click the multiple annots in 1 page
Erase strText
End Sub
Private function f_click_on_total(leftVal, rightVal, limit, colname, yr)
Dim ileft, iright
ileft = leftVal : iright = rightVal
bottom = empty
bottom = bottomlimit+5
top = bottom+5
position = empty
'Set avDoc = nothing : set AcroApp = nothing
Set AcroApp = CreateObject("Acroexch.App")
Set avDoc = AcroApp.GetAVDoc(AcroApp.GetNumAVDocs - 1)
Set AcroPDDoc = avDoc.GetPDDoc()
If (bottom = bottomlimit+5) or (bottom < bottomlimit -10) Then
Set acroRect = CreateObject("AcroExch.Rect")
acroRect.Top = top : acroRect.Bottom = bottom
acroRect.Left = leftVal : acroRect.Right = rightVal
Set PDTextSelect = AcroPDDoc.CreateTextSelect(0, acroRect)
flag = false
While flag = false
If rightVal> limit Then
leftVal= ileft : rightVal = iright
top = top-3 : bottom = bottom-3
acroRect.Top = top : acroRect.Bottom = bottom
acroRect.Left = leftVal : acroRect.Right = rightVal
end if
'reporter.ReportEvent micDone, "clicking on total:", rightVal & "--"& bottom
flag = f_select_text(leftVal, rightVal)
If bottom < bottomlimit - 10 Then
reporter.ReportEvent micFail, "script failure", "failed to find total $ text. hence could not click. exiting function @ bottom= " & bottom
Exit function
End If
wend
if PDTextSelect Is Nothing then
msgbox "pd text select is empty at r= " & rightVal
'Exit for
end if
Call avDoc.SetTextSelection(PDTextSelect)
Call avDoc.ShowTextSelect()
'wait(.5)
ReDim preserve strText(PDTextSelect.GetNumText())
For nElem = 0 To PDTextSelect.GetNumText() - 1
strText(nElem)=PDTextSelect.GetText(nElem)
If not isempty(trim(strText(nElem))) then
reporter.ReportEvent micDone, "click on total", "row contents--->" & nElem&":"&strText(nElem)
pdfText = strText(nElem)
position = f_matchpattern(pdfText)
If position > 0 Then
pdAnnot.Perform(avDoc)
wait(30)
Set avDoc = nothing
Set avDoc = AcroApp.GetAVDoc(AcroApp.GetNumAVDocs - 1)
avDoc.bringtofront()
If browser("TotCalyrClaimDetail -").Exist Then
browser("TotCalyrClaimDetail -").Sync
For iCnt = 0 to ubound(arrFindText)-1
textflag = f_getBodyTextPDF (arrFindText(iCnt))
If textflag = true Then
reporter.ReportEvent micPass, "total $$ click", arrFindText(iCnt) & " found in pdf on page " & pageCount
else
reporter.ReportEvent micFail, "total $$ click", arrFindText(iCnt) & " NOT found."
End If
next
position = "success"
Call f_getBodyTextPDF (strFindText)
If colname = "wPremiumtotal" Then
Call f_grandTotal()
end if
browser("TotCalyrClaimDetail -").Close
End If
End If
end if
Next
Call PDTextSelect.Destroy()
Erase strText
nElem = empty
If position = "success" Then ' don't call the function once i click the link.
else
get_link_name leftVal, rightVal ' calling to check if i can get the link name, to click
end if
else
position = empty
msgbox "total text not found"
Exittest
End If
position = empty
Set avDoc = nothing : set AcroApp = nothing
wait(2)
End Function
i'm using acroexch.rect to find my annot. what i'm trying to do is, getting text within acroexch.rect object, then checking if it's of type link annot. if yes, then click it, which doesn't happen.