Office: VBA

Hi,

ich möchte gerne mittels Excel-Daten ein PDF-Formular füllen und dieses danach als .pdf drucken.

Mein VBA-Code spuckt aber bei dem setzen der erforderlichen Objekte ein Problem aus (Laufzeitfehler 429: Objekt kann nicht gesetzt werden)

Der Fehler passiert bei dem setzen der für das Vorhaben notwendigen Objektvariablen:

Set gApp = CreateObject("AcroExch.App")
Set gPDDoc = CreateObject("AcroExch.PDDoc")
Set AvDoc = CreateObject("AcroExch.AVDoc")

Hat jemand eine Ahnung, was ich falsch mache??
Ich benutze Office 10, VBA 7 und habe einen Verweis auf die Acrobat X Tools Library. Eine Verweismöglichkeit auf Acrobat X Object Library finde ich bei mir nicht.

Der Code, den ich wegen des Fehlers noch nicht testen konnte lautet:

Public Sub Dummes_PDF_Prog()

Dim gApp As Acrobat.CAcroApp
Dim AvDoc As Acrobat.CAcroAVDoc
Dim gPDDoc As Acrobat.CAcroPDDoc

Const DOC_FOLDER As String = " ... SERVERPFAD ..."

Dim x As Boolean

'XXXX BIS HIER HIN UND NICHT WEITER -- Laufzeitfehler 429 ...
Set gApp = CreateObject("AcroExch.App")
Set gPDDoc = CreateObject("AcroExch.PDDoc")
Set AvDoc = CreateObject("AcroExch.AVDoc")

Dim FormApp As AFORMAUTLib.AFormApp
Dim AcroForm As AFORMAUTLib.Fields
Dim Field As AFORMAUTLib.Field

x = AvDoc.Open(DOC_FOLDER & "\FORMULAR.pdf", "")

Set FormApp = CreateObject("AFormAut.App")

For Each Field In FormApp.Fields
If Field.Name = "BEISPIEL" Then
Field.Value = "BEISPIEL"
End If
Next

FormApp.Save(PDSaveFull, "... SERVERPFAD ... \DUMMESPROGRAMM.pdf")

End Sub



Gibt's Ideen, Hilfen hierzu ????

Vielen Dank und Gruß

:)

 

Hallo zusammen,

Dem Problem möchte ich mich anschließen nur in die anderen Richtung.

Ich muss bestimmte Formularfelder aus einem PDF auslesen und hab dafür unten genannten Code. Bei der Stelle "Set acroApp = CreateObject("AcroExch.App")" kommt die Fehlermeldung "429 Objekterstellung durch ActiveX-Komponenten nicht möglich". Adobe Reader ist vorhanden und der Verweis auf die Adobe type library sind gesetzt.

Hoffe irgendjemand kann mir weiterhelfen bin schon die komplette Woche damit am verzweifeln :/

Vielen Dank vorab.

Grüße
Sascha


Public Sub test2()

Dim pdfPath As String

' hier liegt die Test Datei
pdfPath = "Z:\Final1.pdf"

'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

Set acroApp = CreateObject("AcroExch.App")
Set avDoc = CreateObject("AcroExch.avDoc")
acroApp.Show


If avDoc.Open(pdfPath, "form1") Then
Set pdDoc = avDoc.GetPDDoc()
Set jsObj = pdDoc.GetJSObject()



Set fieldObj = jsObj.getField("1")

MsgBox "Wert im Feld ist : " & fieldObj.Value

'fieldObj.Value = "123"

'pdDoc.Save 0, pdfPath

pdDoc.Close
avDoc.Close 1
acroApp.Exit


Set pdDoc = Nothing
Set avDoc = Nothing
Set acroApp = Nothing
End If


End Sub