xxxxxxxxxx
'Way 1:
Dim i As Long
With ActiveDocument
For i = .Shapes.Count To 1 Step -1
With .Shapes(i)
If .Type = msoAutoShape Then .Delete
End With
Next i
End With
'Way 2:
For i = ActiveDocument.Shapes.Count To 1 Step -1
ActiveDocument.Shapes(i).Delete
Next i
'Way 3:
Dim i As Long
With ActiveDocument
For i = .Shapes.Count To 1 Step -1
With .Shapes(i)
If .Type = msoAutoShape Then .Delete
End With
Next i
End With