You don't need VBA for this. All you need do is define paragraph Styles that meet your requirements, then use Find/Replace to apply those Styles to the paragraphs concerned.

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