怎么样判断Word文档中有没有图片?

Question

怎么样判断Word文档中有没有图片?

Answer 1

If ActiveDocument.Shapes.Count > 0 Then
   MsgBox "esit"
Else
   MsgBox "Document doesn't contain a shape"
End If
希望对你有帮助

Answer 2

Word里的图片包括两种（据我所知），楼上的漏掉了InlineShapes
If ActiveDocument.Shapes.Count + ActiveDocument.InlineShapes.Count > 0 Then
   MsgBox "esit"
Else
   MsgBox "Document doesn't contain a shape"
End If