Доработка макроса обновления связей word и excel

Нужно доработать макрос обновления связей word и excel. Нашел его в Интернете, но у меня не работает. Связи с автором макроса нет.
Sub AutoOpen()
'
' Смена_источника_данных Макрос
'
Dim oFld As Field 'Поле
Dim OldFileName As String 'Старое имя файла
Dim NewFileName As String 'Новое имя файла
Dim FieldCode...