想在表单中设置一个“打开”按钮，当在文本框中选择一个WORD文档的名称时，点击“打开”按钮，该WORD文档就能自动弹出。请问：这个“打开”命令按钮的事件代码怎么写？请各位高人帮帮忙~~

cwd=CREATEOBJECT("Word.application")
cwd.visible=.t.
cwd.Documents.open("c:\temp\ll.doc")
 



[ 本帖最后由 xs591222 于 2012-3-5 18:50 编辑 ]

CWD=CREATEOBJECT("Word.application")
CWD.VISIBLE=.T.
CWD.DOCUMENTS.OPEN(ALLTRIM(THISFORM.TEXT1.VALUE))

[ 本帖最后由 sdta 于 2012-3-5 19:30 编辑 ]

请问大侠,我按您的代码编写进去，运行后显示：
OLE IDispatch异常代码0 出自 Microsoft Word：此文件。
请试用下列方法：
检查文档名的拼写。
试用另一文件名。
这是怎么回事？我的word文档名没什么问题啊？

你把代码放在什么地方了
使用方法不当，会出现你说述现象。
另外，在运行表单前，一定要关闭WORD。

[ 本帖最后由 sdta 于 2012-3-6 16:03 编辑 ]

我是双击“打开”按钮，在弹出代码窗口里，把你写的代码复制进去了。运行时就提示上面的错误，另外我没打开word文档。

我是双击“打开”按钮，在弹出代码窗口里，把你写的代码复制进去了。运行时就提示上面的错误，另外我没打开word文档。

把代码全部写给你，似乎不大好。看看你的画面？

在VFP6.0运行正常。
THISFORM.TEXT1.VALUE 是否一样
文本框要写：路径+文件名+扩展名
仔细检查一遍

[ 本帖最后由 sdta 于 2012-3-7 13:38 编辑 ]

2楼、3楼的代码都没问题。正如9楼所说，楼主在文本框中必须键入word文档的路径。要不，换一种方法，直接找到要打开的Word文档吧：
oWrd=CREATEOBJECT("Word.application")  
owrd.Documents.Open(GETFILE("DOC"))&&打开已有Word文档
oWrd.Visible=.T.                       
*owrd.ActiveDocument.Save   &&保存
*owrd.Quit