如何用OLE Container将Word嵌入Delphi,并且可以实现保存功能? (100分)

  • 主题发起人 主题发起人 wlandll
  • 开始时间 开始时间
wlandll@163.com
非常感谢楼上的
 
还没发过来,急!!![:(!]
 
当然可以了,我原来做过这方面的程序
好像是SaveToFile(filename)这个函数
 
我用这个OleContainer1调入Word,然后往Word工具栏里加按钮,
我已经加上去了,我现在想知道的是,按钮加上去以后,标题怎么显示,还有图标怎么加,
怎么响应我的事件。

 
这分是为我准备的!!!
这个问题我以前问过,没人给出答案。但是我自己解决了。
当OleContainer1的对象激活的时候,一般使用doverb(0)激活的,此时word或者excel的打印
保存功能都无效,不仅仅按钮不行,如果调用它的save、printout等方法也必然出错。
但是如果doverb(1)就没问题了。
doverb(0)激活的word在OleContainer1内;但doverb(1)激活的word独立运行。
我的做法是,先用doverb(0)激活,这样看起来word在窗口内,保存时:
doverb(1);然后保存;然后doverb(0);
这样屏幕只是一闪而一。
怎么样?!!!这是我刚刚研究的结果。拿分来吧!
 
hehe楼上这位不错啊,回去试试!
 
吼吼,原来是这样解决的啊,yeskert1,这确实是一个方法。不过不是我想要的,
我现在想知道的是,按钮加上去以后,标题怎么显示,还有图标怎么加,
怎么响应我的事件。

如果说只为解决我最初要的,我已经有二个方法了:
方法一、在窗体上加MainMenu,然后再加个保存的菜单项,运行后,Ole会自动整合
Word和MainMenu。
方法二、在窗体上加工具条,在工具条上放保存按钮,这样不会整合显示Word菜单。

保存方法有n种:
方法一、
OleContainer1.OleObject.Applicaton.ActiveDocument.SaveAs(...);
方法二、
OleContainer1.OleObject.SaveAsDocument(...);
方法三、
....
 
to wlandll:
哦……
也许我的实验有问题,你说的这些我都没有成功。你给出的保存方法执行时报错。
另外,
“窗体上加MainMenu,然后再加个保存的菜单项,运行后,Ole会自动整合Word
和MainMenu。”此时的保存按钮是灰的……这些你都运行通过了吗?
看来我要仔细研究一下。这里的奥妙很多!我知道的太少,不好意思!
 
en,如果你们度过前面关于这方面的帖子,就该注意岛到似乎大家都提了新增加一个toolbar,当然
要注意放的位置,我记得menxin和seasky对这块比较熟悉,以前一个叫茶叶蛋的也问了不少问题呢!
 
to yeskert1:我全运行通过的,Word工具栏上的保存按钮是灰的,
所以要自己加个保存的菜单项啊,里边的代码也要自己写的,
工具栏上的保存按钮里边的代码也是要自己写的,
保存方法见上贴,当然在保存之前需要做一些预备工作,
我这里只是给出关键语句。

 
to hhxxj:你说的这几个人的贴子,我全看过的,只是提到了一些给按钮增加事件的
大致的方向,具体没有说明哦,有点可惜。
继续求救中....
按钮加上去以后,标题怎么显示,还有图标怎么加,
怎么响应我的事件。
 
哦,周日在家办年货。

所有的邮箱都不好使,发不出去!
 
那现在发一个吧
 
总算发出去了,查收吧
 
收到,wk_knife谢了!
:)
 
多人接受答案了。
 
各位,能给我个解决的例子吗?mdc@0451.com
怎么实现让那些变灰的按钮能启用呢?
 
各位,能给我个解决的例子吗?mdc@0451.com
怎么实现让那些变灰的按钮能启用呢?
 
后退
顶部