设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 【已解决】求批处理在WORD文件后追加页码的方法 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 20329|回复: 4

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

[复制链接]
qd2024
发表于 2023-12-29 17:39:53 | 显示全部楼层 |阅读模式
本帖最后由 qd2024 于 2024-1-10 06:43 编辑

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

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


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


谢谢

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

回复

举报

wanghan519
发表于 2023-12-29 18:21:56 | 显示全部楼层
用的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()
复制代码
回复

举报

qd2024
 楼主| 发表于 2024-1-9 02:12:25 | 显示全部楼层
回复 2# wanghan519


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

举报

wanghan519
发表于 2024-1-9 03:08:48 | 显示全部楼层
本帖最后由 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技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

回复

举报

qd2024
 楼主| 发表于 2024-1-10 06:43:17 | 显示全部楼层
回复 4# wanghan519


    测试成功 谢谢
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 06:35 , Processed in 0.010473 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表