Microsoft Office Forums - View Single Post - [Solved] run vba script in word for removing certain characters

macropod · 05-11-2022, 03:41 PM

You can't put those variations all into a single Find expression. You could use a macro, however, to automate the process. For example:

Code:

Sub BulkFindReplace()
Application.ScreenUpdating = False
Dim ArrFnd As Variant, i As Long
'Array of wildcard Find expressions
ArrFnd = Array("[*\]", "[\*“”""""]")
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Format = False
  .Forward = True
  .MatchWildcards = True
  .Replacement.Text = ""
   'Process each item from ArrFnd
  For i = 1 To UBound(ArrFnd)
    .Text = ArrFnd(i)
    .Execute Replace:=wdReplaceAll
  Next
End With
Application.ScreenUpdating = True
End Sub