在WORD中查询指定的字符串,并返回RANGE对象(200分)

我在做一个小的软件,想实现在一个指定的文件,查询一个字符串,并把这个字符串的颜色改变成红色
难点
1:在该文件中不能找到该字符串,例如下
参数设置
DOCUMENT.CONTENT.FIND.---=TRUE;等等
.DOCUMENT.CONTENT.FIND.EXECUTE(FINDTEXT='NIHAO')
IF DOCUMENT.CONTENT.FIND.FOUND=TRUE THEN
BEGIN
找到字符串
END
2:找到后如何得到该字符串的RaNGE对象.
假设找到了字符串,r/如何将返回该字符串的RANGE对象.
是否DOCUMENT.CONTENT.FIND(返回一个FIND对象)
认为是RANGE对象,(可能FIND类的父类是RANGE类吗?)
最后:如果友人能回答这个问题,可以多给分.最好有原代码.
如果太大,邮件SHL_19800215@126.COM

我用的是 Selection。
MyWord.Selection.SetRange(Start:=0, End:=0); // 先把查找区域设为整个文档
MyWord.Selection.Find.Execute(FindText := 'sometext'); // 再查找文字

然后就应该可以做一些事儿了吧

我要在文档中循环查询,你那样只能查询一次,我要的是在查询完一次后,在这个基础上在次查询,不知松松柏可有好的办法.谢谢你的回应