老问题了，在DFW上找了很久也没找到(50分)

1

119110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #1

ole对象createobjectfromfile后，word的工具栏都显示在窗口上，有没有办法不出现
这些工具栏？

 

那

那锦渤

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #2

var
TempObj: Variant;
begin
TempObj:= OLEContainer.OleObject;
TempObj.Application.CommandBars['Standard'].Visible:= false;
TempObj.Application.CommandBars['Formatting'].Visible:= false;
OLEContainer.DoVerb(ovPrimary)
end;

 

1

119110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #3

系统报错：interface not supported.
我是这样做的：
oleCon.CreateObjectFromFile('c:/abc.doc');
tmpObj:= oleCon.OleObject;
tmpObj.Application.CommandBars['Standard'].Visible:= false;
tmpObj.Application.CommandBars['Formatting'].Visible:= false;
oleCon.DoVerb(ovPrimary);
有什么问题么？

 

1

119110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #4

更正：
oleCon.CreateObjectFromFile('c:/abc.doc');
应为：oleCon.CreateObjectFromFile('c:/abc.doc',false);

 

1

119110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #5

知道的请帮个忙啊~

 

T

Teny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #6

用以下方法：
procedure TForm1.Button1Click(Sender: TObject);
begin
oleCon.CreateObjectFromFile('c:/abc.doc',false);
// tmpObj:= oleCon.OleObject;
// tmpObj.Application.CommandBars['Standard'].Visible:= false;
// tmpObj.Application.CommandBars['Formatting'].Visible:= false;
// oleCon.DoVerb(ovPrimary);
olecon.Run ;

end;

 

1

119110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #7

我的问题是：嵌入后，word的工具栏都显示在窗口上，有没有办法不出现这些工具栏？

 

T

Teny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #8

上面的做法就已经没有出现这些工具栏，除非你在它上面双击

 

1

119110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #9

当然要浏览一下里面的内容了，况且不能限制用户不能双击。

 

随

随缘心语

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #10

我有个办法可以实现不过不太好，但也可以的哟。
你可以与我联系
qq:66639527

 

随

随缘心语

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #11

算了等我看看我帖出来好了。
V:=OleContainer1.OleObject;


V.Application.CommandBars['Standard'].Visible:=False;
V.Application.CommandBars['Formatting'].Visible:=False;
ComObj.pas包含了。现在可以通过。
这是操作excel的不过操作word也应该是一样的。，

 

1

119110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #12

这和第一位的回答一样啊

 

M

magicgod

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #13

不加Application试试，用vba写一段，调试后基本可以照搬到delphi。

 

1

119110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #14

不会vba，还是没有满意的答案。

 

1

119110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #15

up

 

踏

踏浪者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #16

改成这样就可以了，请注意次序：
OleContainer.DoVerb(1);
OleContainer.OleObject.CommandBars['Standard'].Visible:=False;
OleContainer.OleObject.CommandBars['Formatting'].Visible:= false;
……