求助如何获取文件夹下所有文档的页数？

yuhan4488

参考前面老师的代码，提取word文件名和页码数

1. Sub tqym()
   
2. Application.ScreenUpdating = False
   
3.       fp$ = ThisWorkbook.Path & ""   '路径
   
4.       fn$ = Dir(fp & "*.doc*")
   
5.       With CreateObject("word.application")
   
6.       Do While fn <> ""
   
7.            .Documents.Open (fp & fn)
   
8.            i = i% + 1
   
9.            Cells(i, 1) = fp & fn    '文件路径及名字
   
10.            Cells(i, 2) = .ActiveWindow.Panes(1).Pages.Count  '页数
    
11.            .Documents.Close False
    
12.             fn = Dir
    
13.       Loop
    
14.            .Quit
    
15.       End With
    
16. End Sub

复制代码