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

 

Printing AutoCorrect Entries

Summary: If you want to print a list of all the AutoCorrect entries in your document, Word doesn't provide a method. You can use the macro in this tip to create your own list for printing, however. (This tip works with Microsoft Word 97, Word 2000, Word 2002, Word 2003, and Word 2007.)

Word provides a way to print just about everything related to your document, except (oddly enough) your AutoCorrect entries. If you want to print them, you are forced to use a macro to accomplish the task. The following macro will create a document, list all the AutoCorrect entries, and format it:

Sub PrintAutoCorrect()
    Dim ACE As AutoCorrectEntry
    
    Documents.Add
    For Each ACE In Application.AutoCorrect.Entries
        Selection.TypeText ACE.Name & vbTab & ACE.Value & vbCrLf
    Next

    With ActiveDocument.PageSetup
        .Orientation = wdOrientLandscape
        With .TextColumns
            .SetCount NumColumns:=3
            .EvenlySpaced = True
            .LineBetween = True
        End With
    End With
    ActiveDocument.Paragraphs.TabStops.ClearAll
    ActiveDocument.Paragraphs.TabStops.Add Position:=InchesToPoints(1.25)
    Selection.HomeKey Unit:=wdStory
End Sub

When completed, you can print the document so you have a permanent record of your AutoCorrect entries.

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

Step Up and Take Control! Subscribers to WordTips know just how valuable a resource it is. WordTips Premium provides twice the number of exceptional, easy-to-understand tips every week in an ad-free newsletter, as well as substantial discounts on WordTips archives and e-books.
 
Check out WordTips Premium today!