Вставка замещающего текста из названия рисунка - VBA/Word

Формулировка задачи:

Добрый день, есть рисунки в документе, к которым добавлена нумерация с названиями, в виде

Рисунок 1 - Наименование рисунка

Необходимо перенести каждое наименование рисунка в свойство рисунка. Действие такое - правая кнопка по рисунку выбрать "Изменить замещающий текст" в поле "Описание" добавить абзац идущий после рисунка. Если это очень трудоемко, то сгодится и вставка счетчика в виде "Рисунок N". Пример с тем, что есть и должно быть прилагаю.

Решение задачи: «Вставка замещающего текста из названия рисунка»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Dim objShape As Word.InlineShape, c&
    For Each objShape In ThisDocument.InlineShapes
        c = objShape.Range.Start + 2
        With ThisDocument.Range(c).Find
             .Text = vbCr
             .Execute
             objShape.AlternativeText = ThisDocument.Range(c, .Parent.Start)
        End With
    Next
End Sub
                        