单个word正则匹配成功案例,互联网的美好就在于共享,所以我也共享之
Sub Macro2()
Dim mRegExp As Object
Set mRegExp = CreateObject("vbscript.regexp")
Dim myRange As String
myRange = ActiveDocument.Content.Text
Dim oMatches As Variant
Dim n As Variant
Dim zifu As String
Dim rongqi As Object
Set rongqi = CreateObject("new:{1
原创
2020-10-21 11:33:49 ·
187 阅读 ·
0 评论