Re: How to add text to a pdf file using Access VBA??

I can't figure out how to call it. 

Public Sub AddText()

    Dim pdApp As Acrobat.AcroApp
    Dim pdDoc As Acrobat.AcroPDDoc
    Dim pdPage As Acrobat.AcroPDPage
    Dim jso As Object
    Dim doc As Variant
   
    Set pdApp = CreateObject("AcroExch.App")
    Set pdDoc = CreateObject("AcroExch.PDDoc")
    pdDoc.Open ("c:\Test\Test.pdf")
    page = pdDoc.AcquirePage(o)
    Set jso = pdDoc.GetJSObject

*****************What do you do after you get the JSObject?
 
   
    doc = jso.pdApp.activeDocs

    pdDoc.Save 1, "c:\Test\Test.pdf"
    pdDoc.Close
    Set pdDoc = Nothing
    MsgBox "Done"

End Sub