run vba script in word for removing certain characters

macropod · #2 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Visual basic Word Script To Remove Specific Areas of a Word Doc	mackied	Word VBA	9	07-30-2017 03:10 PM
Removing characters from a cell	tonydoneese	Excel	4	01-12-2016 07:41 AM
Strange Characters appear when selecting SHOW ALL NON PRINTING CHARACTERS	ann Amber	Word	1	08-01-2015 08:06 PM
Junk characters (box-like characters) in Word file	Sashikala	Word	1	04-20-2010 02:03 PM
Removing data between two characters	Voodoo Child	Excel	1	11-26-2009 01:39 PM