在VBA中查找/替换多个匹配案例

Question

我必须删除一些特殊字符，例如+,=,:等等附近的空格。目前我有很多复制粘贴的代码块，例如，

With ActiveDocument.Range.Find 
    .Text = " =" 
    .Replacement.Text = "=" 
    .Forward = True 
    .Execute Replace:=wdReplaceAll 
End With 
With ActiveDocument.Range.Find 
    .Text = "= " 
    .Replacement.Text = "=" 
    .Forward = True 
    .Execute Replace:=wdReplaceAll 
End With 

我该如何列举一系列匹配情况？

Answer 1

这是一个更简化的代码，为您的麻烦。如果您需要添加更多特殊字符，只需将其附加到数组即可！

Dim tmpArr, iCtr As Integer 

tmpArr = Array("+", "=", ":") 

For iCtr = 0 To UBound(tmpArr) 
    With ActiveDocument.Range.Find 
     .Text = " " & tmpArr(iCtr) & " " 
     .Replacement.Text = tmpArr(iCtr) 
     .Forward = True 
     .Execute Replace:=wdReplaceAll 
    End With 
Next 

希望这会有所帮助！祝你好运 ！