Populate pdf fields using vba

Karl, I've read several of your responses to the Auto Populate PDF files via VBA. First, thank you for your help. You are one of the only resources I've found on the topic. If there's any chance you still read comments here, I wanted to link my question.

Excel: 2016, 64 bit

OS: Windows 10

Adobe: Acrobat PRO DC

------------------------------------------------------------------------------------------------------------------------------

Previous attempt to accomplish this task:

I similarly have an excel file (.xlsm) running a VBA macro that uses columns E through AO, rows 4 through 14, to auto populate fillable fields throughout a 10 page PDF document, save the document, clear the form, and then begin filling in a brand new template (identical to the first) form using the second row (row 6) in excel, and so on.

However, this macro relied on senkeys and, while it worked perfectly on the first form all the way to saving it correctly and uploading to the correct folder, every following PDF would fill in inconsistently.

-------------------------------------------------------------------------------------------------------------------------------

Current attempt to accomplish this task:

I am now attempting to use the method that you have advised on here and in other posts and fill in form in by refferring to the PDF's field names and inserting the appropriate cell in excel (I have downloaded and pasted them to Sheet2 of my workbook). I am having trouble simply opening up the pdf, however, using the following code as you can see below:

When running the code pasted below, I receive the following message when it tries to open Adobe:

"There was an error opening this document. Access denied."

I downloaded the library using your directions in another post and made sure to reference everything in Excel as can be seen in the two images below:

Library Download:

References:

Current VBA Code: (My actual code includes the correct file path "C:\Users\......")

Option Explicit
Option Private Module

Sub OpenPDFPageView()

Dim PDFApp As AcroApp
Dim PDFDoc As AcroAVDoc
Dim pdDoc As Acrobat.CAcroPDDoc
Dim PDFPageView As AcroAVPageView
Dim PDFPath As String
Dim DisplayPage As Integer

Dim jso As Object

DisplayPage = 1

   'Initialize Acrobat by creating App object
Set PDFApp = CreateObject("AcroExch.App")

    'Set AVDoc object
Set PDFDoc = CreateObject("AcroExch.AVDoc")

   'Set PDDoc object
Set pdDoc = CreateObject("AcroExch.PDDoc")

   'Open the PDF
If PDFDoc.Open(PDFPath, "") = True And pdDoc.Open(PDFPath) = True Then
PDFDoc.BringToFront

   'Maximize the document
Call PDFDoc.Maximize(True)

Set PDFPageView = PDFDoc.GetAVPageView()

    'Go to the desired page
    'The first page is 0
Call PDFPageView.GoTo(DisplayPage - 1)

'-------------
'ZOOM options
'-------------
'0 = AVZoomNoVary
'1 = AVZoomFitPage
'2 = AVZoomFitWidth
'3 = AVZoomFitHeight
'4 = AVZoomFitVisibleWidth
'5 = AVZoomPreferred

'Set the page view of the pdf
Call PDFPageView.ZoomTo(2, 50)

Set jso = pdDoc.GetJSObject
If Not jso Is Nothing Then
jso.Getfield("Offer Date").Value = "test"
End If
End If

Set PDFApp = Nothing
Set PDFDoc = Nothing
Set pdDoc = Nothing

On Error Resume Next

'Show the adobe application
PDFApp.Show

'Set the focus to adobe acrobat pro
AppActivate "Adobe Acrobat Pro"

End Sub

If you have any advice on what I'm doing wrong, I'd immensely appreciate it. Thank you so much for all of your help. You're the best!

Thomas.

Adobe put there developer tools into the paid for software, and leave them out of the free software - because they are a marketing tool.

Step through your code and make sure that you have a iso object. If that's the case, then the reason for the error is very likely that your document does not have a field named "User Name:" - make sure that you spell the field name exactly the same way as it is spelled in the PDF form.