请教：表单事件代码编写问题

主题：请教：表单事件代码编写问题

allen0125 [专家分：0] 发布于 2012-03-05 16:27:00

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

本帖地址： http://bbs.pfan.cn/post/382089.html

回复列表（共6个回复）

沙发

lygcw9603 [专家分：250] 发布于 2012-03-06 09:01:00

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

板凳

allen0125 [专家分：0] 发布于 2012-03-06 15:40:00

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

3 楼

lygcw9603 [专家分：250] 发布于 2012-03-06 16:24:00

运行表单前WORD是否关闭

4 楼

allen0125 [专家分：0] 发布于 2012-03-07 13:49:00

word没开启过~~

5 楼

qjbzjp [专家分：8830] 发布于 2012-03-07 15:27:00

路径不对，VFP找不到这个Word文档。

6 楼

moz [专家分：37620] 发布于 2012-03-07 20:20:00

File01=fullpath(THISFORM.TEXT1.VALUE)
if file(File01) then
   try
      wordCWD=CREATEOBJECT("Word.application")
      wordCWD.VISIBLE=.T.
      wordCWD.DOCUMENTS.OPEN(File01)
   catch
      messagebox("可能未安装WORD,打开失败.")
   endtry
endif

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：请教：表单事件代码编写问题

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：请教：表单事件代码编写问题

回复列表 （共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共6个回复）