Kann man Daten aus Excel nach Acrobat übertragen?

aaaaaaaaaalso:

du brauchst auf jedenfall acrobat full - nicht den acrobat reader, da du das hinzugefügte ja abspeicher musst.
dieses kann der acrobat reader nicht, denn wie ein schlauer mann mal gesagt hat: könnte der acrobat reader schreiben, würde er nicht reader heissen

die zauberlösung heisst ".fdf transport datei".
diese datei übergibt die ähnlich einer steuerdatei z.b. für word die daten in fest defninierte felder.

dies bedeutet für dich, das du im ersten schritt in deiner PDF-vorlage mit hilfe des "textfeld-werkzeug" ersteinmal alle felder mit eindeutigen namen versehen darfst.

hast du das erledigt, speicherst du das .pdf ab und schliesst es

in excel öffnest du den vba-editor (ALT+F11), fügst mit rechtsklick ein neues modul ein kopierst rechts in das grosse fenster folgenden code:

Public Sub machPDF()


Dim dName$, ADatei$, tmp$, i!
Dim strPfad As String
strPfad = ActiveWorkbook.Path & "\"
dName = strPfad & "Transport.fdf"


Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(dName, True)


a.WriteLine ("%FDF-1.2")
a.WriteLine ("%âãÏÓ")
a.WriteLine ("1 0 obj")
a.WriteLine ("<<")
a.WriteLine ("/FDF << /Fields")
a.WriteLine ("[")


a.WriteLine ("<< /V (" & Worksheets("Tabelle1").Range("A1").Value & ")/T (an)>>")
'a.WriteLine ("<< /V (" & Worksheets("Tabelle1").Range("b1").Value & ")/T (cc)>>")
'a.WriteLine ("<< /V (" & Worksheets("Tabelle1").Range("c1").Value & ")/T (vom)>>")
'a.WriteLine ("<< /V (" & Worksheets("Tabelle1").Range("d1").Value & ")/T (datum)>>")


a.WriteLine ("]")
a.WriteLine ("/F (excel_pdf.pdf)>>")
a.WriteLine (">>")
a.WriteLine ("endobj")
a.WriteLine ("trailer")
a.WriteLine ("<<")
a.WriteLine ("/Root 1 0 R")


a.WriteLine (">>")
a.WriteLine ("%%EOF")


a.Close


On Error GoTo w


tmp = String$(512, 0)
ADatei = dName
If ADatei = "" Then
MsgBox "Es wurde kein Acrobat Reader auf Ihrem Computer gefunden." & Chr(13) & _
"Bitte installieren Sie den Acrobat Reader.", vbInformation, "Hinweis"
Exit Sub
End If


Do Until dName = strPfad & "Transport.fdf"
Loop


Shell ADatei, vbMaximizedFocus


w:
Set fs = Nothing
Set a = Nothing


End Sub

die exceldatei speicherst du in dasselbe verzeichnis ab, in der auch dein vorhin gespeichertes .pdf liegt.

du musst nun noch ein bissel den code auf deine bedürfnisse anpassen:
strPfad = ActiveWorkbook.Path & "\"
dName = strPfad & "Transport.fdf"
--> hier erstellt das makro im verzeichnis der exceldatei die steuerdatei "Transport.fdf" (kannst du problemlos ändern)

a.WriteLine ("<< /V (" & Worksheets("Tabelle1").Range("A1").Value & ")/T (an)>>")
--> aus der "Tabelle1" deiner exceldatei holt sich das makro das was du in spalte A1 geschrieben hast und wird es dem PDF textfeld "an" zuweisen.
du könntest z.b. für dein rechnungsformular den adresskopf so machen.
trägst in spalte A1 "Max Mustermann" ein und dein textfeld im PDF heisst "Vor_ZuName", dann wäre der code:
a.WriteLine ("<< /V (" & Worksheets("Tabelle1").Range("A1").Value & ")/T (Vor_ZuName)>>")

ebenfalls sehr wichtig ist diese programmzeile:
a.WriteLine ("/F (excel_pdf.pdf)>>")
--> hier sagst du der steuerdatei wie dein PDF dokument heisst, in meinem fall halt "excel_pdf.pdf".
sollte dein PDF dokument z.b. "Rechnung.pdf" heissen wäre der code
a.WriteLine ("/F (rechnung.pdf)>>")

das ganze kannst du im codefenster mit F5 (cursor muss im code blinken) starten oder über extras -> makro -> makros

kleines manko: für masse ist der code in dieser art nicht geeignet. müsste man mal später rangehen
ich hatte es mal vor ~2jahren für die arbeit gebastelt um eine art weiterleitungsblatt zu automatisieren, aber alle mitarbeiter mit acrobat full auszustatten damit diese auch etwas hineinschreiben können war dann doch dem guten etwas zuviel.
chef hätte sich dann wohl nicht den 911er kaufen können :mad: :cool: