Simple Question what is the method for Adobe Acrobat. This works with MS but not with acrobat. It does not recognize “SaveAs” ( "Automation Object Member Not Found) but it activates the PDF. Thanks in advance.
===========Code Sample =============
Select Case rtItem.Type
Case EMBED_OBJECT:
If rtItem.Class = “AcroExch.Document.7” Or rtItem.Class = “AcroExch.Document” Then
Set handle = rtItem.Activate(True)
Call handle.SaveAs(“C:\Temptest1.pdf”)
End If
================================
Subject: Here is the answer
Here is the answer:
1 - Here are 2 good sources of reference from ADOBE.
http://www.adobe.com/devnet/acrobat/pdfs/iac_developer_guide.pdf
http://www.adobe.com/devnet/acrobat/pdfs/iac_api_reference.pdf
2 - The handle out of this instruction is basically useless:
Set handle = rtItem.Activate(True)
So we need to get the active record using the Adobe Acrobat OLE Automation code.
3 - Here is the code:
Case EMBED_OBJECT:
If rtItem.Class = “AcroExch.Document.7” Or rtItem.Class = “AcroExch.Document” Then
Set AcroExchApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")
Set PDDoc = CreateObject("AcroExch.PDDoc")
Set handle = rtItem.Activate(True)
Set AVDoc = AcroExchApp.GetActiveDoc()
Set PDDoc = AVDoc.GetPDDoc()
If PDDoc.Save(1, "C:\Temptest1.pdf") = False Then
Msgbox "Unable to save image"
Else
Msgbox "The file is saved"
End If
End If
End Select