代碼比較簡單，只是在替換的基礎上增加了最基礎的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()的各元素之間應當相互對應

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。