Sub cmdRemoveShapes_Click()
Set word_doc = Application.ActiveDocument
' Delete InlineShapes.
With word_doc.InlineShapes
Do While .Count > 0
.Item(1).Delete
Loop
End With
' Delete Shapes.
With word_doc.Shapes
Do While .Count > 0
.Item(1).Delete
Loop
End With
' Save the file.
End Sub