怎么让VB程序根据自定义的替换文件对WORD文档进行批量替换

如何让VB程序根据自定义的替换文件对WORD文档进行批量替换？
用VB编的一小工具要对WORD文档中进行大量的字符串替换。

先引用“Microsoft   Word   xx.x   Object   Libaray”后

假如处理c:\temp\test.doc

Dim   Word   As   Object
Set   Word   =   GetObject( "c:\temp\test.doc ")
Word.Application.Visible   =   True

          Set   myRange   =   ActiveDocument.Content
          myRange.Find.Execute   FindText:= "图象 ",   replacewith:= "图像 ",   Replace:=wdReplaceAll
          myRange.Find.Execute   FindText:= "帐户 ",   replacewith:= "账户 ",   Replace:=wdReplaceAll
          myRange.Find.Execute   FindText:=ChrW(8898),   replacewith:= "∩ ",   Replace:=wdReplaceAll
……

我想让这些字符串替换能随时根据需要进行修改，设想将这些替换串写进一文本文件（如为zdth.txt）中：
1．如下的文本中“→”前为要替换的原串，“→”后为替换后的字符串。
2．由于WORD中有相当一部分字符并不在文本文件中正确显示，所以我采用CheW(xxxx)码值的方法表示（如下面第3例）。
3．替换后的字符串全为GB字符

"图象 "→图像
"帐户 "→账户
ChrW(8898)→∩
……

这样，以后要增删替换串时，就不必修改源代码，直接修改zdth.txt即可。不知此要求怎么实现，请高手相助。本人学VB不久，只能算入门级，请说明详细一点，谢谢！
不好意思，30分是坛上允许我给出的最高分。

------解决方案--------------------
顶起来!