You could use a wildcard Find/Replace where you specify the Find Style for whatever heading you're interested in, combined with:
Find = [^13]{2,}
Replace = ^p
This will delete any empty paragraphs in that Style after the heading. Of course, if Style definitions were being used properly, this would most likely not be an issue, as there generally isn't a good reason for having empty paragraphs between headings and the text to which they relate.

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