Excel VBA an PDF Formular anpassen
Hallo!
Ich habe ein PDF Formular das aus Excel VBA beschrieben wird, per email versandt und per outlook zurueck kommt und wieder mit VBA ausgelesen wird.
Dieses Formular war eine Seite lang. Jetzt habe ich ein neues Formular das 3 Seiten lang ist.
Ich habe versucht das PDF Formular anzupassen. Dies funktioniert nicht. VBA kann das auf der ersten Seite liegende Feld "Serial_Number" nicht finden und gibt eine Fehlermeldung aus.
Seit zwei Tagen versuche ich verschiedene Optionen. Ohne Erfolg.
Das Original PDF Formular war in Englisch. Das Neue nun in Deutsch. Habe Begriffe ausgetauscht die im Original Formular standen, z.Bsp. "Formular" durch "topmostSubform" " Seite" durch "Page" ersetzt doch ich muss irgend etwas uebersehen. Mit Logik ist dem Problem nicht bei zu kommen. Meine VBA Kentnisse sind auf Anfaenger Niveau.
Kann mir jemand helfen die Anpassung vorzunehmen?
Hier sind die zwei PDF Dateien:
[URL=http://www.file-upload.net/download-10342406/NEUcontract_form_live.pdf. ...]NEUcontract_form_live.pdf[/URL]
[URL=http://www.file-upload.net/download-10342405/ORIGINALcontract_form_live ...]ORIGINALcontract_form_live.pdf[/URL]
und hier der komplette VBA Code:
[URL=http://www.file-upload.net/download-10342419/VBA_Formular_Kundendaten.t ...]VBA_Formular_Kundendaten.txt[/URL]
und hier ist der VBA Code:
'Fill the form fields.
objJSO.getField("topmostSubform.Page1.Serial_Number").Value = strSerial
objJSO.getField("topmostSubform.Page1.Call_Sign").Value = strCallSign
If Err.Number <> 0 Then
'Close the form without saving the changes.
objAcroAVDoc.Close True
'Close the Acrobat application.
objAcroApp.Exit
'Inform the user about the error.
MsgBox "The field """ & "Serial Number" & """ could not be found!", _
vbCritical, "Field error"
GoTo ErrFound
Vielen Dank im Voraus
Detlef Heun
Ich habe ein PDF Formular das aus Excel VBA beschrieben wird, per email versandt und per outlook zurueck kommt und wieder mit VBA ausgelesen wird.
Dieses Formular war eine Seite lang. Jetzt habe ich ein neues Formular das 3 Seiten lang ist.
Ich habe versucht das PDF Formular anzupassen. Dies funktioniert nicht. VBA kann das auf der ersten Seite liegende Feld "Serial_Number" nicht finden und gibt eine Fehlermeldung aus.
Seit zwei Tagen versuche ich verschiedene Optionen. Ohne Erfolg.
Das Original PDF Formular war in Englisch. Das Neue nun in Deutsch. Habe Begriffe ausgetauscht die im Original Formular standen, z.Bsp. "Formular" durch "topmostSubform" " Seite" durch "Page" ersetzt doch ich muss irgend etwas uebersehen. Mit Logik ist dem Problem nicht bei zu kommen. Meine VBA Kentnisse sind auf Anfaenger Niveau.
Kann mir jemand helfen die Anpassung vorzunehmen?
Hier sind die zwei PDF Dateien:
[URL=http://www.file-upload.net/download-10342406/NEUcontract_form_live.pdf. ...]NEUcontract_form_live.pdf[/URL]
[URL=http://www.file-upload.net/download-10342405/ORIGINALcontract_form_live ...]ORIGINALcontract_form_live.pdf[/URL]
und hier der komplette VBA Code:
[URL=http://www.file-upload.net/download-10342419/VBA_Formular_Kundendaten.t ...]VBA_Formular_Kundendaten.txt[/URL]
und hier ist der VBA Code:
'Fill the form fields.
objJSO.getField("topmostSubform.Page1.Serial_Number").Value = strSerial
objJSO.getField("topmostSubform.Page1.Call_Sign").Value = strCallSign
If Err.Number <> 0 Then
'Close the form without saving the changes.
objAcroAVDoc.Close True
'Close the Acrobat application.
objAcroApp.Exit
'Inform the user about the error.
MsgBox "The field """ & "Serial Number" & """ could not be found!", _
vbCritical, "Field error"
GoTo ErrFound
Vielen Dank im Voraus
Detlef Heun
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 264437
Url: https://administrator.de/forum/excel-vba-an-pdf-formular-anpassen-264437.html
Ausgedruckt am: 23.04.2025 um 15:04 Uhr
3 Kommentare
Neuester Kommentar