WebBrowser的SelText(字符串查找),CathyEagle请进(100分)

我参照以下方法
来自：CathyEagle 时间：00-8-26 15:35:38 ID:319155
To yeah：
　　我搞定它了！如下：
var
DoC: IHTMLDocument2;
Txt: IHTMLTxtRange;
begin
Doc := WebBrowser1.Document as IHTMLDocument2;
WebBrowser1.SelectAll;　　　　　　　//这句很重要，因为IHTMLTxtRange
的所有方法前提必须要有一个TextRange，不过放心，这句话执行的结果不会显示。
Txt :=Doc.selection.createRange as IHTMLTxtRange;
Txt.findText('新闻',0,0);
Txt.select;
end;
可以在WebBrowser中找到第一个'新闻',但其余的'新闻'如何找呢?
我希望达到向MSDN中的那样,将文件中的所有'新闻'都选中。如果不能，达到“查找
下一个”的功能亦可。
请大虾指教！

高手在哪儿？

请继续或结束

高手满街都是！
你可以自己做一个循环嘛！
还有move,moveend,movetopoint一大串函数，自己做一个循环不就行了？
first
while rDocoument.findtext('ladykiller',0,0) do
begin
rDocoument.moveStart("Character",1,&t);
rDocoument.moveEnd("Textedit",1,&t);
end;
仅仅是思路，程序没有验证过的。

我已经不做这个程序了，不过还是要谢谢你。