Sub MAIN
dowhat = 1
If SelType() = 2 Then
dowhat = 0
End If
EditReplace .Find = "^p", .Replace = "@@@", .Direction = 0, .ReplaceAll, .Wrap = dowhat
EditReplace .Find = "@@@@@@", .Replace = "^p^p", .Direction = 0, .ReplaceAll, .Wrap = dowhat
EditReplace .Find = "@@@", .Replace = " ", .Direction = 0, .ReplaceAll, .Wrap = dowhat
End Sub
