图片

Word 2019

先调出开发工具（不会的话看这里）

开发工具-宏-宏名输入“DeleteImage”。

点创建

代码输入

Sub DeleteImage()

For Each ishape In ActiveDocument.InlineShapes
ishape.Delete
Next ishape

For Each ishape In ActiveDocument.Shapes
ishape.Delete
Next ishape

End Sub

阅读更多