Assuming we're talking excel autocorrect entries  here:
these two lines in a macro will get you a list  of entries and
replacements in columns A and B of a worksheet:

repl = Application.AutoCorrect.ReplacementList
Range(Cells(1, 1), Cells(UBound(repl), 2)) = repl

it's up to you to save this as a csv file, or to cut'n'paste it etc
to create a document.

If we're talking word autocorrect entries, then a macro in word with
these lines sort of works (I'm not Word vba literate so forgive if
it's not especially elegant):

For Each Item In Application.AutoCorrect.Entries
ActiveDocument.Content.InsertAfter Text:= _
Item.Name & ", " & Item.Value & vbLf
Next Item

Excel shares AutoCorrect entries  with the other Office apps.
Particularly if you want your output as a document, I'd ask this
question in a Word VBA list.

I was not sure whether Excel shared AutoCorrect entries  with Word, so I
did not step in. But now that I know, there is a very cool template
available at:
word.mvps.org/.../ExportAutocorrect.htm which will
backup all your AutoCorrect Entries and restore them as well.