Macro para eliminar todas las imágenes de un documento word

Código:

Sub EliminarImagenes()
    Dim i As Long
    For i = ActiveDocument.InlineShapes.Count To 1 Step -1
        ActiveDocument.InlineShapes(i).Delete
    Next i
    For i = ActiveDocument.Shapes.Count To 1 Step -1
        ActiveDocument.Shapes(i).Delete
    Next i
End Sub