Advertisement
Advertisement
| 01.05.2008 at 02:13PM PST, ID: 23061255 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: |
' open Adobe
oApp = CreateObject("AcroExch.App")
' hide it
oApp.Hide()
' re-open the file and get the pointers in place again
oAvDoc = CreateObject("AcroExch.AVDoc")
oAvDoc.Open(inFile, "")
oDoc = CreateObject("AcroExch.PDDoc")
'create the 2 adobe "documents" we will be using
oDoc = oAvDoc.GetPDDoc()
oJS = oDoc.GetJSObject()
..... rest of code in here for doing stuff with the PDF
oJS = Nothing
bRetCode = oDoc.Close()
oDoc = Nothing
oAvDoc.Close(1)
oAvDoc = Nothing
bRetCode = oApp.CloseAllDocs() ' returns true
bRetCode = oApp.Exit() ' returns false
bRetCode = oApp.MenuItemExecute("Quit") ' returns true
oApp = Nothing
|