How to know if MS Word is installed?

[ober0330]

Without doing a search for "winword.exe", is there a quick way to know if Word is installed on a PC?

I have my help files in 2 formats so far, .doc and .txt, and if they don't have Word installed, I just want to open the text file.

Any ideas?

[crptcblade]

Here's one way...

Private Sub Command1_Click()
    MsgBox IsWordInstalled
End Sub
 
Private Function IsWordInstalled() As Boolean
On Error Resume Next
 
Dim o As Object
 
    Set o = CreateObject("Word.Application")
    
    IsWordInstalled = Not (o Is Nothing)
    
    Set o = Nothing
 
End Function

[MartinLiss]

That looks like a CodeBank entry to me.