Board logo

标题: [文件操作] 批处理怎样批量删除word文档的页脚? [打印本页]

作者: karmane    时间: 2022-9-19 21:12     标题: 批处理怎样批量删除word文档的页脚?

求一个批处理,可删除当前目录,以及子目录下所有*.doc 或 *.docx 文档的页脚,急。。。。。感谢!
作者: flashercs    时间: 2022-9-19 22:11

本帖最后由 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()
复制代码

作者: karmane    时间: 2022-9-19 22:27

回复 2# flashercs


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




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2