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