You could use a wildcard Find/Replace to do something like that, inserting an empty paragraph after every line containing less than 56 characters. For example:
Find = ^13[!^13]{1,55}^13
Replace = ^&^p

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