发布网友
共1个回答
热心网友
Sub
test()
Dim
sha
As
Shape
For
Each
sha
In
ActiveDocument.Shapes
sha.TextFrame.TextRange.Delete
Next
End
Sub
打开工具-宏-VB编辑器,插入-模块,然后将上面的程序复制进去,点运行即可.