You don't need a macro for what you've described. You could do it with a fairly simple wildcard Find/Replace, where:
Find = [^1-^255]{50}
Replace = ^&^l
Simply change the 50 to whatever character count you want to use.

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