Microsoft Excel

Herbers Excel/VBA-Archiv

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

pdf objekte erzeugen

Betrifft: pdf objekte erzeugen von: ela
Geschrieben am: 28.07.2014 16:47:23

Hallo,

ich habe folgendes Problem.

Und zwar möchte ich mit folgendem Code, pdfs öffnen und ihnen eignschaften /attribute mitgeben.

Nun bekomme ich aber immer Probleme bei der Objekterstellung...

' 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 2010Wie 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: AW: pdf objekte erzeugen von: mumpel
Geschrieben am: 28.07.2014 20:07:34

Hallo!

Diese Fehlermeldung besagt dass "AcroExch.App" oder "AcroExch.AVDoc" nicht existieren. In welcher Zeile erfolgt denn die Fehlermeldung? Von Adobe Acrobat gibt es mehrere Steuerdateien. Du musst die richtige einbinden.

Gruß, René


  

Betrifft: AW: pdf objekte erzeugen von: ela
Geschrieben am: 29.07.2014 11:20:06

hallo,

die fehlemedlung kommt bei der zeile

Set objApp = CreateObject("AcroExch.Application")
bzw
Set AcroApp = CreateObject("AcroExch.App")

viele grüße


  

Betrifft: AW: pdf objekte erzeugen von: mumpel
Geschrieben am: 29.07.2014 12:35:53

Die Zeilen passen so auch nicht. Schau mal bei "maninweb" nach => VBA und Adobe Acrobat Distiller. Und versuch es mal mit CreateObject("Acrobat.AcroExch")


 

Beiträge aus den Excel-Beispielen zum Thema "pdf objekte erzeugen"