[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

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

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


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


谢谢
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

用的powershell,请小心测试
  1. $wd = New-Object -ComObject word.application
  2. gci -Recurse *.doc* | %{$d = $wd.Documents.Open($_.FullName);
  3.     $n = $_.BaseName+"【共"+[string]$d.ComputeStatistics(2)+"页】"+$_.Extension;
  4.     $d.Close();
  5.     ren $_ $n}
  6. $wd.Quit()
复制代码

TOP

回复 2# wanghan519


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

TOP

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

回复 3# qd2024


    从@idwma老师处抄来的第一句,如果需要在bat里执行powershell,加上这句
bat要保存为ascii编码
bat要放到doc目录里
  1. #@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
  2. $wd = New-Object -ComObject word.application
  3. gci -Recurse *.doc* | %{$d = $wd.Documents.Open($_.FullName);
  4.     $n = $_.BaseName+"【共"+[string]$d.ComputeStatistics(2)+"页】"+$_.Extension;
  5.     $d.Close();
  6.     ren $_ $n}
  7. $wd.Quit()
复制代码
1

评分人数

TOP

回复 4# wanghan519


    测试成功 谢谢

TOP

返回列表