Automatically Formatting an ASCII File

by Allen Wyatt (last updated May 3, 2016)

Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: 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.

Do More in Less Time! Are you ready to harness the full power of Word 2013 to create professional documents? In this comprehensive guide you'll learn the skills and techniques for efficiently building the documents you need for your professional and your personal life. Check out Word 2013 In Depth today!