WORD中用宏VBA查找、替换如何实现？

二月放牛娃

需求：用正则表达式查找对应的Pattern，中间的字符保持不变，只对起始的$进行替换。请大家帮忙看看怎么解决呢？

1. Sub Word文档中查找替换()
   
2. Dim col As New Collection, k&
   
3. Dim mt, oRang As Range, n%, m%
   
4. Dim i As Variant
   
5. With CreateObject("vbscript.regexp")
   
6. .Pattern = "$*?$" '            '需要把查找到的第1个$符号变为$\color{white}，第2个$不替换。中间的*?保持不变
   
7. .Global = True: .IgnoreCase = False: .MultiLine = True
   
8. 
   
9. For Each i In ActiveDocument.Paragraphs
   
10. For Each mt In .Execute(i.Range.Text)
    
11. k = k + 1
    
12. m = mt.FirstIndex: n = mt.Length
    
13. Set oRang = ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n)
    
14. col.Add oRang, CStr(k)
    
15. Next
    
16. Next
    
17. End With
    
18. For j = 1 To col.Count
    
19. col(j) = "$\color{white}*?$"                '需要把查找到的第1个$符号变为$\color{white}，第2个$不替换。中间的*?保持不变
    
20. Next
    
21. End Sub
    

复制代码

示例文件.rar (18.33 KB, 下载次数: 5)

2021-8-15 11:43 上传

点击文件名下载附件

tcdatongye

1. With CreateObject("vbscript.regexp")
   
2.   .Pattern = "(\$)([\\a-z])"
   
3.   .Global = True: .IgnoreCase = True: .MultiLine = True
   
4.   Selection.Text = .Replace(Selection.Text, "$1\color{white}$2")
   
5. End With

复制代码