RT....源码如下，可是每次运行，只能替换一次，即只能将“a”替换为“123”，然后就自动退出了，不能实现将“b”替换为“456”，哪位哥哥或者姐姐能帮小弟改一下这个代码，能够实现多次的替换？
.版本 2
.支持库 eWord2000
.程序集 窗口程序集1
.子程序 _按钮1_被单击
Word程序1.创建 ()
Word文档集1.置程序 (Word程序1, 假)
Word文档集1.打开 (取运行目录 () ＋ “\1.doc”)
Word程序1.显示 ＝ 真
WORD替换 (Word文档集1, “a”, “123”, 3)
WORD替换 (Word文档集1, “b”, “456”, 3)
.子程序 WORD替换, 整数型
.参数 WORD文档集, Word文档集
.参数 查找文本, 文本型
.参数 替换文本, 文本型
.参数 次数, 整数型
.局部变量 WORD内容, 文本型
.局部变量 对象, 对象
.局部变量 对象2, 对象
.局部变量 对象3, 对象
.局部变量 对象4, 对象
.局部变量 变体1, 变体型
.局部变量 变体2, 变体型
.局部变量 变体3, 变体型
.局部变量 N, 整数型
.计次循环首 (次数, )
对象 ＝ WORD文档集.取文档对象 ()
对象2 ＝ 对象.读对象型属性 (“Content”, )
对象3 ＝ 对象2.读对象型属性 (“Find”, )
对象4 ＝ 对象3.读对象型属性 (“Replacement”, )
对象4.写属性 (“Text”, 替换文本)
变体1.赋值 (查找文本, )
变体2.赋值 (真, )
变体3.赋值 (假, )
.如果真 (对象3.逻辑方法 (“Execute”, 变体1, , , , , , , , 变体3, , 变体2, , , , ))
N ＝ N ＋ 1
.如果真结束
.计次循环尾 ()
Word文档集1.保存 (取运行目录 () ＋ “\这是修改的WORD文件.DOC”)
Word程序1.退出 ()
返回 (N)