Dim app As Word.Application  
Dim oInlineShape As InlineShape
Set app = New Word.Application
With app.ActiveDocument
For Each oInlineShape In app.ActiveDocument.InlineShapes
   oInlineShape.Delete
Next
End With

Уважаемые форумчане поправьте код что не так ? как удалить все рисунки в активном документе Word ?

http://www.sql.ru/forum/1072223/udalit-risunok-v-word