PDF öffnen, befüllen, speichern unter
04.10.2022 12:01:03
Michaela
folgende Situation, anhand eines stark vereinfachten Beispiels:
3 Dokumente:
1. Excel Sheet mit Daten ("BasisExcel")
2. PDF-Formular ("BasisPDF")
3. Excel Sheet welches nur einen Makro-Button enthält ("Makro")
Das Makro soll folgendes machen:
- Öffne das Excel-Sheet "BasisExcel"
- Öffne das PDF-Formular "BasisPDF"
- Schreibe die Daten aus Feld B2 in das Feld namens "Eintrag" in das PDF Formular
- Speichere (und schließe) das so befüllte PDF-Formular unter dem Dateinamen ab, der in Feld B3 steht
- Schließe das "ursrüngliche" PDF-Formular ohne Änderungen
Mit dem folgenden Code funktioniert es bis zum ausfüllen - nur das speichern fehlt. Hat jemand eine Idee, wie ich dem Makro das beibringen kann?
LG,
Michaela
Sub BasisPDF_befuellen_und_separat_speichern()
Dim AcroApp As Object
Dim AvDoc As Object
Dim Datei As String
Dim Name As String
Dim BasisPDF As Object
Set AcroApp = CreateObject("AcroExch.App")
Set AvDoc = CreateObject("AcroExch.AVDoc")
Datei = "C:\BasisPDF.pdf"
If AvDoc.Open(Datei, Name) Then
AcroApp.Show
Set BasisPDF = AvDoc.GetPDDoc().GetJSObject
Workbooks.Open "C:\BasisExcel.xlsx"
BasisPDF.getField("Eintrag").Value = CStr(ActiveSheet.Range("B2").Value)
' => hier fehlt jetzt der code
End If
Workbooks("BasisExcel.xlsx").Close
End Sub