请教：如何统计Word文档中的图片张数？

Question

如题。比方说，我现在有2个文件夹，里面都有若干个Word文档，我想统计这2个文件夹中所有文档里图片的总张数。
最好就是选中所需文件夹，然后点击一个按钮，就直接统计出来了，这样方便些。请问如何用VB编写，谢谢指教！

Answer 1

http://download.csdn.net/detail/veron_04/1627134

Answer 2

在Word 2003里面：
开始记录宏，
在右边垂直滚动条下方两个双上下箭头的中间的小透镜上点左键，选择“按图形浏览”，再点击双向下箭头，……
结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

Answer 3

照您的方法试了，但是Normal - ThisDocument (代码)跳出来，里面是空的，什么都没有？
您能把VBA代码复制给我看一下吗？
Word中随便放几张图片就可以了～

Answer 4

将WORD另存为HTML，在同名的文件夹下，就是所有的图片。
有多少个文件就是多少个图片。

Answer 5

谢谢vansoft，试过了，不过有问题，有多少个文件不能代表有多少个图片。
我有一个图片，改变过大小，另存为HTML时，文件夹中有2张图片，一张是原图，还有一张是改变大小后的图～还有别的解决方式么？

Answer 6

Sub Macro1()
'
' Macro1 Macro
' 宏在 2011-11-10 由 [email protected] 录制
'
    Application.Browser.Target = wdBrowseGraphic
    Application.Browser.Next
    Application.Browser.Next
    Application.Browser.Next
    Application.Browser.Next
    Application.Browser.Previous
    Application.Browser.Previous
    Application.Browser.Previous
End Sub

Answer 7

Activedocument.InlineShapes.Count
为当前Word文档中图片的总数。

Answer 8

这是“宏”里的句子，在VB中运行不了，提示错误！
在VB中怎么弄Dim WordAPP As Object
Dim wbk
Set WordAPP = GetObject("", "Word.Application")
Set wbk = WordAPP.Documents.Open("F:\Doc1.docx")然后怎么弄～

Answer 9

Private Sub Command1_Click()
Dim WordAPP
Dim Doc
Set WordAPP = CreateObject("Word.Application")
Set Doc = WordAPP.Documents.Open("F:\Doc1.docx")
Debug.Print Doc.InlineShapes.Count
Doc.Close
Set Doc = Nothing
Set WordAPP = Nothing
End Sub