Удалить рисунок (с определенным именем) | MS Word - VBA

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

Здравствуйте Коллеги!

Прошу помочь с циклом (

For

) - удаление рисунков. Ситуация следующая: в документе имеются n - количество рисунков с одинаковым именем "Имя", необходимо их удалить. Попробовал написать следующий код но, он удаляет только первый рисунок.

Sub УЛАЛИТЬ_ШТАМП()
   'ActiveDocument.Shapes("Штамп").Select
   'selection.Delete
    
    Dim Картинка
    'Картинка = ActiveDocument.Shapes.Range("Штамп").Count
    '    For n = 1 To Картинка
    '        ActiveDocument.Shapes(n).Delete
    '    Next n
 
    Set Картинка = ActiveDocument.Shapes.Range("Штамп")
    For Each oShape In Картинка
        oShape.Delete
        'oShape.Select
        'selection.Delete
        Next oShape
End Su

Пожалуйста подскажите что, делаю не так. Спасибо!

Решение задачи: «Удалить рисунок (с определенным именем) | MS Word»

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

                                With ActiveDocument.Shapes
        For i = .Count To 1 Step -1
            If .Item(i).Name = "Штамп" Then .Item(i).Delete
        Next
    End With
                        