参考：http://bbs.gxsd.com.cn/forum.php?mod=viewthread&tid=310040

近期需要将pdf转word并编辑使用，在使用工具转过之后，发现转出来的word全是一个个的小框，于是参考上述链接删除文本框。

在word2007中alt+F11。

赋值如下代码，保存，回到word并alt+F8，运行。

然后会报错：

不知为何，搜索未果，可能是word2003和word2007不一样吧。

但是虽然没有学过vb，但是这样的代码看一下还是能看出其大致作用的。

调试之后，做出如下处理：

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格式混乱，需重新整理格式，这里给出一个去除所有分节符的操作：

ctrl+F，在替换中做出如下操作：

其中^b表示的就是分节符，点击全部替换将去除所有分节符。

参考：https://plus.wps.cn/blog/p12970.html

单击工具栏 开始 下的 选择 ，在选择的下拉菜单当中选择“选择对象”，然后用鼠标选中所有要删除的文本框，然后就一次选中了，然后再右键删除或者键盘上delete就可以了。

还可以一次性把鼠标斜着拖曳，选择一个区域中所有的文本框。

如上图所示，可以看到，如果一个一个单独删除上面一排文本框是比较麻烦和浪费时间的。
而一次选中再删除就比较方便。

功能描述：

批量提取指定Word文档（docx格式）中所有文本框中的文本。

测试文件：

参考代码：

执行结果：