Microsoft Word Autocorrect Entries

[GP]

I need to extract the autocorrect entries to a file, how do I do that? I have a script for autotext entries:

Sub ExtractAutoText()
'
' ExtractAutoText Macro
' Macro created 1/14/2004 by
'
Dim Entry As AutoTextEntry

Documents.Add

For Each Entry In NormalTemplate.AutoTextEntries

' Turn bold formatting on and insert the AutoText name
Selection.Font.Bold = True
Selection.TypeText Text:=Entry.Name

' Turn bold formatting off and insert AutoText entry
Selection.Font.Bold = False
Selection.TypeParagraph
Entry.Insert Where:=Selection.Range, RichText:=True
Selection.Range.Select
Selection.TypeParagraph

' Insert a blank line between entries
Selection.TypeParagraph
Next

End Sub