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

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

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

本帖最后由 flashercs 于 2022-9-19 23:47 编辑
  1. <#*,:&cls
  2. @echo off
  3. cd /d "%~dp0"
  4. powershell -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create((Get-Content -LiteralPath \"%~f0\" -ReadCount 0 | Out-String)))"
  5. pause
  6. exit /b
  7. #>
  8. $wordApp = New-Object -ComObject Word.Application -ErrorAction Stop
  9. Get-ChildItem -Path .\*.doc, .\*.docx -Recurse | Where-Object { -not $_.PSIsContainer } | ForEach-Object {
  10.   $_ | Resolve-Path -Relative
  11.   try {
  12.     $doc = $wordApp.Documents.Open($_.FullName)
  13.     foreach ($section in $doc.Sections) {
  14.       foreach ($footer in $section.Footers) {
  15.         $null = $footer.Range.Delete()
  16.       }
  17.     }
  18.   } finally {
  19.     if ($doc) {
  20.       $doc.Close([ref]$true)
  21.       $doc = $null
  22.     }
  23.   }
  24.   trap {}
  25. }
  26. $wordApp.Quit()
复制代码
微信:flashercs
QQ:49908356

TOP

回复 2# flashercs


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

TOP

返回列表