Fehler 429 bei GetObject(,"Word.Application")
10.10.2006 17:04:20
Reinhard
egal ob Word.Application oder wie hier Acrobat.Application bei GetObject kommt
Objekterstellung durch ActiveX-Komponente nicht möglich (Fehler 429)
Wenn Word schon läuft läuft der Code durch. Bei Acrobat Reader ist das nicht der Fall. Auch wenn er läuft kommt der Fehler.
Was muss ich ändern bzw wie klappt es?
Option Explicit
Sub tt()
Dim Dateien, Öffne, n, AcroApp
Dateien = Application.GetOpenFilename("Text Files (*.pdf), *.pdf", , "Auswahl", , True)
Set AcroApp = GetObject(, "Acrobat.Application")
If AcroApp Is Nothing Then Set AcroApp = CreateObject("Acrobat.Application")
AcroApp.Visible = True
For n = 1 To UBound(Dateien)
AcroApp.Documents.Open (Dateien(n))
Next n
End Sub
Danke ^ Gruß
Reinhard