怎么统计文件的页数？

yanlj518

批量导入word文年名，要同时导入每 个word的页数，不知代码怎么写，请高手指点！

roych

获取页数需要打开word文档，因此需要引入Microsoft Word库。参考代码如下：

1. Function getPages(ByVal strFileName As String) As Long
   
2.     Dim wd As New Word.Application
   
3.     Dim doc As Word.Document
   
4.     Dim lngPages As Long
   
5.     Set doc = wd.Documents.Open(strFileName)
   
6.     lngPages = doc.ComputeStatistics(2)
   
7.     getPages = lngPages
   
8.     doc.Close
   
9.     wd.Quit
   
10. End Function

复制代码

调用时需使用全路径（即f.path)。
此外，由于你的word文档是2007版本的，mdb文件属于2003版本格式，需要转为accdb格式方能处理。因此附件改为了相应格式。

yanlj518

非常感谢roych！我的工具引用用显示：丢失：Microsoft word 16.0 object Library
引用word 14.0显示冲突，我的是2010版office

yanlj518

c:\users\administator\destop\1.png

yanlj518

引用搞好了，非常感谢！就是运行有点慢，50个word文件要几分种