代碼比較簡單，只是在替換的基礎(chǔ)上增加了最基礎(chǔ)的For循環(huán)，有效節(jié)省了批量替換文本的時(shí)間。
廢話不多說，直接上代碼，

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 '不區(qū)分大小寫.MatchWholeWord = False '不采用全字匹配.MatchByte = False '不區(qū)分全半角.MatchWildcards = False '不使用通配符.MatchSoundsLike = False '不查找同音.MatchAllWordForms = False '不查找單詞的所有形式End With

注，ori()，與rep()的各元素之間應(yīng)當(dāng)相互對應(yīng)

總結(jié)

以上是生活随笔為你收集整理的Word VBA自动排版（4）- 通过For循环批量替换的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。