VBA Skript um in PDF-Formular Optionsfelder auszuwählen

Hallo! Ich brauche eure Unterstützung. Ich komme nicht von der Stelle.
Ich möchte über ein VBA Skript (Quelle Excel) in einem PDF Formular Textfelder ausfüllen. Das funktiniert schon. Aber ich muss auch Optionsfelder auswählen.
Hierfür habe ich noch keine Lösung.
Konkret geht es um die Optionsfeld-Gruppe "Stromanschluss" - hier gibt es 2 Optionsfelder: "Ja" und "Nein"
Es soll "Ja" ausgewählt werden.

Ich habe Adobe Acrobat Pro DC installiert.
Versucht habe ich mit folgendem Code: (Bei Set RadioButton = RadioGroup.Item(0) ' Index 0 für "JA") kommt immer Laufzeitfehler 438)
Muss ich den RadioButton noch irgendwie initialisieren?







Sub test()

    Dim AcroApp As Object

    Dim AVDoc As Object

    Dim PDFForm As Object

    Dim RadioGroup As Object

    Dim RadioButton As Object

    

    ' Starten Sie Adobe Acrobat

    Set AcroApp = CreateObject("AcroExch.App")

    

    ' Öffnen Sie das PDF-Formular

    Set AVDoc = CreateObject("AcroExch.AVDoc")

    AVDoc.Open "C:\Users\Bernard Weber\Documents\Persönlich\testo\NZV.pdf", ""

    AVDoc.BringToFront

    



    Set PDFForm = AVDoc.GetPDDoc



    ' Greifen Sie auf die Radio-Gruppe "Stromanschluss" zu (nach dem Feldnamen anpassen)

    Set RadioGroup = PDFForm.GetJSObject().getField("Stromanschluss")

    'Set RadioGroup = PDFForm.GetJSObject().getField("Stromanschluss")



        ' Wählen Sie das Optionsfeld "JA" aus (nach dem Feldnamen anpassen)

        Set RadioButton = RadioGroup.Item(0) ' Index 0 für "JA"

  

       

        RadioButton.Value = True

End Sub






Sub test()
    Dim AcroApp As Object
    Dim AVDoc As Object
    Dim PDFForm As Object
    Dim RadioGroup As Object
    Dim RadioButton As Object
    
    ' Starten Sie Adobe Acrobat
    Set AcroApp = CreateObject("AcroExch.App")
    
    ' Öffnen Sie das PDF-Formular
    Set AVDoc = CreateObject("AcroExch.AVDoc")
    AVDoc.Open "C:\Users\Bernard Weber\Documents\Persönlich\testo\NZV.pdf", ""
    AVDoc.BringToFront
    

    Set PDFForm = AVDoc.GetPDDoc

    ' Greifen Sie auf die Radio-Gruppe "Stromanschluss" zu (nach dem Feldnamen anpassen)
    Set RadioGroup = PDFForm.GetJSObject().getField("Stromanschluss")
    'Set RadioGroup = PDFForm.GetJSObject().getField("Stromanschluss")

        ' Wählen Sie das Optionsfeld "JA" aus (nach dem Feldnamen anpassen)
        Set RadioButton = RadioGroup.Item(0) ' Index 0 für "JA"
  
       
        RadioButton.Value = True
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim AcroApp As Object Dim AVDoc As Object Dim PDDoc As Object Dim RadioGroup As Object Dim RadioButton As Object ' Starten Sie Adobe Acrobat Set AcroApp = CreateObject("AcroExch.App") ' Öffnen Sie das PDF-Formular Set AVDoc = CreateObject("AcroExch.AVDoc") AVDoc.Open "C:\Pfad\zum\PDF-Formular.pdf", "" AVDoc.BringToFront Set PDDoc = AVDoc.GetPDDoc ' Greifen Sie auf die Radio-Gruppe "Stromanschluss" zu (nach dem Feldnamen anpassen) Set RadioGroup = PDDoc.GetJSObject().getField("Stromanschluss") ' Wählen Sie das Optionsfeld "Ja" aus (nach dem Feldnamen anpassen) Set RadioButton = RadioGroup.getButton("Ja") ' Setzen Sie das Optionsfeld auf "Ja" RadioButton.Value = True ' Speichern Sie das PDF-Formular AVDoc.Save 1, "C:\Pfad\zum\Gespeicherten\Formular.pdf" ' Schließen Sie das PDF-Formular AVDoc.Close True ' Beenden Sie Adobe Acrobat AcroApp.Exit End Sub

Ich habs nun doch geschafft:

Sub TestHerber()
Dim AcroApp As Object
Dim AVDoc As Object
Dim PDDoc As Object
Dim RadioGroup As Object

' Starten Sie Adobe Acrobat
Set AcroApp = CreateObject("AcroExch.App")

' Öffnen Sie das PDF-Formular
Set AVDoc = CreateObject("AcroExch.AVDoc")
AVDoc.Open "C:\Users\Bernard Weber\Documents\Persönlich\testo\NZV.pdf", ""
AVDoc.BringToFront

Set PDDoc = AVDoc.GetPDDoc

' Greifen Sie auf die Auswahlfeldgruppe "Stromanschluss" zu (nach dem Feldnamen anpassen)
Set RadioGroup = PDDoc.GetJSObject().getField("Stromanschluss")

' Setzen Sie die ausgewählte Option in der Auswahlfeldgruppe "Stromanschluss"
RadioGroup.Value = "JA" ' Hier "JA" durch den gewünschten Wert ersetzen

' Speichern Sie das PDF-Formular
AVDoc.Save 1, "C:\Pfad\zum\Gespeicherten\Formular.pdf"

' Schließen Sie das PDF-Formular
AVDoc.Close True

' Beenden Sie Adobe Acrobat
AcroApp.Exit
End Sub

Vielen Dank! :)

Beliebteste Forumthreads (12 Monate)

VBA Skript um in PDF-Formular Optionsfelder auszuwählen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Skript um in PDF-Formular Optionsfelder auszuwählen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread