How to save opened PDF file via AcroExch.PDDoc.save()

IlanL · Nov 23rd 2019

Hello. This is my first post so hopefully following the rules.

I am trying to create a vba macro that:

1. Open a PDF template

2. Populate the fields

3. Save PDF with a new name to desired location

4. Close the PDF template

So far I managed to run steps 1,2.4

I'd really appreciate if I can get assistance with respect to step 3

I tried to implement the AcroExch.PDDoc.save() Method but keep

BTW, I wouldn't mind to save in a different way if possible.

Thanks in advance.

Code

Dim AcrobatApplication As Acrobat.CAcroApp
Dim AcrobatDocument As Acrobat.CAcroAVDoc
Dim PdfDoc As Acrobat.CAcroPDDoc
Dim Fcount As Long
Dim sFieldName As String
On Error Resume Next
Set AcrobatApplication = CreateObject("AcroExch.App")
Set AcrobatDocument = CreateObject("AcroExch.AVDoc")
Set PdfDoc = AcrobatDocument.GetPDDoc()
If AcrobatDocument.Open("C:\Users\ilotvin001\Desktop\VBA Tests\Excel to PDF\1test.pdf", "") Then
AcrobatApplication.Show
Set Acroform = CreateObject("AFormAut.App")
Set Fields = Acroform.Fields
Fcount = Fields.Count
For Each Field In Fields
row_number = row_number + 1
sFieldName = Field.Name
Sheet2.Range("B" & row_number + 1) = Field.Name
Sheet2.Range("C" & row_number + 1) = Field.Value
Sheet2.Range("D" & row_number + 1) = Field.Style
Next Field
Else
MsgBox "Failure"
End If
PdfDoc.Save PDSaveFull, "C:\Users\ilotvin001\Desktop\VBA Tests\Excel to PDF\New"
AcrobatApplication.CloseAllDocs
'AcrobatApplication.Exit 'Why do we need to exist from all the below?
Set AcrobatApplication = Nothing
Set AcrobatDocument = Nothing
Set Field = Nothing
Set Fields = Nothing
End Sub

Display More

**KjBox** · Nov 23rd 2019

Welcome to OzGrid!

When posting code first click the "code" icon ("</>" in the menu bar) then paste your code in the CODE box that will appear.

I have edited your post for this occasion.

Share