Deleting text boxes from ALL of the document

[emozley]

Hi,

I've found a macro which deletes text boxes from a document however if the text box is inside a drawing place holder then it leaves them. Is there any way of telling the macro to still delete them?

Sub RemoveTextBox1()
Dim shp As Shape
For Each shp In ActiveDocument.Shapes
If shp.Type = msoTextBox Then shp.Delete
Next shp
End Sub

Thanks very much

Ed

 

[macropod]

Hi Ed,

Try:

Sub RemoveTextShapes()
    Dim shp As Shape
    For Each shp In ActiveDocument.Shapes
        If shp.TextFrame.HasText = True Then shp.Delete
    Next shp
End Sub

Cheers

[MS MVP - Word]