下载的发现有很多底图，18000多张，怪不得那么大，打开速度也特慢，所以就编了段VBA代码把它们给删除了，保留有用的图片。
喜欢的就下吧。。。没分了，各位老大接济兄弟点：）
Sub 遍历图片()
'遍历图片，找出某样式的图片，轮个处理
Dim myShape As Shape
Dim i As Integer
MsgBox "共有" & ActiveDocument.Shapes.Count & "张图片"
For Each myShape In ActiveDocument.Shapes
'For i = 1 To ActiveDocument.Shapes.Count
If myShape.Type = 5 Then
myShape.Select
myShape.Delete
i = i + 1
End If
Next
End Sub
