如何删除word文档中特别小的图片（肉眼很难发现）

文人慕

最近处理文档发现一个比较复杂的事，文档中网站添加了特别小的图片，有时候肉眼很难观察出来，这些图片的特别小，并且大小也不完全相同。请问如何批量删除这些无关的小图片，只删除这些小图片，其他的大图不删除。谢谢。

ming0018

把小于文字的图片删掉试试

cuanju

目测这些特别小的图片是网站加上的，它们的图片环绕方式均为浮于文字上方。如果有造成误删，请楼下高人回答~

=================================
Sub d()
Rem 删除环绕方式为浮于文字上方图片
    Dim arr()
    For Each oShp In ActiveDocument.Shapes
        ReDim Preserve arr(k)
        arr(k) = oShp.Name
        k = k + 1
    Next
    For j = 0 To UBound(arr)
        sName = arr(j)
        Set oShp = ActiveDocument.Shapes(sName)
        If oShp.WrapFormat.Type = wdWrapFront Then '浮于文字上方
            oShp.Delete
        End If
    Next
End Sub

文人慕

ming0018 发表于 2020-1-9 17:44
把小于文字的图片删掉试试

请求大咖帮帮忙，我这边还是不知道如何处理。

文人慕

cuanju 发表于 2020-1-9 18:33
目测这些特别小的图片是网站加上的，它们的图片环绕方式均为浮于文字上方。如果有造成误删，请楼下高人回答 ...

根据环绕方式来处理，的确是个好方法，不过可能造成别的误删，烦请老师再考虑考虑别的方法试试。

leikaiyi123

我以前也从下载的题中发现了这个问题，我是用下面代码删的，请参照：
Sub 删小嵌入式图() '删1.5*1.5的小嵌入式图
    For Each oinlineshape In ActiveDocument.InlineShapes
        If oinlineshape.Width <= 1.5 And oinlineshape.Height <= 1.5 Then
            oinlineshape.Delete
        End If
    Next
End Sub

kingtau

1. Sub 删除微小图片()
   
2. Dim p As InlineShape
   
3.     For Each p In ActiveDocument.InlineShapes
   
4.         If p.Width < 10 Or p.Height < 10 Then p.Delete
   
5.     Next
   
6. End Sub

复制代码

以上代码仅针对示例文档

thunor

这是一种图形，如果你将其还原，你就会发现这个图形本身并不小。查找这些小于特定数字的图片，并删除，用上面的代码或改一下就可以了。

thunor

这些图片全是inlineshape类型。代码很简单就不写了。