Printing a List of AutoCorrect Entries

The AutoCorrect feature in Word can be very helpful. There may be a time when you want to print a list of AutoCorrect entries, just so you are aware of what they are. There is no intrinsic command in Word to all the AutoCorrect entries like you can print AutoText entries. You can, however, use a macro to print your AutoCorrect entries:

Sub PrintAutoCorrect()
    Dim a As AutoCorrectEntry

    Selection.ParagraphFormat.TabStops.ClearAll
    Selection.ParagraphFormat.TabStops.Add Position:=72, _
      Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces

    For Each a In Application.AutoCorrect.Entries
        Selection.TypeText a.Name & vbTab & a.Value & " " & vbCr
    Next
End Sub

Before running this macro, make sure that you start with a new document. The macro sets the tab stop in the current paragraph, and then "types" each AutoCorrect entry in the system. When it is through running (it is very fast), you can print the list and then discard the document.