在线等！！急！！关于查找的问题(100分)

有这样一个要求： 找出word文档中第二段中的所有“I/O”字符，并将他们设为粗体
我写了代码：
Prange.Select;
if WordDoc.Application.Selection.Find.execute(FindText:='I/0',Forward:=True) then
WordDoc.Application.Selection.Font.Bold:=True
else
showmessage('failed');
可以它只改了第一个“I/O”字符，后面的都没有改，怎么才能查找文中所有的特定字符，并全部选中，再更改他们的属性。在word的“查找对话框”里有个“突出显示所有匹配的字符”选项，delphi里面如何实现

自己解决了

[]

http://edu.sina.com.cn/en/ys.html