求助统计文件夹内doc文件总页数vba代码

黄河西边故人

这个代码统计的不准，会少好多页，请大神帮忙

1. Private Sub CommandButton1_Click()
   
2. Dim d, p As Integer
   
3. Dim f, ff As Object
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. Set ff = fso.getfolder(ThisDocument.Path)
   
6. d = 0: p = 0
   
7. For Each f In ff.Files
   
8.     If f.Name <> ThisDocument.Name And Left(f.Name, 2) <> "~$" And f.Name Like "*.doc*" Then
   
9.         d = d + 1
   
10.         Documents.Open FileName:=ThisDocument.Path & "" & f.Name
    
11.         p = p + ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    
12.         ActiveDocument.Close False
    
13.     End If
    
14. Next f
    
15. MsgBox "总共统计了 " & d & " 个文件，总页数为 " & p & "页。", vbOKOnly, "结果"
    
16. End Sub
    

复制代码

一闪流溢

看这个