Saving Adobe documents - any open document
Set AcroExchApp = CreateObject("AcroExch.App")
Get an object of the class App
loopCount = AcroExchApp.GetNumAVDocs Getting the number of open documents in Adobe
For i = 0 to loopCount – 1 Loop through each open document in Adobe
Set AVDoc = AcroExchApp.GetActiveDoc Get AVDoc object from the active document
Set pdDoc = AVDoc.GetPDDoc Get PDDoc object from AVDoc
docTitle = AVDoc.GetTitle Get the document's title
Set jso = pdDoc.GetJSObject Get the java object from PDdoc class
jso.saveAs("/C/Automation DATA/" & docTitle &"_" & i & ".pdf")
Save the document as specified by the path including the document name to save with
AVDoc.Close(1) Close document without saving - depends on the parameter given
Next
No comments:
Post a Comment