哪位大侠能帮我解决这个关于WORD控件的问题！(100分)

小弟正在做一个在WORD的文档内查找相应字符串的小软件，想在后台打开文件的方式将要找
字符位置显示在列表中，现在苦于不能找到一个有效的方法来返回字符串的位置，哪位大侠
有这方面的经验，请给予提供！

以前我曾经用下面这两个方法来查找过字符串，能实现替换，但不知道如何返回字符串
的位置值，请问有没有其它的办法可能实现能返回字符串的位置
--------------------------------------------
WordApplication1.Content.Find();
WordApplication1.document.Range.Find();

关注

findtext := '参考答案';
matchcase := false;
matchwholeword := true;
matchwildcards := false;
matchsoundslike := false;
matchallwordforms := false;
forward := true;
wrap := wdFindStop;
format := false;
replacewith := 'xxxxxxxx';
Replace:=true;
TextRange.find.execute( findtext, matchcase, matchwholeword,
matchwildcards, matchsoundslike, matchallwordforms,
forward,wrap, format, replacewith, replace,matchkashida,
matchdiacritics,matchalefhamza,matchcontrol );
showmessage(IntToStr(TextRange.Start));

一篇文章中含有多个这样的字符，请问是不是每次只找到一个位置？有没有一种方法是
一次就找完所有的字符串，并将其位置存放在一个列表中的呢？谢谢，LINSB给出的提示！

wrap := wdFindContinue;
.....

while TextRange.find.execute( findtext, matchcase, matchwholeword,
matchwildcards, matchsoundslike, matchallwordforms,
forward,wrap, format, replacewith, replace,matchkashida,
matchdiacritics,matchalefhamza,matchcontrol )
do begin
showmessage(IntToStr(TextRange.Start));
end;

不知道能不能得到书签的位置,如果能得到,察找一个,就创建一个书签在那里,
返回书签的位置.
//关注此题.

两人都有特色！呵呵，各赏50打版！！