Sub PDF_Formular_ausfuellen()
Dim AcrobatApp As Acrobat.AcroApp
Dim AVDoc As Acrobat.AcroAVDoc
Dim PDDoc As Acrobat.AcroPDDoc
Dim FormFields As Acrobat.AcroFields
Dim PfadZurPDF As String
PfadZurPDF = "C:\Pfad\zur\deiner\PDF_Datei.pdf"
Set AcrobatApp = CreateObject("AcroExch.App")
AcrobatApp.Show
Set AVDoc = CreateObject("AcroExch.AVDoc")
If AVDoc.Open(PfadZurPDF, "") Then
Set PDDoc = AVDoc.GetPDDoc
Set FormFields = PDDoc.GetJSObject().getField
FormFields("Name").Value = "Max Mustermann"
PDDoc.Save PDSaveFull, PfadZurPDF
PDDoc.Close
Else
MsgBox "Die PDF-Datei konnte nicht geöffnet werden.", vbExclamation
End If
AVDoc.Close True
AcrobatApp.Exit
Set AcrobatApp = Nothing
End Sub