有100个文件，如何批量提取所有文件的文件名、每个文件页数，求助大神！

我编写了下面的代码来实现此功能：

Option Explicit

Sub 扫描WORD文件()
    Dim fPath$, fName$, i&, wApp As Object
    '先打开一个WORD进程
    Set wApp = CreateObject("Word.Application")
    wApp.Visible = True '调试的时候可以看见WORD打开、关闭，发布的时候可以注释此行
    '开始扫描文件
    fPath = "i:\Temp\exp\" '指定文件夹，注意以\结尾
    fName = Dir(fPath & "*.doc?")
    i = ActiveSheet.UsedRange.Rows.Count '保存在当前工作的行
    While fName <> ""
        i = i + 1
        Cells(i, 1) = fName 'A列文件名
        With wApp.Documents.Open(fPath & fName)
            Cells(i, 2) = .BuiltinDocumentProperties(14) 'B列页数
            Cells(i, 3) = .BuiltinDocumentProperties(30) 'C列字数
            .Close
        End With
        fName = Dir
    Wend
    wApp.Quit
End Sub

执行后的表格如下：

感觉基本上能满足楼主要求，楼主可以适当添加标题、调整行列。

我最后在想，百度能否搜索到这样的帖子呢，于是进行了搜索，结果非常领我吃惊，搜索的第一条结果就够用了。

谢谢