发布时间：2018年04月10日 22:39:45分享人:摇风似醉酒来源:互联网12
以下宏代码，自动清除Word当中的全部的文本框、图文框，在Word 2003当中测试通过：
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”，选择“删除全部文本框”，点“执行”
爱华网本文地址 » http://www.aihuau.com/a/25101013/177627.html
更多阅读
Word文档如何添加删除线——简介怎样给Word文档添加删除线，添加单条删除线，添加两条删除线本经验说明：小编使用的是2013版本的office 的word，其它版本的word可能有些差异，请根据实际版本来进行操作。Word文档如何添加删除线——工具/
如何只禁用USB存储设备而不禁用USB键盘鼠标？——简介企业局域网中经常需要限制电脑USB端口的使用，一是为了防止电脑中的文件被泄漏，二是保护电脑不受U盘病毒的威胁。虽然通过修改注册表可以达到禁用USB端口的目的，可是如果电脑数量多，不
如何删除桌面删除不了的文件，如何强行删除文件——简介有时候电脑的一些图标删除不掉，一些文件夹在删除过程中就显示有东西在使用，不让删除，那我们做的就是重启电脑，有些还要重新做系统来完成。其实有更为简单的方法。如何删除桌面删除
相信经常用word的朋友都遇到过这种情况：打开之前辛辛苦苦制作的word文档的时候，提示文件损坏无法打开。郁闷的要跳楼。今天就介绍一个方法来修复损坏的word文档，下面是具体的步骤。Word 2003文件损坏而无法打开的修复方法——步骤/方法
word输入文字时光标后的字会自动删除怎么回事？——简介在word文档编辑文字的时候，光标后的文字会自动删除，这是怎么回事呢？这可能是我们不小心按了“insert”键所造成的。然而好多人不知道结束这种状态，甚是苦恼。在这里小编给大家介绍两
爱华网