Dropdown in Acrobat übernehmen

Hallo zusammen
Ich habe eine schöne Schaltzentrale gebastelt, welche die Daten aus meinem Kundenverwaltungsprogramm automatisch in Excel übernimmt und von dort aus dann wieder PDF Dateien mit Inhalt generiert werden. Ich hänge nur noch an einem einzigen Punktz ;(
Set fieldObj = jsObj.getField("Geb1")
' ... und wert setzen
TestVal = Worksheets("Dateneingabe").Range("Q7").Value
fieldObj.Value = TestVal
So sieht der Befehl aus, welcher die einzlenen Zellen in Acrobat übernimmt.
Nun habe ich aber ein Dropdownmenü mit längeren Texten, welche immer verschieden sind.
Den mit dem Menpü ausgewählten Text möchte ich auch in Acrobat übernehmen.
Allerdings ist ein Dropdown eben keine Zelle und ich weiß nun nicht was ich anstattz.B. Q7
einzugeben habe.
Weiß das zufällig jemand?
Vielen Dank
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hmmmmmmmmm - das bekomm ich nicht hin.
Hier mal den gesamten Code. Vielleicht wirds einfacher
Die Texte habe ich auf ein Extra Tabellenblatt Namens Protokoll geschrieben. Und zwar von A1 bis A10


Sub ProtokollM()
Dim pdfPath As String
Dim TestVal 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:\Dokumente und Einstellungen\GA\Eigene Dateien\ANGEBOT\Angebot-PIB\Protokoll_M. _
pdf"
Set acroApp = CreateObject("AcroExch.App")
Set avDoc = CreateObject("AcroExch.avDoc")
acroApp.Show
' doc öffnen
If avDoc.Open(pdfPath, "Beratungsprotokoll") Then
Set pdDoc = avDoc.GetPDDoc()
Set jsObj = pdDoc.GetJSObject()
' Zugriff auf das Feld
Set fieldObj = jsObj.getField("Name")
' ... und wert setzen
fieldObj.Value = Worksheets("Dateneingabe").Range("C4").Value
' Zugriff auf das Feld
Set fieldObj = jsObj.getField("Strasse")
' ... und wert setzen
fieldObj.Value = Worksheets("Dateneingabe").Range("Q4").Value
' Zugriff auf das Feld
Set fieldObj = jsObj.getField("PLZ")
' ... und wert setzen
fieldObj.Value = Worksheets("Dateneingabe").Range("Q5").Value
' Zugriff auf das Feld
Set fieldObj = jsObj.getField("Wohnort")
' ... und wert setzen
TestVal = Worksheets("Dateneingabe").Range("Q6").Value
fieldObj.Value = TestVal
Set fieldObj = jsObj.getField("Kunde")
' ... und wert setzen
TestVal = Worksheets("Dateneingabe").Range("C4").Value
fieldObj.Value = TestVal
Set fieldObj = jsObj.getField("Geb1")
' ... und wert setzen
TestVal = Worksheets("Dateneingabe").Range("Q7").Value
fieldObj.Value = TestVal
Set fieldObj = jsObj.getField("Tätig1")
' ... und wert setzen
TestVal = Worksheets("Dateneingabe").Range("Q8").Value
fieldObj.Value = TestVal
Set fieldObj = jsObj.getField("beschreibung")
fieldObj.Value = Worksheets("Protokoll").Range("A1:A100").Cells(Worksheets(" _
Dateneingabe").Range("D10").Value, 1).Value
fieldObj.Value = TestVal
' aufräumen
Set fieldObj = Nothing
Set pdDoc = Nothing
End If
Set avDoc = Nothing
Set acroApp = Nothing
End Sub

Danke für die Hilfe

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dropdown in Acrobat übernehmen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread