批处理之家 - Powered by Discuz! Board

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

作者: qd2024 时间: 2023-12-29 17:39 标题: 【已解决】求批处理在WORD文件后追加页码的方法

本帖最后由 qd2024 于 2024-1-10 06:43 编辑

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

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

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

谢谢

作者: wanghan519 时间: 2023-12-29 18:21

用的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 时间: 2024-1-9 02:12

回复 2# wanghan519

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

作者: wanghan519 时间: 2024-1-9 03:08

本帖最后由 wanghan519 于 2024-1-9 03:14 编辑

回复 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 时间: 2024-1-10 06:43

回复 4# wanghan519

测试成功谢谢

欢迎光临批处理之家 (http://bbs.bathome.net/)