以下的代码功能是：检查WORD中是否有图片的存在。
Dim n '图片变量
Dim PicNum1, PicNum2
PicNum1 = 0
PicNum2 = 0
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
PicNum1 = PicNum1 + 1
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
PicNum2 = PicNum2 + 1
Next n
MsgBox "InlineShapes有" & PicNum1 & "张;" & "Shapes有" & PicNum2 & "张"
上面能检查出图片的个数，但是却仍然有一个问题，那就是，当设置图片为“嵌入型”的时候，是一种情况，即图片的类型不同。设置为四周型等其它类型的时候，又是另外的情况。
