> MI>EditReplace .Find = "^p^p", .Replace = "$$$", .Direction = 0, 
MatchCase
 > = 0
 > MI>EditReplace .Find = "^p", .Replace = "", .Direction = 0, .MatchCase = 
,
 > MI>EditReplace .Find = "$$$", .Replace = "^p^p", .Direction = 0, 
MatchCase
 > = 0
 > I haven't run this macro, but I think it fails where a document
 > has four or more consecutive .
Actually her code is quite good.  Just run it as often as is needed.
However, if I want to remove ^p^p or more, I just run a Replace (All) for 
^p^p to ^p.  The first time you run it, you will receive a dialog box listing 
how may replacements it accomplished.  I keep repeating the Replace until 
that dialog box gives 0 (or 1) as the number of replacements.  No need to do 
anything fancier than that.
Lawrence
... The IRS does it annually.
--- FMail 1.0g
---------------