怎样获取word文档内的图片后并删除图片

.如果真 (word对象.创建 (“Word.Application”, ) ＝ 假)
信息框 (“word对象创建失败！”, 0, , )
结束 ()
.如果真结束
word对象.写属性 (“visible”, 真)
Docs ＝ word对象.读对象型属性 (“documents”, ).对象型方法 (“open”, 取运行目录 () ＋ “/123.docx”)
InlineShapes ＝ Docs.读对象型属性 (“InlineShapes”, )
图形个数 ＝ 到整数 (InlineShapes.读数值属性 (“Count”, ))
调试输出 (“图形个数为：” ＋ 到文本 (图形个数) ＋ “个！”)
.如果真 (图形个数 ＜ 1)
信息框 (“该Word文档中没有图形！”, 0, , )
word对象.对象型方法 (“quit”, )
word对象.清除 ()
.如果真结束
.变量循环首 (图形个数, 1, -1, 计次)
InlineShapes.对象型方法 (“Item”, 计次).对象型方法 (“Delete”, ) ' (“Item”, 1) 表示文档中的第一张图片
调试输出 (“操作了第几次：”, 计次)
.变量循环尾 ()
Docs.方法 (“Save”, )
word对象.对象型方法 (“quit”, )
word对象.清除 ()