Übernahme verschiedene Makros
05.02.2021 21:02:50
John
Ich habe heute eine Frage an Euch.
Ich nutze viele Markos zur Übernahme von Excelfeldern in PDF-Dateien.
Das funktioniert prima.
Pro PDF habe ich je ein Makro, wie hier zum Beispiel:
Sub Z_10_K1()
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 = "\\winsrv\2021\Z_10_K1.pdf"
Set acroApp = CreateObject("AcroExch.App")
Set avDoc = CreateObject("AcroExch.avDoc")
acroApp.Show
' doc öffnen
If avDoc.Open(pdfPath, "Angebot 2021") Then
Set pdDoc = avDoc.GetPDDoc()
Set jsObj = pdDoc.GetJSObject()
' Zugriff auf das Feld
Set fieldObj = jsObj.getField("Name")
' ... und wert setzen
fieldObj.Value = Worksheets("START").Range("I11").Value
' Zugriff auf das Feld
Set fieldObj = jsObj.getField("Geburtsdatum")
' ... und wert setzen
TestVal = Worksheets("START").Range("I12").Value
fieldObj.Value = TestVal
Set fieldObj = jsObj.getField("Beginn")
TestVal = Worksheets("Dateneingabe").Range("C11").Value
fieldObj.Value = TestVal
Set fieldObj = jsObj.getField("Z10")
TestVal = Worksheets("Konzept").Range("AA7").Value
fieldObj.Value = TestVal
' aufräumen
Set fieldObj = Nothing
Set pdDoc = Nothing
End If
Set avDoc = Nothing
Set acroApp = Nothing
End Sub
Drei Auswahlfelder:
1. ledig
2. verheiratet
3. verheiratet getrennt
Jedes hat ein eigenes Makro und dadurch auch PDF.
Kann ich nun beispielsweise verheiratet auswählen und durch klick auf die (eine) Schaltfläche löst das dann Makro 2 aus?
Ich vermute, dass dies dann wiederum über ein separates Makro gehen muss?
Ich hoffe ich konnte es gut erklären.
Vielen Dank und bliebt alle gesund !!
Grüße John