获取WORD文件中,图片总数的问题
pcwak 2004-12-11 02:57:52 引用WORD对象
Dim i As Integer
Dim iCount As Integer
Dim objDoc As Document
Set objDoc = GetObject("c:\1.doc")
objDoc.Activate
iCount = 0
For i = 1 To objDoc.Shapes.Count
If objDoc.Shapes.Item(i).Type = 13 Then '判断是否是图片
iCount = iCount + 1
End If
Next i
MsgBox iCount
objDoc.Close
Set objDoc = Nothing
用上面的代码可以获取图片的数量,但问题来了,如果图片的版式是“嵌入型”就不能统计出来。怎么解决这个问题。
嵌入型:右键图片-->设置图片格式-->版式-->嵌入型