Word VBA自动排版（4）- 通过For循环批量替换

代码比较简单，只是在替换的基础上增加了最基础的For循环，有效节省了批量替换文本的时间。
废话不多说，直接上代码，

Ori = Array("a","b","c")    '被替换文本
Rep = Array("a","b","c")    '替换后的文本
For i = 0 To UBound(Ori)
      With Selection.find
         .Text = Ori(i)
         .Replacement.Text = Rep(i)
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False             '不查找格式
         .MatchCase = False          '不区分大小写
         .MatchWholeWord = False     '不采用全字匹配
         .MatchByte = False          '不区分全半角
         .MatchWildcards = False     '不使用通配符
         .MatchSoundsLike = False    '不查找同音
         .MatchAllWordForms = False  '不查找单词的所有形式
     End With

注，ori()，与rep()的各元素之间应当相互对应