Closing Microsoft Word : problem using the Word.Global functions

[Joacim Andersson]

Well you're using GetObject and that's OK but then you only use CreateObject if Error 429 was raised. Change the code to this:

Dim objWrdApp As Word.Application

On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application.9") 
If Err.Number <> 0 Then 
    Err.Clear 
    Set objWrdApp = CreateObject("Word.Application.9") 
End If

Good luck!