如何判断Appword是否为空

[needanothercoder]

程序用
Appword=CreateObject("word.application")
建立一个Appword指向一个Word对象
程序又有一个按钮中代码如下：
Appword.Quit(0)
thisform.Release
QUIT
问题：如何判断Appword是否已经赋值？

[十豆三]

Try loWordApp=Newobject("Word.Application") && 产生Word对象 llSuccess=.T. Catch To oErr Messagebox(oErr.Message,16,'信息提示') llSuccess=.F. Endtry If llSuccess If Not Type("loWordApp")="O" Messagebox("创建 Word 对象失败！"+Space(3),48,"信息提示") Return Endif Else Messagebox("创建 Word 对象失败，确认本机是否已经安装了 Word ？"+Space(3),48,"信息提示") Return Endif