autoshape problem

[dominik]

...have a lot of autoshapes and textboxes in document. How
can I remove them automaticly from doc (keyboard shortcut
or macro) thx...

 

[Graham Mayor]

Sub DeleteAutoshapes()
Dim oShp As Shape
For Each oShp In ActiveDocument.Shapes
oShp.Delete
Next oShp
End Sub

should do the trick (Ctrl+Z will undo if it is not exactly what you
intended)


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>