怎样用在word中定位？(100分)

在word中设定了一个关键字，现在希望delphi程序在这个关键字的后面添入一些表格内容。有人说可以使用find.execute，但我需要插入的是表格内容，而不是简单的文本。我的问题是怎样在word中定位？或者怎样能把光标定位在当前找到的文本的位置？

修改 Wordapplication.Selection.Start 数值
//光标移动到最后文章末尾
Wordapplication.Selection.Start := Wordapplication.Selection.StoryLength;

怎样得到关键字的位置？find.execute也没有返回当前字符串的位置

你用find.execute后，看看 Wordapplication.Selection 里有没有什么长度
的或者其他表示位置的东西
如果没有我也不知道了。。。。

procedure TForm1.Button1Click(Sender: TObject);
var
TextRange:range;
SearchText,Wrap:Olevariant;
i,k:byte;
begin
TextRange := wordapplication1.ActiveDocument.Content;
SearchText :=Edit1.text;
Wrap:=wdFindStop;
//查找
TextRange.Find.Execute(SearchText, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, Wrap,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
TextRange.SetRange(TextRange.End_,TextRange.End_);//关标定位到找到的文本的之后
wordapplication1.ActiveDocument.Tables.Add(TextRange,2,2, EmptyParam, EmptyParam);
for i:=1 to 2 do
for k:=1 to 2 do
begin
wordapplication1.ActiveDocument.Tables.Item(1).Cell(i, k).Width:=200;
wordapplication1.ActiveDocument.Tables.Item(1).Cell(i, k).Height:=24;
wordapplication1.ActiveDocument.Tables.Item(1).Cell(i, k).Range.InsertAfter('Cell,'+intToStr(i)+','+intToStr(k));
end;
end;

收藏

这是我第一次在大富翁上发贴，在很短时间内得到了高手的解答，非常感谢

非常抱歉，我把分数给倒了，请linsb到这里领分，谢谢
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2232528

to linsb:
如果我在word中增加了表格，但我并不知道我增加的表格是第几个怎么向新增的表格中写东西？您是这方面高手，帮帮忙，谢谢了
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2241474