小弟交不了作业？(150分)

小弟交不了作业？
小弟这学期的课程设计是《电子公章》
http://www.cltess.com/html/sign.htm
但第一个模块就遇到了难题：如何将WORD
通过olevarinat 无缝链接到DELPHI的FORM
窗体中？谢谢！

你可以试试D6自带的WordApplication1系列组件；

to:：liwens,
我找了一些资料 但都不能满足我的要求。哎，怎么办？

嘿 高手都理睬我么？

如何将WORD通过olevarinat 无缝链接?
这学期课程设计《电子公章》http://www.cltess.com/html/sign.htm
但遇到难题：如何将WORD嵌入到DELPHI的FORM中，然后
在FORM中操作文档，就象你直接打开 WORD一样，要求做到：
1）我们的工程菜单能够嵌入WORD的菜单中发挥我们自己click事件！
2）不但如此，而且要能保证嵌入后能对他进行电子签章
我们福州的凯特公司还是用VC来做啊，编程水平可想而知。谢谢！

以下语句可以实现
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtnrs, Menus;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Word1: TMenuItem;
OleContainer1: TOleContainer;
New1: TMenuItem;
Save1: TMenuItem;
Exit1: TMenuItem;
procedure New1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.New1Click(Sender: TObject);
begin
self.OleContainer1.CreateObject('word.document',true);
self.OleContainer1.DoVerb(OvShow);
end;

procedure TForm1.Save1Click(Sender: TObject);
begin
self.OleContainer1.SaveAsDocument('test.doc');
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

谢谢大哥 ，但愿可以啊！谢谢！