哪个软件 可以 批量统计 word的 页数

亲，这个只用用VBA了。

请查收附件。将此文件和你要批量统计的Word文件放在同一个文件夹中，然后打开本文件，点击统计的按钮即可。

模拟演示结果如下图：

Private Sub TJYS_Click()

Dim d, p As Integer

Dim f, ff As Object

Set fso = CreateObject("ScriptingFileSystemObject")

Set ff = fsogetfolder(ThisDocumentPath)

d = 0: p = 0

For Each f In ffFiles

    If fName <> ThisDocumentName And Left(fName, 2) <> "~$" And fName Like "doc" Then

        d = d + 1

        DocumentsOpen FileName:=ThisDocumentPath & "\" & fName

        p = p + ActiveDocumentBuiltInDocumentProperties(wdPropertyPages)

        ActiveDocumentClose False

    End If

Next f

MsgBox "总共统计了 " & d & " 个文件，总页数为 " & p & "页。", vbOKOnly, "结果"

End Sub

如下：

功能：获取当前工作簿的所有sheet表的打印页码数量

Sub 页码()

    Dim a

    I = 1

    SheetsAdd After:=Sheets(SheetsCount)

    ActiveSheetName = "页码"

    For Each sht In Sheets

        shtActivate

        a = ExecuteExcel4Macro("GetDocument(50)")

        Sheets("页码")Cells(I, 1) = a

        I = I + 1

    Next

End Sub

Sub LinesOfPage()

'方法很简单，就是数

Dim PageNo As Integer, Lines As Integer, MovedLines As Integer

'先确定现在的页码

PageNo = SelectionInformation(wdActiveEndAdjustedPageNumber)

'行计数清零

Lines = 0

Do

'向上挪一行，如果到头了没挪动或挪到上一页去了就停止

If SelectionMove(wdLine, -1) = 0 Or PageNo <> SelectionInformation(wdActiveEndAdjustedPageNumber) Then Exit Do

'还在同一页行数加1，继续挪

Lines = Lines + 1

Loop

'向下挪回开始的位置

SelectionMove wdLine, Lines

Do

'现在开始向下挪，，如果到尾了没挪动或挪到下一页去了就停止

If SelectionMove(wdLine, 1) = 0 Or PageNo <> SelectionInformation(wdActiveEndAdjustedPageNumber) Then Exit Do

'还在同一页行数加1，继续挪

Lines = Lines + 1

Loop

'最后Lines就是这页的行数

End Sub

以上就是关于哪个软件 可以 批量统计 word的 页数全部的内容，包括:哪个软件 可以 批量统计 word的 页数、VBA取得EXCEL文件所有SHEET的打印页数、如何在word中使用VBA得出每一页都多少行文字啊等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！