Find If Word Is Open

I write an application that open MSword , I use GetObject:
Set objWord = GetObject(, "Word.Application")

but if MSword is close it raise an error (429), then I use this (after the ErrHandler tag):

Set objWord = New Word.Application 'Create New refernce for Word
Resume Next

I wonder if there is a way to find if MSword is open , before i call GetObject ( I dont want to use this :
Set objWord = GetObject("", "Word.Application"))

Thanks

If you use CREATEOBJECT instead of GETOBJECT, you won't experience this problem.

Otherwise you can use the FINDWINDOW Api.