This has been given before, I don't know how, - but check the archives.NM

autocorrect "backup" - cmcneill

my autocorrect backup macro (and install macro) - OldHandAtThis

Paste to normal.dot or whatever template you use to store your macros.

Note this macro resaves the autocorrect list as "TempAutoCorrectList" since all the phrases are deleted as they are copied into autocorrect so that your original list remains intact. 

Sub InstallAutoCorrect()
Dim DocName, ShortCut, LongPhrase, N: N = 1
ActiveDocument.SaveAs "TempAutoCorrectList"
DocName = ActiveDocument.FullName
Selection.WholeStory: Selection.Collapse
While N > 0
N = Selection.MoveEndUntil(cset:="|", Count:=wdForward)
StatusBar = N
If N = 0 Then
    ActiveDocument.Close wdDoNotSaveChanges
    Documents.Open DocName
    End
End If
ShortCut = Trim(Selection.Text)
StatusBar = ShortCut
Selection.Delete , Count:=2
Selection.MoveEndUntil cset:="|", Count:=wdForward
LongPhrase = Selection.Text
StatusBar = LongPhrase
Selection.Delete: Selection.EndKey unit:=wdLine, Extend:=wdExtend:
Selection.Delete 'Unit:=wdCharacter, Count:=1
AutoCorrect.Entries.Add Name:=ShortCut, Value:=LongPhrase
N = N - 1
Wend
End Sub

Note, when this macro runs, it will create a document that contains the entries in your autocorrect.  You will need to give this document a name.

Sub DumpAutoCorrect()
Dim TempString As String
A = AutoCorrect.Entries.Count: N = 1
MsgBox A & " autocorrect entries"
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
While A > 0
On Error Resume Next
Selection.TypeText AutoCorrect.Entries(N).Name & "|" _
    & AutoCorrect.Entries(N).Value & "|" & vbCr
On Error Resume Next
TempString = AutoCorrect.Entries(N).Name
A = A - 1: N = N + 1
StatusBar = N & " Autocorrect entries dumped! (" & TempString & ")"
Wend
End Sub 

Just back up the .acl file to your flash drive. - sm