Заменить текст в универсальной выноске

До объекта добралась :

For Each ent In objSelectionSet
If ent.ObjectName = “mcsDbObjectNotePosition” Then

Подскажите как обратиться к содержимому верхней и нижней полки (Text и Footer)?

Вы же тут это делали.

Установка выноски из Excel1.zip (18,2 КБ)