批处理怎样批量删除word文档的页脚？

karmane · 发表于 2022-9-19 21:12:38

求一个批处理，可删除当前目录，以及子目录下所有*.doc 或 *.docx 文档的页脚，急。。。。。感谢！

flashercs · 发表于 2022-9-19 22:11:16

本帖最后由 flashercs 于 2022-9-19 23:47 编辑

<#*,:&cls
@echo off
cd /d "%~dp0"
powershell -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create((Get-Content -LiteralPath "%~f0" -ReadCount 0 | Out-String)))"
pause
exit /b
#>
$wordApp = New-Object -ComObject Word.Application -ErrorAction Stop
Get-ChildItem -Path .\*.doc, .\*.docx -Recurse | Where-Object { -not $_.PSIsContainer } | ForEach-Object {
$_ | Resolve-Path -Relative
try {
$doc = $wordApp.Documents.Open($_.FullName)
foreach ($section in $doc.Sections) {
foreach ($footer in $section.Footers) {
$null = $footer.Range.Delete()
}
}
} finally {
if ($doc) {
$doc.Close([ref]$true)
$doc = $null
}
}
trap {}
}
$wordApp.Quit()

复制代码

karmane · 发表于 2022-9-19 22:27:35

回复 2# flashercs

运行窗口报了异常，子目录文档的页脚还在呢。。。
[img]

[/img]

		自动登录	找回密码
密码			注册

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

[文件操作] 批处理怎样批量删除word文档的页脚？