批量删除word文本框代码

Word文档怎么一次性全部选中删除多个形状或文本框?电脑开的程序太多，插入文本框过的时候，不小心插入了多个文本框，另一个是插入了太多的形状，批量删除方法如下:
        　　第一步、在开始菜单界面，在“编辑”功能区，点击“选择”，然后点击下拉菜单中的“选择对象”
　　

      第二步、拖动鼠标选中，希望删除的所有形状，放开鼠标后，形状会被全部选中
        　　

      第三步、全部选中后，按Delete键(非Del键)删除即可
提醒：如果是需要删除部分文本框而不是全部的话，可以用Ctrl+鼠标左键选中，再按delete键删除

如果是只需要删除文本框而保留其中的文本：
以下宏代码，自动清除Word当中的全部的文本框、图文框，在Word 2010当中测试通过：  
Sub 删除全部文本框() '
' 删除全部文本框，保留文字
'
    Dim i As Shape
    For Each i In ActiveDocument.Shapes       i.ConvertToFrame     Next
    Dim ii As Frame
    For Each ii In ActiveDocument.Frames        ii.Delete     Next  
' 取消所有框线
' ------------注：若文章当中存在有用的框线，请删除下边这几句---------     Selection.WholeStory
    With Selection.ParagraphFormat
      .Borders(wdBorderLeft).LineStyle = wdLineStyleNone       .Borders(wdBorderRight).LineStyle = wdLineStyleNone       .Borders(wdBorderTop).LineStyle = wdLineStyleNone       .Borders(wdBorderBottom).LineStyle = wdLineStyleNone       .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone     End With
' ------------注：若文章当中存在有用的框线，请不要执行上边这几句---------  
End Sub  
使用方法：
在Word中按“Alt+F11”，将上边的那一大段宏复制/粘贴进去，保存即可。 执行则按“Alt+F8”，选择“删除全部文本框”，点“运行”。 如果提示错误，则删除代码i.ConvertToFrame 再运行。