Office中国论坛/Access中国论坛

标题: 怎么统计文件的页数？ [打印本页]

---

作者: yanlj518    时间: 2023-6-2 10:44
标题: 怎么统计文件的页数？
批量导入word文年名，要同时导入每 个word的页数，不知代码怎么写，请高手指点！

---

作者: roych    时间: 2023-6-3 01:58
获取页数需要打开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格式方能处理。因此附件改为了相应格式。
[attach]64570[/attach]

---

作者: yanlj518    时间: 2023-6-3 10:38
非常感谢roych！我的工具引用用显示：丢失：Microsoft word 16.0 object Library
引用word 14.0显示冲突，我的是2010版office

---

作者: yanlj518    时间: 2023-6-3 10:43
c:\users\administator\destop\1.png

---

作者: yanlj518    时间: 2023-6-3 12:02
引用搞好了，非常感谢！就是运行有点慢，50个word文件要几分种

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3