word vba 关于文字替换的请教

maoecr1

我的工作需要经常的修改客户提交的文件，涉及一些台湾客户文件，他们的行文风格类似于文言文问题1：文件中的”之“需要替换为“的”，“先前”需要替换成“现有”，“系”需要替换成空。。。。总之需要替换好多的内容以符合咱们的习惯，我现在的做法是反复的使用查找替换功能逐一的去替换，有没有一种方法可以一次性全部替换掉？比如我把要替换的对照表输入到一个excel表中，word替换时按照excel中的对照表逐一替换？？

问题2:以下是我搜到的单个词汇替换的方法，比如替换“之”，但是所有的“之”都被替换掉了，而实际文中“之前”，“之后”，“之间”等是我不希望被替换的，这该如何解决呢?请教各位大师了，望不吝赐教，多谢！！
Sub 之()  '之  的替换

    With Selection.Find
    .ClearFormatting
    .Text = "之"
    .Replacement.ClearFormatting
    .Replacement.Text = "的"
    .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
     End With
End Sub

maoecr1

请教各位老师了。。。