Автозамена в Ворде - VBA

Формулировка задачи:

есть в Ворде таблица к=|1 строка|=1234567 кд=дк=|1 строка|=3 марта 2018 г. в этом файле имеется код:

Option Explicit
'
Dim i As Long
Dim i2 As Long
Dim Строка_таблицы As String
Dim EntriesAddName As String
Dim EntriesAddValue As String
Dim Split_обрабатываемой_строки() As String
'
Sub AutoOpen()
'
'AutoOpen - макрос работает при открытии того документа Ворд, в котором присутствует данный макрос
'выполнить функцию
    Function_FileSave_AutoOpen
    '
End Sub
'
Sub FileSave()
'процедура срабатывает при нажатии на кнопку "Сохранить"
'MsgBox$ "FileSave"
'выполнить функцию
    Function_FileSave_AutoOpen
End Sub
'
Function Function_FileSave_AutoOpen()
'
'документ должен иметь таблицы, первая таблица документа должна иметь 3 столбца, 8 строк
    If ActiveDocument.Tables.Count > 1 And _
       ActiveDocument.Tables(1).Columns.Count = 3 And _
       ActiveDocument.Tables(1).Rows.Count = 8 Then
        For i = 1 To ActiveDocument.Tables(1).Rows.Count
            'два последних знака в строке таблицы отбрасываем
            Строка_таблицы = Left$(ActiveDocument.Tables(1).Rows(i).Cells(2).Range, (Len(ActiveDocument.Tables(1).Rows(i).Cells(2).Range) - 2))
            'Debug.Print Строка_таблицы
            Split_обрабатываемой_строки = Split(Строка_таблицы, "=")
            For i2 = 0 To UBound(Split_обрабатываемой_строки) - 1
                'условие, если первая и последняя буква <> "|" и длина не более 2 знаков, тогда ...
                If Right$(Split_обрабатываемой_строки(i2), 1) <> "|" And _
                   Left$(Split_обрабатываемой_строки(i2), 1) <> "|" And _
                   Len(Split_обрабатываемой_строки(i2)) < 3 And _
                   Len(Split_обрабатываемой_строки(UBound(Split_обрабатываемой_строки))) <> 0 Then
                    EntriesAddName = Split_обрабатываемой_строки(i2) & "="
                    EntriesAddValue = Split_обрабатываемой_строки(UBound(Split_обрабатываемой_строки))
                    Debug.Print EntriesAddName & " " & EntriesAddValue
                    With AutoCorrect
                        .Entries.Add Name:=EntriesAddName, Value:=EntriesAddValue
                    End With
                End If
            Next i2
        Next i
    End If
    '
End Function

задумано, что при открытии файла и при любом его сохранении на слова к= кд= дк= должна срабатывать автозамена, а именно то, что находится в конце строки, но как-то оно срабатывает не так как задумано и трудно сказать в какое время и какая возникает ошибка, где я лажаю? спасибо

Решение задачи: «Автозамена в Ворде»

textual
                            Листинг программы 
                        

                            Sub Удалить_все_автозаменыForEachItemInAutoCorrectEntries()
'
    Dim Item As Object
    For Each Item In AutoCorrect.Entries
        Item.Delete
    Next
    MsgBox$ "Список всех автозамен удалён"
    '
End Sub
                        