我有一个文档，如何在word批量删除文本框但保留其中的文字内容，谢谢

cumulonimbus

我有一个文档，如何在word批量删除文本框但保留其中的文字内容，在百度找了很多方法试过都没用，希望各位能指点一下，文档已上传，谢谢

未忘初心

1. Sub Test()
   
2.     Dim shp As Shape, i As Integer
   
3.     For i = ActiveDocument.Shapes.Count To 1 Step -1
   
4.         Set shp = ActiveDocument.Shapes(i)
   
5.         Debug.Print shp.Name
   
6.         nr = nr & shp.TextFrame.TextRange.Text & vbCrLf
   
7.         shp.Delete
   
8.     Next
   
9.     ActiveDocument.Content.Text = nr
   
10. End Sub

复制代码

cumulonimbus

未忘初心 发表于 2018-10-19 17:25

大哥，有没有更简单的，非代码的方式，谢谢。
我并不是说这个不好，就是觉得太复杂了点。

cumulonimbus

未忘初心 发表于 2018-10-19 17:25

大哥，有没有更简单的，非代码的方式，谢谢。
我并不是说这个不好，就是觉得太复杂了点。