Como saber si MS Word está instalado

LOCAL lcOldError, llError, loWord
llError = .F.
lcOldError = ON("ERROR")
ON ERROR llError = .T.
loWord = CreateObject("Word.Application")
ON ERROR (lcOldError)
IF llError or VARTYPE(loWord) <> "O"
? "Error: MS Word no está instalado"
RETURN .F.
Endif