Option Explicit
'
Sub MultiAutoCorrectGenerator()
    Dim oDoc As Document
    Dim i As Integer
    Dim Wrong As Range
    Dim Right As Range
    Set oDoc = ActiveDocument
    oDoc.Tables(1).Cell(1, 1).Range.Select
    Selection.Collapse
    For i = 2 To oDoc.Tables(1).Rows.Count
        If oDoc.Tables(1).Rows(i).Cells(1).Range.Characters.Count > 1 Then
            Set Wrong = oDoc.Tables(1).Cell(i, 1).Range
            Wrong.End = Wrong.End - 1
            Set Right = oDoc.Tables(1).Cell(i, 2).Range
            Right.End = Right.End - 1
            AutoCorrect.Entries.Add Name:=Wrong, Value:=Right
        End If
    Next i
lbl_Exit:
    Set oDoc = Nothing
    Set Wrong = Nothing
    Set Right = Nothing
    Exit Sub
End Sub