Изменение связей с файлами

[DJTreeno]

Доброго всем времени суток!

Вот пришла в голову идея сделать подпрограмму для смены связей с файлами, как если бы мы вошли в Подготовить ->Изменить ссылки на файлы. Ниже макрос как я это вижу:

Option Explicit
Public Direcory1 As String
Public Direcory2 As String

Sub ЗаменаСвязей()

Dim Message1, Title1
Message1 = "Путь к старому файлу" ' Set prompt.
Title1 = "Ввод"
Direcory1 = InputBox(Message, Title)

Dim Message2, Title2
Message2 = "Путь к новому файлу" ' Set prompt.
Title2 = "Ввод"
Direcory2 = InputBox(Message, Title)

Dim L as Word.Links 'нет такого в VBA(((

For Each L in ActiveDocument.Links 'нет такого в VBA(((
If L.LinkFormat.SourceFullName = Direcory1 Then
L.LinkFormat.SourceFullName = Direcory2
End If

Next L
End Sub

Дело в том что, если L определить как field, то ворд не видит поля которые находятся в колонтитулах или в формулах колонтитулов (например такая формула: {={ PAGE } - { LINK Excel.Sheet.8 "C:\\Documents\\1.xlsm" "Лист1!R2C5" \a \f 4 \r \* MERGEFORMAT} \* MERGEFORMAT }.

Я перерыл весь интернет, но не нашел ответа как явно обратиться к связям, а через поле - это как-то некорректно. Хотя может надо указать что поле находится в колонтитуле и в формуле.

Интересно как же все-таки это сделать?

[DJTreeno]

Т.е. если написать:

Dim F
F = ActiveDocument.Fields.Count

То F = 0, хотя у меня имеется два поля со связями