Lukke skjulte word instanser

Jeg har ikke nogen løsning liger på hånden. Men kan vi ikke få lov at se din kode?
Det medvirker ofte til en bedre forståelse af problemstillingen.

http://my.advisor.com/doc/16536

Sub killingAllwordObj()
    Dim wrdObj As Object
    On Error GoTo exitsub
    Do
        Set wrdObj = GetObject(, "Word.Application.8")
        wrdObj.Quit
        Set wrdObj = Nothing
    Loop
exitsub:
End Sub

Det er en god ide, ikke at åbne flere wordobjekter, men genbruge den samme, som i:

Sub openWord()
    Dim wordObj As Object
    Set wordObj = newOrExisting("Word.Application.8")
    wordObj.Visible = True
    ....
End Sub

Function newOrExisting(AppType$) As Object
    On Error Resume Next
    Set newOrExisting = GetObject(, AppType)
    If err.number <> 0 Then
        Set newOrExisting = CreateObject(AppType)
    End If
End Function