Sub main()
 
Dim wordapp As Object
 
 
On Error GoTo wordnotfound
    'wenn ein error auftaucht dann läuft word nicht
    'wenn word läuft dann bekommst du eine object zurück
    Set wordapp = GetObject(, "Word.Application")
    wordapp.Visible = True
On Error GoTo 0
 
Exit Sub
 
wordnotfound:
Set wordapp = CreateObject("Word.Application")
Resume Next
 
End Sub