word如何批量删除文本框

09-09

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