主题:能调用word文档吗?
blcg2001
[专家分:30] 发布于 2009-06-09 15:13:00
以下步骤,可爱的vf能做到吗:
列表中显示word文件名,
选定一个文件,打开,
复制这个文档到备注字段中。
感谢帮助!
回复列表 (共6个回复)
沙发
liupeisong [专家分:2340] 发布于 2009-06-10 01:02:00
请参考这个
http://topic.csdn.net/u/20090606/23/373ea7c1-4d62-459f-9379-f51835f9f249.html?93222
道理是一样的
板凳
blcg2001 [专家分:30] 发布于 2009-06-10 13:02:00
谢谢指点。您提供的内容我正仔细阅读,有启发,同时对我也有些难度。我还是希望能直接以word为例,给些指教。
3 楼
qjbzjp [专家分:8830] 发布于 2009-06-10 21:55:00
*假设将“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 楼
有约故人来 [专家分:50] 发布于 2009-06-11 08:52:00
完全可以完成楼主的功能,我是这样处理的:
针对grid对象中的表格,表格中有一项是文件名,如abc.doc,可以设置双击事件,或右击弹出一操作菜单,在事件中加如类似以下代码:
*判断abc.doc文件是否存在(略)
run/n d:\programm file\office\...\winword.exe abc.doc
打开后就可随意操作了!
5 楼
blcg2001 [专家分:30] 发布于 2009-06-11 11:06:00
3、4楼朋友感谢你们不吝赐教,我分别按所提供的方法做,再次拜谢!
6 楼
qjbzjp [专家分:8830] 发布于 2009-06-11 15:16:00
按3楼代码,再加上一个循环,并考虑用取得的Word文件内容置换数据表中第几个记录的备份字段,就可以将多个文件置换到所需的备注中了。
我来回复