Laufzeitfehler 429 - Objekterstellung durch Active
09.10.2005 10:51:12
Scheinchen
es ist verhext. Gestern ging es doch noch!!!
Wenn ich über dieses Makro word öffnen möchte:
Sub oeffnen_word_blanko()
Dim WordObj As Object
Dim WordDoc As Object
Dim Bereich As Range
Set WordObj = GetObject(, "word.application.11")
If Err.Number = 429 Then
Set WordObj = CreateObject("word.application.11")
Err.Number = 0
End If
WordObj.Visible = True
WordObj.Documents.Open ThisWorkbook.Path & "\" & "Blanko.doc"
End Sub
dann kommt folgende Fehlermeldung:
Laufzeitfehler 429 - Objekterstellung durch ActiveX-Komponente ist nicht möglich
Ich habe doch nichts geändert. Wieso auf einmal? Ich habe schon Updates von Office 2003 und Windows XP installiert. Es funktioniert aber nicht. Warum?
Wieder brauche ich Eure Hilfe.
Vielen Dank
Liebe Grüße, Scheinchen