Word.Tips.Net Welcome toWord.Tips.Net

Helpful Links

Tips.Net Home
WordTips Home

Ask a Word Question
Make a Comment

Tips.Net Store

WordTips FAQ
WordTips Premium

Learn Access Now
Free Printable Forms

Beauty Tips
Car Tips
Cleaning Tips
College Tips
Cooking Tips
Excel2007 Tips
ExcelTips
Family Tips
Gardening Tips
Health Tips
Home Tips
Legal Tips
Money Tips
Organizing Tips
Pest Tips
Pet Tips
Wedding Tips
Word2007 Tips
WordTips

Advertise on the
WordTips Site

Newest Tips

Arranging Document Windows

Specifying a Backup Location

Controlling Chart Gridlines

Merging Table Cells

Collapsing and Expanding Subdocuments

Zooming With the Keyboard

Initiating a New Search

 

Formatting an ASCII Table with Spaces

Summary: When you get a text file from a program other than Word, tabular information may be formatted with nothing but spaces in between columns. You can easily convert such information to Word's native table structure by using the macro in this tip. (This tip works with Microsoft Word 97, Word 2000, Word 2002, Word 2003, and Word 2007.)

It is not uncommon in many word processors to format tables with spaces. Enough spaces are inserted between each column to align the first letter of each column. Word, however, includes a table editor, which provides more flexibility in formatting and working with tables. Converting ASCII tables originally formatted with spaces to Word tables can be time consuming. The following VBA macro will do the formatting automatically. It assumes that each line represents a different row in the table, and that anything beyond a single space represents a division between columns.

Sub SpacesToTable
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = " {2,}"
        .Replacement.Text = "^t"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.ConvertToTable _
      Separator:=wdSeparateByTabs, _
      Format:=wdTableFormatNone
End Sub

Before running the macro, select the text you want to convert. When you run this macro, you will get the same thing you would get if you selected the option from the Table menu and then chose Text to Table. This means your columns might look funky; they will definitely need to be resized. But the hard work of getting rid of all the spaces has been done for you.

Tip #781 applies to Microsoft Word versions: 97 | 2000 | 2002 | 2003 | 2007

Create Rock-Solid Lists! Bulleted and numbered lists can help make your writing clearer and easier to follow. If not done properly, however, they can be a nightmare to work with. Discover the ins and outs of Word's lists with this great reference available in two versions.
 
Check out Word Bullets and Numbering today!