Automatically Formatting an ASCII File with WordBasic

One of the biggest problems in formatting what was previously an ASCII file is modifying it so there are only hard returns at the end of paragraphs. Most ASCII files have a hard return at the end of every line of the file, and two hard returns at the end of every paragraph. If you have an ASCII file that is formatted like this, such as something you downloaded off the Internet, the following WordBasic macro will be invaluable. It formats an entire file so there are only hard returns at the end of paragraphs.

Sub MAIN
    EditFindClearFormatting
    EditReplaceClearFormatting
    Fmt("^p^p", "{|}")
    Fmt("^p", " {@}")
    Fmt(" {@}", " ")
    Fmt("{@}", " ")
    Fmt("{|}", "^p")
End Sub

Sub Fmt(FromWord$, ToWord$)
    StartOfDocument
    EditReplace .Find = FromWord$, .Replace = ToWord$, .WholeWord = 0, \
    .MatchCase = 0, .Format = 0, .ReplaceAll = 1
End Sub