schlage mich seit zwei Tagen mit der Frage rum, ob die möglichkeit besteht mehrere Zellinhalte von Excel nach einem vorgefertigtem Pdfdocument mit verschiedenen Textfeldern zu senden.
Jetzt hab ich schon fleißig gegoogelt und nix passendes gefunden.
Na stimmt nicht ganz, etwas hab ich schon.
Option Explicit
Private Sub CommandButton1_Click()
Call Makro1
End Sub
...im Modul
Option Explicit
Sub Makro1()
Dim pdfPath As String
'Dim pdDoc As Acrobat.CAcroPDDoc
'Dim avDoc As Acrobat.CAcroAVDoc
'Dim acroApp As Acrobat.CAcroApp
Dim pdDoc As Object
Dim avDoc As Object
Dim acroApp As Object
Dim jsObj As Object
Dim fieldObj As Object
' hier liegt die Test Datei
pdfPath = "c:\testDatei.pdf"
Set acroApp = CreateObject("AcroExch.App")
Set avDoc = CreateObject("AcroExch.avDoc")
acroApp.Show
' doc öffnen
If avDoc.Open(pdfPath, "form1" & Range("A1")) Then
Set pdDoc = avDoc.GetPDDoc()
Set jsObj = pdDoc.GetJSObject()
' Zugriff auf das Feld
Set fieldObj = jsObj.getField("Name") '!!!!Hier kommt der Debugfehler!!!!
' ... und wert setzen
fieldObj.Value = Worksheets("Tabelle1").Range("A2").Text
' aufräumen
Set pdDoc = Nothing
Set avDoc = Nothing
Set acroApp = Nothing
End If
End Sub
...dazu hab ich mir mit Adobe Designer von Adobe 7.0 die testDatei erstellt mit einem Textfeld.
Jedoch macht er die Datei auf und geht dann in den Debugmodus.
Hier fehlt nun das entsprechende Hintergrundwissen.
Hab ich da was mit dem Designer fasch erstellt, oder geht das vielleicht eh grundsätzlich so nicht?
Wenn doch, wäre noch die Frage wie man das mit mehreren Zellinhalten aus verschiedenen Textfeldern in Pdf machen könnte.
Für eure Hilfe dank ich schon mal im vorraus!!
Gruß Uwe