怎样对一个打开的word文件进行操作？(100分)

我要编一个可执行程序，在一个打开的word文件中插入一个字符串，应该怎样作呢？

用VBA，Delphi中有用Word的组件.VBA的语句具体怎么用我也忘记了.不过你进入Word中用它的VBA编
一段代码，再“移植”过来试试。

可关键是怎样在已打开的word文件中执行VBA呢？

这个思路能行得通吗？很急啊！

如果只是插入字符串的话。请在d的安装目录里找，有例子。

//打开文档
procedure OpenDoc(WrdApp: TWordApplication;
var WrdDoc: TWordDocument;
FileName: string);
var
FName, ConfirmConvert, ReadOnly, AddToRecentFile, PwdDoc, PwdTemp: OleVariant;
Revert, WritePwdDoc, WritePwdTemp, Format, Encoding, Visible: OleVariant;
begin
WrdApp.Connect;
WrdApp.Visible := True;
FName := FileName;
ConfirmConvert := EmptyParam;
ReadOnly := EmptyParam;
AddToRecentFile := EmptyParam;
PwdDoc := EmptyParam;
PwdTemp := EmptyParam;
Revert := EmptyParam;
WritePwdDoc := EmptyParam;
WritePwdTemp := EmptyParam;
Format := EmptyParam;
Encoding := EmptyParam;
Visible := EmptyParam;
WrdDoc.ConnectTo(WrdApp.Documents.Open(FName, ConfirmConvert, ReadOnly, AddToRecentFile, PwdDoc, PwdTemp,
Revert, WritePwdDoc, WritePwdTemp, Format, Encoding, Visible));
end;

procedure TForm1.OpenitClick(Sender: TObject);
var
fileN:string;
index: OleVariant;
begin
if OpenDialog1.Execute then
begin
fileN:=OpenDialog1.filename;
OpenDoc(WordApp,WordDoc,fileN);
index:=wordapp.ActiveDocument.Get_ActiveWindow;
WordDoc.ConnectTo(WordApp.Documents.Item(index));
end;
end;

procedure TForm1.addstrClick(Sender: TObject);
var
tlevariant;
str:string;
begin
t:=20;
str:='FFGG';
wordapp.ActiveDocument.Range(t,t).InsertAfter(str);
end;

用GetActiveOleObject(word.application);
直接可以找到已经打开的word，
至于插入字符等操作，录一个word宏，再用delphi移植一下就搞定啦：）

多人接受答案了。