Pour cela, il faut une petite macro :

Sub InsertAutoCorrectEntries()
Dim ACE As AutoCorrectEntry

' Create new document.
Documents.Add
' Iterate through AutoCorrect entries.
For Each ACE In Application.AutoCorrect.Entries
' Insert each entry name and its value on a new line.
Selection.TypeText ACE.Name & vbTab & ACE.Value & " " & vbCr
Next
' Format document for three columns.
With ActiveDocument.PageSetup.TextColumns
.SetCount NumColumns:=3
.EvenlySpaced = True
.LineBetween = True
.Width = InchesToPoints(1.67)
.Spacing = InchesToPoints(0.5)
End With
' Set TabStop for all three columns.
ActiveDocument.Paragraphs.TabStops(InchesToPoints(0.88)).Position = _
InchesToPoints(0.88)
End Sub

source : KB Microsoft