Hi Michael,

Try a wildcard Find/Replace with:
Find = Periods*([^13]{2})
Replace = \1

Is there a particular reason you need this as a macro? I'm happy enough to do one, but I'd like to be sure the solution works and that the request isn't simply because of a mistaken belief that's what's required.

PS: If you insert a space before the 'Periods' in the Find box, the trailing space at the end of each para will also be deleted - but it'll cause problems if the 'Periods' starts a new line.

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