查了半天终于在csdn找到了方法
Tools->Macro->Macros,创建一个新的宏,比如叫DeletePics,然后在VBE 中输入如下代码
Sub DeletePics()
Dim myShape As Shape
For Each myShape In ActiveDocument.Shapes
myShape.Delete
Next
End Sub
我自己没有试过
或者是 myShape.Delete
运行这个宏命令会删除文档中所有图片。
查了半天终于在csdn找到了方法
Tools->Macro->Macros,创建一个新的宏,比如叫DeletePics,然后在VBE 中输入如下代码
Sub DeletePics()
Dim myShape As Shape
For Each myShape In ActiveDocument.Shapes
myShape.Delete
Next
End Sub
我自己没有试过
或者是 myShape.Delete
运行这个宏命令会删除文档中所有图片。