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

Word VBA自动排版- 通过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()的各元素之间应当相互对应

赏 支付宝打赏 微信打赏

如果文章或资源对您有帮助，欢迎打赏作者。一路走来，感谢有您！