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

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-15

• #1

如何用OLE Container将Word嵌入Delphi,并在Delphi的窗体中编辑Word文档，然后
保存这份文档呢？

我是用
OleContainer1.CreateObjectFromFile('D:/aaa.doc',False);
OleContainer1.DoVerb(ovShow);
这两句调入Word的。出现了Word的工具栏，菜单没有，但是工具栏上的保存按钮是
Disabled的，如何才能开启此按钮的功能呢？？

我用这个OleContainer1调入Word，然后往Word工具栏里加按钮，
我已经加上去了，我现在想知道的是，按钮加上去以后，标题怎么显示，还有图标怎么加，
怎么响应我的事件。

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-15

• #2

yzhshi,你在哪，帮忙看看啊!

 

S

SeaHawk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-15

• #3

Olecontainer引入Word对象的保存功能是屏蔽的。无法打开。

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-15

• #4

SeaHawk, 谢谢你的光临!

>>Olecontainer引入Word对象的保存功能是屏蔽的。无法打开。
那按你这样说我不是没有办法了？？
应该还是有解决办法的吧，帮忙想想啊，非常感谢!

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-15

• #5

我不一定要用工具栏上的按钮保存的，

是否可以用 WordDoc:=OleContainer1.OleObject;
WordDoc.Application.Documents.SaveAs(....)
方式来保存呢？不过我试了一下好象，说什么 不支持SaveAs方法，
只有WordDoc.Application.Documents.Save(....)方法有效，却不知道怎么用， 笨哦，各位帮帮忙啊，狂急的!!

 

S

SeaHawk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-15

• #6

可以用Olecontainer自己的SaveAsDocument（好像是这个）来保存。
装入Olecontainer里面的Word很多功能都屏蔽掉了。

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-15

• #7

SeaHawk，谢谢，我试试!

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-15

• #8

嗯，用Olecontainer的SaveAsDocument保存是可以的，

那我能把工具栏给隐藏掉吗，这样放着不太好

 

S

SeaHawk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-15

• #9

这个要仔细看看WORD的VB的帮助。我记得是通过我WordDocument.CommandBars找出要隐藏的
CommandBar，然后隐藏他就可以了。通过名字来找.

 

H

hhxxj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-16

• #10

可以隐藏的，
CommandBars("Formatting").Visible = False
CommandBars("Standard").Visible = False
这是我录制的宏，我想在你的WORDAPPLICATION加上就可以了！

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-16

• #11

hhxxj,谢谢喽

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-17

• #12

具体怎么做呢，望告知，谢了

 

H

hhxxj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-17

• #13

嗯，因为你是用OLE嵌入WORD的，我也不知道怎么去获得这个APPLICATION,
不过建议你用DELPHI的server上的几个控件OLE和相结合，这样就可以很好的控制WORD了，
具体实例我记得在前面的帖子看到过你自己找找吧！

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-21

• #14

按钮我是加上去了，不过按钮的标题不知道怎么显示，还有图标不知道怎么加，
不知道怎么响应我的事件。

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-22

• #15

help..........

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-22

• #16

OleContainer1.CreateObjectFromFile ('D:/aaa.doc', False);
OleContainer1.DoVerb (ovInPlaceActivate);
WordApplication1.ConnectTo(IDISPATCH (OleContainer1.OleObject.Application) as _Application);//就这一句了！以后就象

以后就可以保存了

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-22

• #17

wk_knife,非常感谢你
保存方法我已经会了，我现在想知道的是，按钮加上去以后，标题怎么显示，还有图标怎么加，
怎么响应我的事件。

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #18

这个我也不熟啊。如果加到DEelphi的工具栏中，没见过类似的专家，往菜单倒是很好搞定，看看Gexperts的源码吧！

www.playicq.com上有。


如果是往WORD的工具栏中加，你可以参考HUBDOG的《DELPHI深度探索》中的源码，这个源码在上一个网站好象也有。

 

W

wlandll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #19

我用这个OleContainer1调入Word，工具栏就是Word本身的，所以就是往Word工具里加按钮，
我已经加上去了，我现在想知道的是，按钮加上去以后，标题怎么显示，还有图标怎么加，
怎么响应我的事件。

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #20

留下MAIL，给你发个例子吧！