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()的各元素之间应当相互对应