Question

如何批量读取文件（PDF或Word)页数并自动显示在文件名称中？

平时需要整理的文档（主要是PDF和Word)比较多，很多时候需要根据文档的页数来判断文档的内容和其他属性，但是文档本身的名称中不显示页数。求一个批处理命令，可以批量读取文件页数，并直接显示在文件名称中，开头或者结尾都可以。希望批处理能自动实现从图1到图2





Answer 1

可以使用 亿彩文档批量处理大师来实现。

步骤如下：

1.下载大师并安装

2. 选择文档类型，Word或者Pdf类型

3. 选择第20项的功能列表

4. 在第20项的功能列表的参数设置区中，勾选添加总页数，则批量处理时，自动在原文件名末尾添加该文档的总页数

Answer 2

不清楚你的实际文件/情况，仅以问题中的说明为据
复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起运行

/*&cls
@echo off
rem 获取word文档/doc文档的页数、字数、字符数、段落数和行数等信息
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
set "folderd=%~dp0"
if "%folderd:~-1%" equ "\" set "folderd=%folderd:~,-1%"
where /R "%folderd%" *.doc *.docx 2>nul|cscript -nologo -e:jscript "%~f0"
echo;%#% +%$%%$%/%@% %z%
pause
exit
*/
  
var fso=new ActiveXObject('Scripting.FileSystemObject');
var wordapp=null;
try{
    var wordapp=new ActiveXObject('Word.application');
}catch(e){
    WSH.StdErr.WriteLine('Microsoft Word is not installed');
    WSH.Quit();
}
wordapp.Visible=true;
wordapp.DisplayAlerts=false;
while(!WSH.StdIn.AtEndOfStream){
    var line=WSH.StdIn.ReadLine();
    var file=fso.GetFile(line);
    
    if(file.Name.substring(0,2) != '~$'){
        var doc=null;
        try{
            WSH.echo(line);
            var doc=wordapp.Documents.Open(file.Path);
            var s=[2,0,3,5,4,1,6];var p=[];
            for(var i=0;i<s.length;i++){
                p.push(doc.ComputeStatistics(s[i]));
            }
            WSH.echo(p.join(', '));
            doc.Close(true);
        }catch(e){
            WSH.StdErr.WriteLine("[cann't open]"+line);
        }
    }
}
wordapp.Quit();
WSH.Quit();

Answer 3

这个可以同时统计PDF或Word文档的页数

Answer 4

WORD可以，PDF有点难