回 帖 发 新 帖 刷新版面

主题:能调用word文档吗?

以下步骤,可爱的vf能做到吗:
列表中显示word文件名,
选定一个文件,打开,
复制这个文档到备注字段中。
感谢帮助!

回复列表 (共6个回复)

沙发

请参考这个
http://topic.csdn.net/u/20090606/23/373ea7c1-4d62-459f-9379-f51835f9f249.html?93222

道理是一样的

板凳


谢谢指点。您提供的内容我正仔细阅读,有启发,同时对我也有些难度。我还是希望能直接以word为例,给些指教。

3 楼

*假设将“g:\word”文件夹中选定的word文档内容置换“表名.dbf”的记录5的bz备注字段。
*表单load事件:
USE 表名

DIMENSION alj(1,50)
SET PATH TO g:\word\
ADIR(aLj,"g:\word\*.doc")

*表单Init事件:
thisform.combo1.RowSourceType= 5
thisform.combo1.RowSource="aLj"

*命令按钮Click事件:
ow=CREATEOBJECT("WORD.APPLICATION")
ow.Documents.Open("g:\word\"+thisform.combo1.Value)
ow.Selection.WholeStory
mywordstr=ow.Selection.text
GO 5
REPLACE bz with mywordstr
ow.Quit

4 楼


完全可以完成楼主的功能,我是这样处理的:
针对grid对象中的表格,表格中有一项是文件名,如abc.doc,可以设置双击事件,或右击弹出一操作菜单,在事件中加如类似以下代码:
 
   *判断abc.doc文件是否存在(略)
   run/n d:\programm file\office\...\winword.exe abc.doc
打开后就可随意操作了!

5 楼


3、4楼朋友感谢你们不吝赐教,我分别按所提供的方法做,再次拜谢!

6 楼

按3楼代码,再加上一个循环,并考虑用取得的Word文件内容置换数据表中第几个记录的备份字段,就可以将多个文件置换到所需的备注中了。

我来回复

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