批量去掉文本框，保留文本框里面的内容和格式.doc

nuimqi

有个文档，里面所有的东东（包含文字、图片、表格）都是在文本框里面的，请教怎么批量批量去掉文本框，保留文本框里面的内容和格式
请高手指教，网上找了一下，实在找不到如意的。vba应该可以做到的。

duquancai

首先说明我这个代码“只能去除图文框而不是文本框”。我看了楼主的附件里面的大多数是图文框而不是楼主说的文本框（有表格那个是文本框）。
把所有的图文框全删了，并且把所有的内容全都收集到一起。
缺点:内容挤到一起了。
代码如下：
------------------
Sub 批量删除文档中的图文框但文字保留()
  
Dim frm As Frame

For Each frm In ActiveDocument.Frames

    frm.Delete
   
Next

End Sub

nuimqi

谢谢二楼的兄弟，那那个文本框怎么办呢？因为文档里面还是有很多表格

duquancai

将文档另存为RTF的格式，然后用Windows写字板打开，可以看到文本框去除了！

duquancai

Sub 删除文本框()
     Dim i As Shape
     For Each i In ActiveDocument.Shapes
         If i.Type = msoTextBox And i.Type = 17 Then
             i.TextFrame.TextRange.Select
             Selection.Copy
             i.Delete
             Selection.Paste
         End If
     Next
End Sub