[Mahavira]

Сработало вот что

Sub Del_WA()
Dim MySh As Shape

For Each MySh In ActiveDocument.Shapes
If MySh.Type = msoTextEffect Then
MySh.Delete
End If
Next MySh
End Sub

или msoTextBox для типа "надпись".

Благодарю!