咨询：如何在SAS VA中自动统计报表的总页数？

针对不同格式的报表，有多种自动化统计页数的实操方案，可直接用于批量获取报表概览：

PDF报表 #

命令行批量处理 #

用pdfinfo工具（多数Linux/macOS默认预装，Windows可通过包管理器安装）：

• 单文件统计：

pdfinfo your_report.pdf | grep Pages

输出示例：Pages: 24，直接提取数字即可。

• 文件夹内所有PDF批量统计：

for file in *.pdf; do
  echo "$file: $(pdfinfo "$file" | grep -oP 'Pages:\s+\K\d+')"
done

Python脚本（适合集成工作流） #

依赖PyPDF2库，先执行pip install PyPDF2安装：

from PyPDF2 import PdfReader
import os

def count_pdf_pages(folder_path):
    for filename in os.listdir(folder_path):
        if filename.endswith('.pdf'):
            reader = PdfReader(os.path.join(folder_path, filename))
            print(f"{filename}: {len(reader.pages)} 页")

# 替换为你的报表文件夹路径
count_pdf_pages('./report_folder')

Excel报表（统计打印页数） #

Excel无统一"总页数"概念，可统计各工作表的打印页数，用VBA脚本：

Sub CountPrintPages()
    Dim ws As Worksheet
    Dim totalPages As Integer
    totalPages = 0
    For Each ws In ThisWorkbook.Worksheets
        totalPages = totalPages + ws.PageSetup.Pages.Count
        Debug.Print ws.Name & ": " & ws.PageSetup.Pages.Count & " 页"
    Next ws
    Debug.Print "总打印页数: " & totalPages
End Sub

按Alt+F11打开VBA编辑器，粘贴后运行即可在立即窗口查看结果。

Word报表 #

PowerShell脚本（Windows） #

$word = New-Object -ComObject Word.Application
$doc = $word.Documents.Open("C:\reports\your_report.docx")
Write-Host "$($doc.Name): $($doc.ComputeStatistics(2)) 页"
$doc.Close()
$word.Quit()

参数2对应Word内置的页数统计常量，结果为精准打印页数。

批量概览导出 #

可将统计结果输出为CSV文件，方便后续整理：

# PDF批量统计导出CSV
echo "文件名,页数" > report_overview.csv
for file in *.pdf; do
  pages=$(pdfinfo "$file" | grep -oP 'Pages:\s+\K\d+')
  echo "$file,$pages" >> report_overview.csv
done

内容的提问来源于stack exchange，提问作者Tomáš Ulrich