Question

VBA怎麼读取word的页码

如题，我有几百个word,我怎麼快速读取页码。

Answer 1

亲，代码如下：

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