如何在delphi中和当前运行的word进行交互？(100分)

只要能获取当前word窗口中正在编辑的文件，
以及能获取当前word的编辑输入即可。

查visual basic for application的帮助（office 97里有，delphi里没有），找
到相应的函数，然后用server控件wordapplication等调用相应的函数。

在Server里怎么调用？
能写一小段例子吗？

unit WTForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.DFM}
uses
ComObj, ActiveX;
var
OldWord, NewWord: Variant;
function GetOrCreateObject (const ClassName: string): IDispatch;
var
ClassID: TGUID;
Unknown: IUnknown;
begin
ClassID := ProgIDToClassID (ClassName);
if Succeeded (GetActiveObject (ClassID, nil, Unknown)) then
OleCheck (Unknown.QueryInterface (IDispatch, Result))
else
Result := CreateOleObject (ClassName);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
{ try
OldWord := GetActiveOleObject ('Word.Basic');
except
OldWord := CreateOleObject ('Word.Basic');
end;
}
OldWord := GetOrCreateObject ('Word.Basic');
NewWord := GetOrCreateObject ('Word.Application');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OldWord.FileNew;
OldWord.AppShow;
OldWord.Insert ('Mastering Delphi by Marco Cant?);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
OldWord.FileNew;
OldWord.AppShow;
OldWord.Isnert ('Mastering Delphi by Marco Cant?);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
do
cument, Range: Variant;
begin
NewWord.Visible := True;
NewWord.Documents.Add;
// insert text
NewWord.Documents.Item(1).Range.
Text := 'Mastering Delphi by Marco Cant?;
// getdo
cument and add paragraph
do
cument := NewWord.Documents.Item(1);
do
cument.Paragraphs.Add;
do
cument.Paragraphs.Add;
// select the third paragraph in a 'range'
Range :=do
cument.Paragraphs.Item(3).Range;
Range.Text := 'Hello, Delphians';
Range.Bold := 1;
Range.Font.Size := 30;
// save the resulting file
if SaveDialog1.Execute then
do
cument.SaveAs (WideString (SaveDialog1.Filename), 0);
{Document.SaveAs (
FileName := WideString (SaveDialog1.Filename),
FileFormat := 0, // word native format
SaveNativePictureFormat := 1);
// true}
end;

end.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleServer, Word97;
type
TForm1 = class(TForm)
WordApplication1: TWordApplication;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
alevariant;
begin
a:=wdhelpabout;
wordapplication1.Connect;
wordapplication1.Help(a);
end;

end.
//注意wordapplication1.connectkind:=cknewinstance(如果word没运行）
//若已运行用ckRunningInstance

sorry,少写了一句：
a:=wdhelpabout;
wordapplication1.Connect;
wordapplication1.Help(a);
wordapplication1.disconnect;//用完应断开连接

用OLE行吗？
var
varw:variant;
...
varw:=createoleobject('Word.Basic');
varw.filenew;
....
varw.appshow;
...
varw.insert('.....');
...
varw.filesave;
...
varw.filesaveas;
...

跟

多人接受答案了。