It wasn't apparent to me that you wanted to delete the question #s. To do that, change:
.Text = "([0-9]@\)*Answer:*)([A-Z])*(\2\)*^13)*^13{2}"
to:
.Text = "[0-9]@\) (*Answer:*)([A-Z])*(\2\)*^13)*^13{2}"

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]