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

На прошлой неделе я получил письмо от читателя с вопросом:

Поскольку я несколько поостыл к изучению программирования на VBA, то помочь с решением сразу не мог и предложил задать этот вопрос на сайт RusFAQ.ru. Однако полученный совет (выделить весь текст сочетанием клавиш «Ctrl»+«A» и затем нажать клавишу «F9») не решал проблему, поскольку поля находились в надписях, а обновление применялось исключительно к выделенному тексту.

Сама по себе поставленная задача достаточно легка в реализации для тех, кто разбирается в программировании на VBA. Тем не менее, удалось "накропать" пару строчек кода для макроса, который позволяет обновить поля, находящиеся во всех надписях в документе.

Вот получившийся код:

Sub shUp()
Dim sh As Shape
For Each sh In ActiveDocument.Shapes
    sh.TextFrame.TextRange.Fields.Update
Next sh
End Sub

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Автоматическая запись макроса

Создание макроса из готового кода