Question

您好，想请问如何用VBA批量删除word中文本框（保留文字）呢？可以详细把步骤告诉我吗？谢谢。

Answer 1

好办
打开word文件，点击“文件”->“另存为网页”->“(*.htm;*.html)”
打开保存过的网页文件(用IE打开)
文件->另存为->文本文件
文本文件就是你要的

VBA:
Sub deltextbox()
Selection.EndKey Unit:=wdStory
Dim s As Shape
For Each s In ThisDocument.Shapes
Selection.TypeText text:=s.TextFrame.TextRange.text
s.Delete
Next
End Sub

Answer 2

试试 文件批量处理百宝箱v10.0主界面-右上角-更多功能-拓展界面-文本行处理-doc中的功能。

Answer 3

方便快速解决的方案：
文本全选，然后在编辑菜单选择－选择性粘贴，在对话框里选择无格式粘贴，可以去年文本框！

Answer 4

文本框一般是浮动的，因此提取的文字放置在哪个位置是个比较麻烦的问题。

Answer 5

ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 120#, 27#, 72#, 63#).Select

四个 数字是坐标