Foutcode 429

[jangrootjans]

Hallo,

Ik wil graag een Word bestand openen met behulp van een macro in Excel. Ik krijg soms bij commando GetObject de foutmelding 429: ActiveX component kan geen object aanmaken. Waarom is dit niet betrouwbaar?
Ik werk met XP en Office 2007.

Sub Plchecknieuw()

'openen van Projectlijst (Word)
Dim WordApp As Object
Dim Worddoc As Object

stddir = "D:\" 'nog invullen

Projectnr = ActiveSheet.Range("c9").Value

jaar = "20" + Left(Projectnr, 2)
projectdir = stddir + jaar + "\" + Projectnr + "\03. PROJECTLIJST\"
Filename = "PrL" + Projectnr + ".doc"

       
 If Dir(projectdir + Filename) <> "" Then
    'file aanwezig
    
    Set WordApp = GetObject(, "Word.Application")
    If Err Then 'word nog niet open
        Err.Clear
        Set WordApp = CreateObject("Word.Application")
    End If
    On Error GoTo 0

'nog ervoor zorgen dat de macros niet starten bij openen PrL
    Set Worddoc = WordApp.Documents.Open(projectdir + Filename)
    WordApp.Visible = True

'
Else
'    MsgBox "Er is geen Projectlijst aanwezig in " + Projectnr + "!."
'
End If