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]