如何用vba批量删除word中插入的图片（占位符）

zzpsx

如何用vba批量删除word中插入的图片.zip (13.48 KB, 下载次数: 5)

2024-6-28 19:18 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub test()
    Dim shp

    With ActiveDocument
        For Each shp In .Shapes
            If shp.Type = msoPicture Then shp.Delete
        Next
        For Each shp In .InlineShapes
            If shp.Type = 4 Then shp.Delete
        Next
    End With
End Sub

batmanbbs

zds0616

貌似通配符也可以查找选择图片

A00喻老师

Sub 删除所有图片()
Dim p As InlineShape

Set d = ActiveDocument
  For Each p In d.InlineShapes
      p.Delete
   Next
End Sub