Re: Need Help Adding Parameters to addWatermarkFromText using VBA

Now I'm trying the JSScript method and still stuck.  Not sure how to properly reference the app to use the app.constants.align.top parameter, etc.

Public Sub AddText()

    Dim App As Acrobat.AcroApp
    Dim pdDoc As Acrobat.AcroPDDoc
    Dim jso As Object
    Dim o As New ScriptControl
    o.Language = "JScript"
   
    Set App = CreateObject("AcroExch.App")
    Set pdDoc = CreateObject("AcroExch.PDDoc")
    pdDoc.Open ("c:\Test\Test.pdf")
  
   
    With o
        .ExecuteStatement "this.addWatermarkFromText({cText: 'Watermark Text',nTextAlign: App.constants.align.right,nHorizAlign: App.constants.align.right,nVertAlign: App.constants.align.top,nHorizValue: 0.4, nVertValue: 0});"
    End With
   
    pdDoc.Save 1, "c:\Test\Test.pdf"
    pdDoc.Close
    Set pdDoc = Nothing
    MsgBox "Done"

End Sub