2024年1月2日发(作者：)

龙源期刊网

Word中如何批量去除文本框

作者：

来源：《电脑报》2018年第46期

同事前来求助，图1所示的文档，其中有许多文本框，同事希望将这些文本框删除，但仍然保留其中的文字内容。在“开始”选项，在“编辑”功能组依次选择“选择→选择窗格”，此时会显示当前文档中所有的文本框，按住Ctrl键即可批量选择文本框，但这样删除会将包括文字在内的内容也一起删除，除了手工操作之外，有没有更简单高效的实现方法呢？

1.借助写字板实现转换

按下“Ctrl+A”组合键全选文档，按下“Ctrl+C”组合键将它复制到剪贴板；打开写字板，按下“Ctrl+V”组合键粘贴内容，很快就可以看到图2所示的纯文字效果，但保留了原来的格式，此时会出现许多空白段落，看起来很不美观。

接下来只要将它粘贴回Word，按下“Ctrl+H”组合键打开替换对话框，查找“^p^p”并替换为空就可以了。

2.借助VBA代码实现转换

其实也可以借助VBA代码完成这一导出任务，打开汇总工作簿，按下“Alt+F11”组合键，打开Microsoft Visual Basic for Applications编辑器窗口，依次选择“插入→模块”，在右侧窗格插入一个空白模块，在这里手工输入或粘贴如下代码：

Sub test（）

Dim shp As Shape， i As Integer

For i = To 1 Step -1

Set shp = （i）

nr = nr & & vbCrLf

Next