OLE嵌入WORD后工具条上的打印预览按钮如何激活。 ( 积分: 200 )

uses ComObj;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
OleContainer1.AllowActiveDoc := True;
OleContainer1.AllowInPlace := True;
OleContainer1.CreateObject('Word.Document', False);
OleContainer1.DoVerb(ovShow);
end;

Word 激活后，工具条上的打开、保存和预览是虚的，未激活状态，请大家帮忙指点一下如何激活。

uses ComObj;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
OleContainer1.AllowActiveDoc := True;
OleContainer1.AllowInPlace := True;
OleContainer1.CreateObject('Word.Document', False);
OleContainer1.DoVerb(ovShow);
end;

Word 激活后，工具条上的打开、保存和预览是虚的，未激活状态，请大家帮忙指点一下如何激活。

兄弟啊，怎么结完分又问了，这样吧，我这有一个OLE的操作DEMO，你留个EMAIL，我发给你瞧瞧吧，你看有没有帮助吧

wzj365@163.com
谢谢！

app2001:
我没有收到,是否重新发一下。wzj365@163.com

抱歉，刚才工作忙，没发，现在发过去了，大伙谁想要就找楼主吧，我实在没空。

app2001:
谢谢你能把Demo发给我，Demo同样没有解决我提的问题，晕....

app2001:
能否发给我一份？ 我现在也做这方面的东西，Thanks

to xj_wzj:
请给我一个Demo，谢谢！
zjzwh@163.com

to xj_wzj:
能否发给我一份？ 我现在也做这方面的东西，Thanks
tj654321@126.com

DEMO收到，谢谢楼主。
这是DFW“小红河”给我的一段代码，给你参考一下。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Word2000, OleServer;

type
TForm1 = class(TForm)
WordApplication1: TWordApplication;
WordDocument1: TWordDocument;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure OpenWordFile(FileName:String);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
openwordfile(ExtractFilePath(Application.ExeName)+'doc/1.doc');
end;

procedure TForm1.OpenWordFile(FileName: String);
var
a:OleVariant;
begin
a:=filename;
WordApplication1.Connect;
WordApplication1.Visible:=true;
WordDocument1.Connectto(WordApplication1.Documents.Open(a,EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam));
end;


end.

就这个问题已经讨论了有5、6年时间了，怎么还不断有人提出来，晕。
这个问题是无解的，大家死心吧，还是把精力放到处理别的问题上去的好。