单个word正则匹配成功案例，互联网的美好就在于共享，所以我也共享之

最新推荐文章于 2023-09-25 19:06:29 发布

輝瑝

最新推荐文章于 2023-09-25 19:06:29 发布

阅读量195

点赞数

分类专栏： VBA之正则匹配文章标签： vba

本文链接：https://blog.youkuaiyun.com/u011564345/article/details/109197805

版权

VBA之正则匹配专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个使用VBA编写的文本替换宏示例，该宏能够在Microsoft Word文档中查找并替换特定文本，例如“生态环境局”或“区生态环境局”。通过正则表达式匹配目标文本，并提供交互式的替换确认。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
zifu = "罗江生态环境局"
rongqi.settext zifu
rongqi.putinclipboard




Dim oRng As Range
Dim changdu As Variant
Dim pos1, pos2, pos3 As Variant
Dim duolai As Variant

pos3 = 1

duolai = 0
With mRegExp
     .Global = True
     .Pattern = "生态环境局|区生态环境局"

      Set oMatches = .Execute(myRange)
     
     For Each m In oMatches
     myRange = ActiveDocument.Content.Text
     changdu = m.Length
              
     pos1 = InStr(pos3 + duolai, myRange, m) - 1
     
     pos3 = pos1 + changdu
     
     pos2 = pos1 + changdu
     
     Set oRng = ActiveDocument.Range(Start:=pos1, End:=pos2)
     oRng.Select
     n = MsgBox("要替换吗？## 标题", 1)
     If n = 1 Then
     
     Selection.Paste
     
     If changdu = 5 Then
        duolai = 2
     ElseIf changdu = 6 Then
        duolai = 1
     End If
      
      Else
      
    End If
     Next
     
End With

End Sub