Works!

What would the VB code be if I wanted to run each find/replace separately but in the same macro? I tried this but it fails:

Sub Macro1()
Dim vFindText As Variant
Dim vReplaceText As Variant
Dim oRng As Range
Dim i As Long
vFindText = Array("%")
vReplaceText = Array(" PERCENT")
For i = 0 To UBound(vFindText)
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
Do While .Execute(findText:=vFindText(i), _
MatchWholeWord:=True, _
Forward:=True, _
Wrap:=wdFindStop) = True
oRng.Text = vReplaceText(i)
oRng.Collapse wdCollapseEnd
Loop
End With
Next
lbl_Exit:
Set oRng = Nothing
Exit Sub
'
Dim vFindText As Variant
Dim vReplaceText As Variant
Dim oRng As Range
Dim i As Long
vFindText = Array("/")
vReplaceText = Array("' ")
For i = 0 To UBound(vFindText)
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
Do While .Execute(findText:=vFindText(i), _
MatchWholeWord:=True, _
Forward:=True, _
Wrap:=wdFindStop) = True
oRng.Text = vReplaceText(i)
oRng.Collapse wdCollapseEnd
Loop
End With
Next
lbl_Exit:
Set oRng = Nothing
Exit Sub