Microsoft Office Forums - View Single Post - Find-and-Replace Special Characters

gmayor · 01-27-2023, 10:17 PM

The code I posted runs the searches separately. To do what you suggest requires two macros similar to

Code:

Sub Macro1()
Dim sFindText As String
Dim sReplaceText As String
Dim oRng As Range
    sFindText = "%"
    sReplaceText = " PERCENT"
    Set oRng = ActiveDocument.Range
    With oRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        Do While .Execute(findText:=sFindText, _
                          MatchWholeWord:=True, _
                          Forward:=True, _
                          Wrap:=wdFindStop) = True
            oRng.Text = sReplaceText
            oRng.Collapse wdCollapseEnd
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub


Sub Macro2()
Dim sFindText As String
Dim sReplaceText As String
Dim oRng As Range
    sFindText = "\"
    sReplaceText = " "
    Set oRng = ActiveDocument.Range
    With oRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        Do While .Execute(findText:=sFindText, _
                          MatchWholeWord:=True, _
                          Forward:=True, _
                          Wrap:=wdFindStop) = True
            oRng.Text = sReplaceText
            oRng.Collapse wdCollapseEnd
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub