关于删除文档中的各式各样的图片

leedun

各位大神、前辈好，下面文档是网上下载的（为了减小体积删除了部分内容），文档每页被添加了各种类似图片的水印，有艺术字、浮于文字下方的图片、不能设置版式的图片，不知道还有没有其他类型的，
在本坛也看到了杜先生关于删除图片代码（帖子地址http://club.excelhome.net/thread-1405681-1-1.html），试着修改只做到了删除艺术字部分，
现求教各位大神、前辈给予指点，
要求删除类似水印的图片（要删除的图片样式放在了文档第一页），其它图片和文本框不需要删除，
谢谢！

leedun

Sub 删除水印图片()
    Dim i&, n&, S As Shape
    If ActiveDocument.Shapes.Count = 0 Then Exit Sub
    n = ActiveDocument.Shapes.Count
    For i = n To 1 Step -1
        Set S = ActiveDocument.Shapes(i)
        If S.Type = 13 And S.WrapFormat.Type = 3 Then    '图片，衬于文字下方
            S.Delete
        ElseIf S.Type = 15 Then    '艺术字
            S.Delete
        ElseIf S.Type = 17 And S.WrapFormat.Type = 3 Then    '文本框，衬于文字下方
            S.Delete
        End If
    Next
End Sub