Word 2019
先调出开发工具(不会的话看这里)
开发工具-宏-宏名输入“DeleteImage”。
点创建
代码输入
Sub DeleteImage()
For Each ishape In ActiveDocument.InlineShapes
ishape.Delete
Next ishapeFor Each ishape In ActiveDocument.Shapes
ishape.Delete
Next ishapeEnd Sub
类似于这样:
其中,InlineShape和Shape的区别详见
https://[......]