[文件操作] 【已解决】求批处理在WORD文件后追加页码的方法

qd2024

想在.docx或.doc文件 现有文件名后追加文件大同小异数。

比如原文件名为     批处理之家.docx     执行 批处理命令后   变为   批处理之家【共23页】.docx   


“【】”为固定附号     要支持子目录。


谢谢

wanghan519

用的powershell，请小心测试

$wd = New-Object -ComObject word.application
gci -Recurse *.doc* | %{$d = $wd.Documents.Open($_.FullName);
    $n = $_.BaseName+"【共"+[string]$d.ComputeStatistics(2)+"页】"+$_.Extension;
    $d.Close();
    ren $_ $n}
$wd.Quit()
复制代码

qd2024

回复 2# wanghan519


    谢谢 我放在BAT里不 没实现啊  求帮忙 谢谢

wanghan519

回复 3# qd2024


    从@idwma老师处抄来的第一句，如果需要在bat里执行powershell，加上这句
bat要保存为ascii编码
bat要放到doc目录里

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$wd = New-Object -ComObject word.application
gci -Recurse *.doc* | %{$d = $wd.Documents.Open($_.FullName);
    $n = $_.BaseName+"【共"+[string]$d.ComputeStatistics(2)+"页】"+$_.Extension;
    $d.Close();
    ren $_ $n}
$wd.Quit()
复制代码

qd2024

回复 4# wanghan519


    测试成功 谢谢