help!
Sub Macro()
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchWildcards = True
.Text = "(Question [0-9]*\?^13A. *)[ ^13](B. *)[ ^13](C. *)[ ^13](D. *^13)"
.Replacement.Text = "\1^p\2^p\3^p\4"
.Execute Replace:=wdReplaceAll
End With
End Sub