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

Rank: 3Rank: 3

帖子
162 
积分
220 
技术
0  
捐助
0  
注册时间
2022-7-9 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2023-8-4 08:18 | 只看该作者

[文本处理] 求批处理方法批量设置WORD页眉、页脚为0.5

有大量WORD文件需要设置页眉、页脚为0.5CM，求批处理命令，需要同时处理所有子目录下文件。
当前使用Microsoft® Word 2016MSO (版本 2307 Build 16.0.16626.20110) 32 位 版本。
谢谢。
收藏 分享

wanghan519

Rank: 2

帖子
124 
积分
181 
技术
14  
捐助
0  
注册时间
2023-5-30 
2楼
发表于 2023-8-4 09:38 | 只看该作者
不知道理解的对不对，用powershell
  1. $wd = New-Object -ComObject word.application

  2. dir *.doc* | % {$d=$wd.Documents.Open($_.FullName);$d.PageSetup.HeaderDistance=42.5;$d.PageSetup.FooterDistance=42.5;$d.Save();$d.Close()}

  3. $wd.Quit()
复制代码

TOP

qd2024

Rank: 3Rank: 3

帖子
162 
积分
220 
技术
0  
捐助
0  
注册时间
2022-7-9 
3楼
发表于 2023-8-4 09:50 | 只看该作者
回复 2# wanghan519
辛苦 但是没有成功，我上传了一些例子 帮忙看一下 感谢

链接：https://pan.baidu.com/s/1cFG_bSGz405NU2RWaKdEfg?pwd=8yp6
提取码：8yp6
--来自百度网盘超级会员V9的分享

TOP

wanghan519

Rank: 2

帖子
124 
积分
181 
技术
14  
捐助
0  
注册时间
2023-5-30 
4楼
发表于 2023-8-4 09:59 | 只看该作者
本帖最后由 wanghan519 于 2023-8-4 10:00 编辑

回复 3# qd2024


    上面的是页眉页脚那个距离，如果是指页边距，第二句应该改成
  1. dir *.doc* | % {$d=$wd.Documents.Open($_.FullName);$d.PageSetup.TopMargin=14.2;$d.PageSetup.BottomMargin=14.2;$d.Save();$d.Close()}
复制代码

TOP

qd2024

Rank: 3Rank: 3

帖子
162 
积分
220 
技术
0  
捐助
0  
注册时间
2022-7-9 
5楼
发表于 2023-8-4 10:30 | 只看该作者
回复 4# wanghan519


是的 我是要修改页眉和页脚  但是无论在根下 还是子目录  文件都没有被 更改

TOP

wanghan519

Rank: 2

帖子
124 
积分
181 
技术
14  
捐助
0  
注册时间
2023-5-30 
6楼
发表于 2023-8-4 11:06 | 只看该作者
本帖最后由 wanghan519 于 2023-8-8 03:46 编辑

回复 5# qd2024


    加上了处理子文件夹，改了数值
  1. $wd = New-Object -ComObject word.application

  2. dir -Recurse *.doc* | % {$d=$wd.Documents.Open($_.FullName);$d.PageSetup.HeaderDistance=14.2;$d.PageSetup.FooterDistance=14.2;$d.Save();$d.Close()}

  3. $wd.Quit()
复制代码

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14848 
积分
46044 
技术
854  
捐助
745  
注册时间
2008-6-9 
7楼
发表于 2023-8-4 11:14 | 只看该作者
回复 5# qd2024


    你用什么系统测试的，Win7? Win10? Win11? 看看你系统里面的PowerShell版本是什么
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

qd2024

Rank: 3Rank: 3

帖子
162 
积分
220 
技术
0  
捐助
0  
注册时间
2022-7-9 
8楼
发表于 2023-8-4 20:35 | 只看该作者
回复 7# Batcher


    Windows PowerShell
版权所有（C） Microsoft Corporation。保留所有权利。

安装最新的 PowerShell，了解新功能和改进！https://aka.ms/PSWindows

PS C:\Users\ykhqz>


用的是Win 11

TOP

qd2024

Rank: 3Rank: 3

帖子
162 
积分
220 
技术
0  
捐助
0  
注册时间
2022-7-9 
9楼
发表于 2023-8-4 20:39 | 只看该作者
回复 6# wanghan519


    测试后 文件没有被修改 麻烦帮忙看看什么原因

TOP

wanghan519

Rank: 2

帖子
124 
积分
181 
技术
14  
捐助
0  
注册时间
2023-5-30 
10楼
发表于 2023-8-5 08:50 | 只看该作者
本帖最后由 wanghan519 于 2023-8-5 10:41 编辑

回复 9# qd2024


    应该不是32位的问题，把报错信息发出来吧。呃，该不会没有cd到目标文件夹就直接运行代码了，那罪过就大了，可能把用户目录下的docx都改了。。。

TOP

返回列表