Search a PDF and add links to text strings

Hi!
Searching the text isn't a problem. Linking textstrings with urls isn't difficult, too. Doing both together in an existing pdf-document is nearly unbeleavable. Have a look in pdf-structures then you know what i mean.
Welcome here and best regards,
Ingo

I was hoping for something more elegant but this is what I've come up with.
If anyone else has any ideas for improving this I'd love to hear them.  :)

--------------------------------------
Private Function AddLinks(lPage As Long, sSearchText As String, sLink As String)
    Dim lTmp     As Long
    Dim aWords() As String, aParams() As String
    Dim dLeft    As Double, dTop As Double, dWidth As Double, dHeight As Double

    If m_pdf.SelectedPage <> lPage Then
        m_pdf.SelectPage lPage
    End If
    aWords = Split(m_pdf.GetPageText(3), vbCrLf)
    For lTmp = 0 To UBound(aWords)
        DoEvents
        If InStr(1, aWords(lTmp), sSearchText, vbTextCompare) Then
            Debug.Print Mid$(aWords(lTmp), InStr(1, aWords(lTmp), "#"))
            aParams = Split(Mid$(aWords(lTmp), InStr(1, aWords(lTmp), "#")), ",")
            dLeft = CDbl(aParams(2))
            dTop = CDbl(aParams(3)) + CDbl(aParams(1))
            dWidth = CDbl(aParams(4)) - CDbl(aParams(2))
            dHeight = CDbl(aParams(7)) - CDbl(aParams(3))
            sLink = sLink
            Debug.Print dLeft, dTop, dWidth, dHeight, sLink
            m_pdf.AddLinkToWeb dLeft, dTop, dWidth, dHeight, sLink, 0
        End If
    Next
 
End Function
------------------------------------------

I just loop through the each page with each phrase I want to link and call this function.
If you have a big list of phrases/links and the PDF has alot of pages it can take a good while but it does work.

When I'm done I just call "m_pdf.SaveToFile" to save it to a new file.

-jjohnston



Edited by jjohnston - 26 Jun 07 at 12:21AM