There is nothing in your code that tests whether a paragraph is bold. Do note that you can use Find/Replace for finding bold content and that testing whether a 'paragraph' is bold presupposes everything, including the paragraph break, is bold (or not). This can be done with or without VBA.

Unless you say what you're trying to achieve, we can't give more specific advice; the solution may or may not require a loop to implement.

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