I am trying to use vba to create a new document that lists all of the autotext entries formated:

Autotext entry name

Autotext entry
___________________________________________________________

I have found the code below which lists all autocorrect entries but cannot seem to figure out how to do something similar with autotext. I would like the user to select a style and click a toolbar button to produce the associated autotext list.

Code for autocorrect:

[vba]Dim ACE As AutoCorrectEntry
Documents.Add
For Each ACE In Application.AutoCorrect.Entries
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
ActiveDocument.Paragraphs.TabStops(InchesToPoints(0.88)).Position = _
InchesToPoints(0.88)[/vba] [UVBA].[/UVBA]
~Oorang

Any help would be appreciated
Thanks
Dan