Word - Borrar imágenes con macros

Sub BorrarImagenes()

'

' Macro1 Macro

' Macro grabada el 01/02/2011 por b.a

    On Error Resume Next

    Dim Contador As Integer

    Dim i As Integer

    Dim Nombre As String

    Contador = ActiveDocument.Shapes.Count

    For i = 1 To Contador

        Nombre = ActiveDocument.Shapes(i).Name

        If Err.Number = 0 Then

            ActiveDocument.Shapes(Nombre).Select

            Selection.ShapeRange.Delete

        Else

            Exit For

        End If

    Next

    Contador = ActiveDocument.Shapes.Count

    If Contador <> 0 Then BorrarImagenes

End Sub