Printing AutoCorrect Entries

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.