Удаление или выделение всех объектов WordArt в Word 2010 / VBA
 

Уважаемые знатоки!

Подскажите, пожалуйста, простую вещь - каким скриптом можно выделить или удалить все объекты WordArt в Word 2010 ?

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

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 для типа "надпись".

Благодарю!