You could do the lot without a macro, using a wildcard Find/Replace, where:
Find = ^13[0-9]{1,}.^32
Replace = ^p
At most, you might need to insert an empty paragraph at the start of the document.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|