Hallo,
ich habe folgendes Problem.
Und zwar möchte ich mit folgendem Code, pdfs öffnen und ihnen eignschaften /attribute mitgeben.
' SET ADOBE ACROBAT OBJECTS
Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")
Call AVDoc.Open(sSourcePath & "\" & sResourceID, "")
Set AVDoc = AcroApp.GetActiveDoc
Set PDDoc = AVDoc.GetPDDoc
' SET DOCUMENT PROPERTIES
PDDoc.SetInfo "Property Name", "Values Saved"
oder folgender ähnlicher Code
Dim objApp As AcroApp
Dim objAcroAVDoc As New AcroAVDoc
Dim objAcroPDDoc As AcroPDDoc
Set objApp = CreateObject("AcroExch.Application")
objAcroAVDoc.Open "U:\Test 2.Praxisphase\Quellordner\Test.pdf", ""
Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
' Gibt den Namen des PDF's aus
MsgBox objAcroPDDoc.GetFileName
die Adobe Acrobta 9.0 Type Libaray habe ich eingebunden.
Trotzdem bekomme ich immer eine Fehlermeldung "429" "Objekterstellung durch Active-X-Komponente nihct möglich".
Ich benutze Office 2010.
Wie kann ich den Code abändern, damit ich keine fhelermedlung mehr erhalte?
Für Hilfe wäre ich sehr dankbar.
Viele Grüße
ELa