Stripping Trailing Spaces with WordBasic

Maybe I'm one of those compulsive-obsessive types, but I always go through my documents to make sure there are no trailing spaces at the end of a line. This makes the document neater and smaller. If you format ASCII files, you will need to search for trailing spaces, and remove them, as you format the file for Word. The following WordBasic macro, StripSpaces, will take out all spaces before paragraph marks and manual line breaks throughout your document.

Sub MAIN
StartOfDocument
EditFindClearFormatting
EditReplaceClearFormatting

EditFind .Find = " ^p", .WholeWord = 0, .MatchCase = 0, \
.Direction = 1, .Format = 0
While EditFindFound()
    StartOfDocument
    EditReplace .Find = " ^p", .Replace = "^p", \
    .WholeWord = 0, .MatchCase = 0, .Format = 0, \
    .ReplaceAll = 1
    RepeatFind
Wend

EditFind .Find = " ^l", .WholeWord = 0, .MatchCase = 0, \
.Direction = 1, .Format = 0
While EditFindFound()
    StartOfDocument
    EditReplace .Find = " ^l", .Replace = "^l", \
    .WholeWord = 0, .MatchCase = 0, .Format = 0, \
    .ReplaceAll = 1
    RepeatFind
Wend

End Sub