Обновление связанных полей в колонтитулах

[bdfy]

Есть вот такой вот документ. В колонтитуле рамка (в виде таблицы), в таблице текстовая строка, связанная с екселем.
см стр 4-5 (текст КП.1-43 01 03.17.41.31)
Перепробовал следующее:

  Dim D As Word.Document, R As Word.Range
    Set D = Word.ActiveDocument
D.PrintPreview
D.ClosePrintPreview

При этом в параметрах печати стоят галки "обновлять поля перед печатью", "обновлять связанные данные перед печатью".
Пробовал менять ссылку с "по запросу" на "авто".

    For Each R In D.StoryRanges
         Do
            R.Fields.Update
            R.Fields.Unlink
            Set R = R.NextStoryRange
        Loop While Not (R Is Nothing)
    Next R

Не обновляет поля в колонтитулах

   For Each sec In D.Sections
        For Each f In sec.Footers
            If f.Exists Then
            For Each shp In f.Shapes
                With shp.TextFrame
                    If .HasText Then
                        shp.Select
                        Debug.Print "text " & .TextRange.text
                       .TextRange.Fields.Update
                    End If
                End With
              Next shp
            End If
            Next f
    Next sec

Аналогично не обновляет
до самой надписи удалось добраться один раз через запись макроса
Selection.HeaderFooter.Shapes("Grou p 22").Select
но понятней не стало
Поиск и замена тоже не работают для этого элемента.
Так как программно обновить или прописать эту надпись ?

[bdfy]

http://programmersforum.ru/showthrea...F2%F3%EB%E0%F5

    '1. Проходимся по каждому разделу.
    For Each mySection In D.Sections
    
        '1.1. Проходимся по верхнему колонтитулу.
        'Проходимся по каждому виду верхнего колонтитула.
        'Есть 3 вида колонтитулов.
        For Each myHeaderFooter In mySection.Headers
            myHeaderFooter.Range.Fields.Update
        Next myHeaderFooter
        
        '1.2. Проходимся по нижнему колонтитулу.
        'Проходимся по каждому виду нижнего колонтитула.
        For Each myHeaderFooter In mySection.Footers
            myHeaderFooter.Range.Fields.Update
        Next myHeaderFooter
        
    Next mySection

тоже не работает