As far as I'm aware autotext entries are associated with templates, not styles. You could start with this code:
[VBA]Dim atEntry As AutoTextEntry

For Each atEntry In ActiveDocument.AttachedTemplate.AutoTextEntries
Selection.TypeText atEntry.Name & vbTab & atEntry.Value & " " & vbCr
Next[/VBA]
Regards