Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

eigenschaften mitgabe an pdf mittel acrobat librar

Betrifft: eigenschaften mitgabe an pdf mittel acrobat librar von: ela
Geschrieben am: 28.07.2014 16:42:30

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

  

Betrifft: doppelt: owT. von: mumpel
Geschrieben am: 28.07.2014 20:08:03




  

Betrifft: AW: doppelt: owT. von: ela
Geschrieben am: 29.07.2014 11:21:24

Hallo,

was wolltest du schreiben?
Ich sehe nur einen weißen beitrag


  

Betrifft: AW: doppelt: owT. von: mumpel
Geschrieben am: 29.07.2014 12:30:13

Das es doppelt ist. Du hast zwei Beiträge zur selben Frage eröffnet. Einmal reicht aber. owT = "ohne weiteren Text".


 

Beiträge aus den Excel-Beispielen zum Thema "eigenschaften mitgabe an pdf mittel acrobat librar"