Sub Demo() Dim Shp As Shape With ActiveDocument For Each Shp In .Shapes If Shp.Type <> msoPicture Then Shp.Delete Next End With End Sub