You don't even need a macro for that - just an ordinary Find/Replace. For example, to delete paragraphs containing exactly three characters (in addition to the paragraph break), use:


Find = ^p^?^?^?^p
Replace = ^p
or you could use a wildcard Find/Replace with:
Find = ^13[!^13]{3}^13
Replace = ^p

To delete paragraphs containing up to three characters (in addition to the paragraph break), use a wildcard Find/Replace with:
Find = ^13[!^13]{1,3}^13
Replace = ^p

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

Thanks! This is very neat! Just a note that the last line should be Replace = ^13

No, it shouldn't! You will get very strange document behaviour if you do that.

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

Sorry. Yeah, you're right. I tested it on a piece of manually typed very simple text and I did notice that will cause some change in the format.