Automatically Formatting an ASCII File

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 macro will be invaluable. It formats an entire file so there are only hard returns at the end of paragraphs.

Sub ConvertASCII()
    Fmt "^p^p", "{|}"
    Fmt "^p", " {@}"
    Fmt " {@}", " "
    Fmt "{@}", " "
    Fmt "{|}", "^p"
End Sub

Sub Fmt(sFromWord, sToWord)
    Set myRange = ActiveDocument.Content
    myRange.Find.ClearFormatting
    myRange.Find.Execute FindText:=sFromWord, _
      ReplaceWith:=sToWord, MatchCase:=0, _
      Replace:=wdReplaceAll
End Sub

You should run the ConvertASCII macro. It calls the Fmt macro several times to replace various combinations of return characters to get toward the desired result.