This works for me:
Code:
Sub CleanUp()
With ActiveDocument.Range.Find
.ClearFormatting
.Text = "([MR][EI][PS][ST][AU][GR]E:)[^t^s ]@<"
.Replacement.Text = "\1 "
.Replacement.ParagraphFormat.LeftIndent = 0
.Format = True
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End Sub