在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 

希望這會有所幫助！祝你好運 ！