VB中怎样判断机器上是否装有WORD及WORD是否打开?
在VB6中进行适当引用并写出下列语句后能处理WORD文档：

Dim wdApp As Word.Application
Dim aDoc As Document
Set wdApp = New Word.Application

但前提是机器上已安装了WORD，所以我希望：

1. 在代码中加进判断该机上是否已安装了WORD的语句（WORD的版本及安装在哪个目录下不限），如未安装，告诉用户：“本机上未安装WORD，请先安装后再运行本程序！”；

2. 如该机上已安装了WORD，要求在代码中接着判断WORD是否已启动，如已启动，告诉用户：“WORD已启动，请先退出后再运行本程序！”。

52分是坛上此次允许给的最高分。


[解决办法]
Dim wordApp As Object
On Error Resume Next
Set wordApp = GetObject(, "Word.Application ")
If Err.Number <> 0 Then
Err.Clear
Set wordApp = CreateObject( "Word.Application ")
If Err.Number <> 0 Then
Err.Clear
MsgBox "本机上未安装WORD，请先安装WORD XP或WORD更高版本后再运行本程序！ ", vbInformation
Exit Sub
Else
MsgBox "您的电脑中已安装Word程序! ", vbInformation
wordApp.Quit
End If
Else
MsgBox "WORD已启动，请先退出WORD后再运行本程序！ ", vbInformation
wordApp.Quit
Exit Sub
End If