不打开word文档，获取页数【不能百分百准确】

loquat

1. Function GetPagesCount(ByVal flPath As String) As Integer
   
2. Dim fso As Object, fl As Object, shl As Shell32.Shell
   
3. Dim fdPath$, flName$, i&, shfd As Shell32.Folder
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. Set fl = fso.GetFile(flPath)
   
6. fdPath = fl.ParentFolder.Path
   
7. flName = fl.Name
   
8. Set shl = New Shell
   
9. Set shfd = shl.NameSpace(fdPath)
   
10. For i = 0 To 300
    
11.     If Left(shfd.GetDetailsOf(0, i), 1) = "页" Then  'XP中为"页数"，Win7中为"页码范围"，所有直接查找"页"
    
12.         GetPagesCount = shfd.GetDetailsOf(shfd.Items.Item(flName), i)
    
13.         Exit Function
    
14.     End If
    
15. Next i
    
16. End Function

复制代码

loquat

为何标明不能百分百准确
因为通过shell获取的页数不一定准确
获取准确页数的方法，要么打开文档
要么用API
对于2003文档格式要用复合文档API
对于新版文档格式，要用Open XML SDK

loquat

2年之后再次补充
实际上最稳妥的方法只有com打开，然后获取
2003文档，使用复合文档API获取的跟shell获取的也是一样的
2007以上，使用open xml sdk获取的跟shell获取的还是一样的
而获取的这个值是不具备参考价值的，研究了一大圈，总结就是所以本帖没有任何意义

当然我目前研究的结果仅限于读取特定的流，并没有尝试重新解析，重新解析的话应该能得到比较正确的数据
但是要做好，工作量太大，特别是要保证效率

小花鹿

我觉得吧，任何不能保证结果百分百正确的方法都没有意义，VBA代码首先要保证的是结果正确，然后才去考虑效率问题

loquat

结论前面也说了，保证准确的只有打开获取。
自己解析难度太大，吃力不讨好

413191246se

支持 loquat 老师！就是太高端了，我等小菜鸟只能仰望。