With ActiveDocument.Range.Find .MatchWildcards = True .Text = "^13([\(a-z0-9]@\))" .Replacement.Text = "^p^t\1" .Execute Replace:=wdReplaceAll End With