Need VBA Code to Add Sticky Notes to PDF!!!Very Very Urgent Please

Question

Hi Team,Can Anyone provide the sample code to AddSticky Note Annot to Existing PDF File using VBA code using Acrobat SDK(JSObject).ThanksMahesh

maheshsayani · Accepted Answer

Hi Reinhard,Sorry for the late Response.Very Very Thanks for your Help..It works more than my expectations.One more time thanks for your help.Thanks & RegardsMahesh

ReinhardF · Answer

Here a quick vbs/vba code. Have a look at the SDK and especially on the Acrobat JS API Reference to change it to your needs.

Good Luck, Reinhard

Path = "D:\Test.pdf"

Set App = CreateObject("Acroexch.app")
app.show
Set AVDoc = CreateObject("AcroExch.AVDoc")
Set AForm = CreateObject("AFormAut.App") 'from AFormAPI

If AVDoc.Open(Path,"") Then
    '// write some js code on a vbs variable
   js = "var annot = this.addAnnot({" &vblf _
    & "page: 0," &vblf _
    & "type: ""Text"", " &vblf _
    & "author: ""ReFran"", " &vblf _
    & "point: [100,500], " &vblf _
    & "contents: ""Call Smith to get help on this paragraph."", " &vblf _
    & "noteIcon: ""Help"" " &vblf _
    & "});"
'//execute the js code
    AForm.Fields.ExecuteThisJavaScript js
end if

Set AForm = Nothing
Set AVDoc = Nothing
Set APP = Nothing

Sign up

To post, reply, or follow discussions, please sign in with your Adobe ID.

Sign in to Adobe Community

To post, reply, or follow discussions, please sign in with your Adobe ID.

Scanning file for viruses.

This file cannot be downloaded