使用正则表达式在Microsoft word中将word标记为“查找并替换”

Question

我试图突出显示正则表达式发现的一个单词，如果有权利，请用相应的替换词替换它。

代码只有在没有替换的情况下才能正常工作。

也许每次都应该重新安排一下？？？

Sub Replace()
Dim regExp As Object
Set regExp = CreateObject("vbscript.regexp")
Dim arr As Variant
Dim arrzam As Variant
Dim i As Long
Dim choice As Integer
Dim Document As Word.Range
Set Document = ActiveDocument.Content

On Error Resume Next
'EGN
'IBAN

arr = VBA.Array("((EGN(:{0,1})){0,1})[0-9]{10}", _
"[a-zA-Z]{2}[0-9]{2}[a-zA-Z0-9]{4}[0-9]{7}([a-zA-Z0-9]?){0,16}")
arrzam = VBA.Array("[****]", _
"[IBAN]")
With regExp
    For i = 0 To UBound(arr)
        .Pattern = arr(i)
        .Global = True
        For Each Match In regExp.Execute(Document)            
            ActiveDocument.Range(Match.FirstIndex, Match.FirstIndex +     Match.Length).Duplicate.Select
            choice = MsgBox("Replace " & Chr(34) & Match.Value & Chr(34) & " with " & Chr(34) & arrzam(i) & Chr(34) & "?", _
                vbYesNoCancel + vbDefaultButton1, "Replace")
        If choice = vbYes Then          
          Document = .Replace(Document, arrzam(i))
        ElseIf choice = vbCancel Then          
          Next
        End If
        Next
    Next
End With

End Sub

Answer 1

事实上，这有几个问题。

首先，每场比赛中的每场比赛是静态的，在第一个循环的时刻确定。与此同时，您正在更改文档，因此每个连续的比赛都会查看一个旧位置。

其次，一次替换所有引用，因此无需循环遍历它们。似乎一条线，一次替换也可以做同样的事情。