After three days of banging my head on a wall, I got this to work:
Public Sub AddText()
Dim pdApp As Acrobat.AcroApp
Dim pdDoc As Acrobat.AcroPDDoc
Dim jso As Object
Set pdDoc = CreateObject("AcroExch.PDDoc")
pdDoc.Open ("c:\Test\Test.pdf")
Set jso = pdDoc.GetJSObject
jso.addWatermarkFromText ("Test")
pdDoc.Save 1, "c:\Test\Test.pdf"
pdDoc.Close
Set pdDoc = Nothing
MsgBox "Done"
End Sub
However, every time I try to add parameters to jso.addWatermarkFromText I get an error message - something is wrong with my syntax I suppose but i have tried every example I could find and nothing is working for me. Please help - all of the default parameters are find, just need the text to be at the top of the page, not the center.