word如何批量删除文本框

Question

如题所述

Answer 1

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 再运行。