VBA Fields.Count возвращает 2 вместо 3

Question

Я пытаюсь обновить ссылки документа моего слова с помощью файла excel. я уже получил этот код из интернета

Dim fieldCount As Integer 
fieldCount = ActiveDocument.Fields.Count 

но его возвращение 2 вместо 3.

My link Settings which shows 3 Items but i only get 2 with the code above

Как я могу рассчитывать все элементы в окне ссылку, как мне нужно, чтобы обновить все их? Для меня логично, что счетчик должен быть равен 3 не 2.

Это потому, что первые 2 получили одинаковые настройки? Тот же Row, чтобы он распознал его как 1 элемент?

Мой полный код меняет первые 2, но оставляет 3-й как есть.

Пробовал до +1 цикл for, но элемент в не распознан.

Надеюсь, кто-то из этого сообщества может помочь мне с этим, как я на самом деле это нужно :)

Answer 1

Это может быть потому, что ваши поля находятся в другой части документа, в различных StoryRanges. Попробуйте следующую петлю, которая проходит через все StoryRanges и список числа полей в каждом из Range

Sub ListAllFields() 

    Dim SR As Range 
    For Each SR In ActiveDocument.StoryRanges 
     Debug.Print SR.Fields.Count 

    Next SR 
End Sub