Custom Search

Friday, November 28, 2008

Determine if Word is installed

Private Function IsWordInstalled() As Boolean

On Error GoTo Hell

'Attempt to connect to word
Dim objWord As Object
Set objWord = CreateObject("Word.Document")

'Must have been successful
IsWordInstalled = True

Set objWord = Nothing
On Error GoTo 0
Exit Function

GoTo Exit_For

End Function

No comments: