You can have as many range variables as you want.
Dim oRng as Range
Dim oChar as Range
Dim oWord as Range
Dim oOpenRange As Range
If your insert this code in another macro then it should run the same as it did on its own:
Code:
Dim oRng As Range Set oRng = ActiveDocument.Range With oRng.Find .Text = "([a-z])(/)([a-z])" .MatchWildcards = True .Replacement.Text = "\1 \2 \3" .Execute Replace:=wdReplaceAll End With