使用 RegEx 在 Microsoft Word 中将单词标记为“查找和替换”

Question

我尝试突出显示由 RegEx 找到的单词，并用其相应的替代项替换它。

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

大概每次都要重新排列？？？

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

实际上，这有几个问题。

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

其次，您一次替换了所有出现的事件，因此无需循环遍历它们。似乎一行，一次替换可以做同样的事情。