Free for PREMIUM members
Dim AcroApp As Acrobat.AcroApp
Dim AVDoc1 As Acrobat.AcroAVDoc
Dim PDDoc1 As Acrobat.AcroPDDoc
Dim AVDoc2 As Acrobat.AcroAVDoc
Dim PDDoc2 As Acrobat.AcroPDDoc
Set AcroApp = New AcroApp
Set AVDoc1 = New AcroAVDoc
Set AVDoc2 = New AcroAVDoc
ret1 = AVDoc1.Open("C:\1.pdf", "")
ret2 = AVDoc2.Open("C:\2.pdf", "")
If ret1 = True And ret2 = True Then
Set PDDoc1 = AVDoc1.GetPDDoc
'~~> Code here to interact with pdf1
PDDoc1.Save 1, "C:\3.pdf"
Set PDDoc2 = AVDoc2.GetPDDoc
'~~> Code here to interact with pdf2
PDDoc2.Save 1, "C:\4.pdf"
Open in new window
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.