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