Hallo zusammen. Mit folgendem Makro kann ich aus Excel die Daten in ein bestehendes PDF Formular übertragen, dies Funktioniert einwandfrei.
Nun Möchte ich das Formular umbenennen gemäss Eintrag in Zelle B1 und speichern gemäss Pfad in Zelle B2. Kann mir jemand weiter helfen? Hier noch das Makro bisher.
Sub Makro1()
Dim pdfPath As String
Dim TestVal As String
Dim pdDoc As Object
Dim avDoc As Object
Dim acroApp As Object
Dim jsObj As Object
Dim fieldObj As Object
pdfPath = "D:\Test\Titel.pdf" ' hier liegt die Test Datei
Set avDoc = CreateObject("AcroExch.avDoc")
' doc öffnen
If avDoc.Open(pdfPath, "form1") Then
Set pdDoc = avDoc.GetPDDoc()
Set jsObj = pdDoc.GetJSObject() ' Zugriff auf das Feld
'On Error Resume Next
Set fieldObj = jsObj.getField("Firma") ' ... und wert setzen
TestVal = Worksheets("4-Übersicht").Range("J9").Value
fieldObj.Value = TestVal ' aufräumen
Set fieldObj = jsObj.getField("Controll") ' ... und wert setzen
TestVal = Worksheets("4-Übersicht").Range("K9").Value
fieldObj.Value = TestVal
Set fieldObj = jsObj.getField("Verteilung") ' ... und wert setzen
TestVal = Worksheets("4-Übersicht").Range("L9").Value
fieldObj.Value = TestVal
Set fieldObj = jsObj.getField("Strasse+Nr") ' ... und wert setzen
TestVal = Worksheets("4-Übersicht").Range("N9").Value
fieldObj.Value = TestVal
Set fieldObj = jsObj.getField("Ortschaft") ' ... und wert setzen
TestVal = Worksheets("4-Übersicht").Range("O9").Value
fieldObj.Value = TestVal
Set fieldObj = Nothing
Set pdDoc = Nothing
End If
Set avDoc = Nothing
Set acroApp = Nothing
End Sub |