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

[文本处理] 求助:bat如何批量删除多个word文档里的分页符

bat如何批量删除多个word文档里的分页符

回复 1# 453765918


test.bat
  1. # & cls & @cd /d "%~dp0" & powershell -c "Get-Content '%~0' | Out-String | Invoke-Expression " & exit /b
  2. # 设置待处理的文件所在的文件夹路径
  3. $OldFolder = "C:\Test\From"
  4. # 处理之后的文件保存到新的文件夹路径
  5. $NewFolder = "C:\Test\To"
  6. $Word = New-Object -ComObject Word.Application
  7. Get-ChildItem -Path $OldFolder "*.docx" | ForEach-Object {
  8.     $_.FullName
  9.     $NewName = $NewFolder + "\" + $_.Name
  10.     $Doc = $Word.Documents.Open($_.FullName)
  11.     $Select = $Word.Selection
  12.     $Select.WholeStory()
  13.     $OldStr = "^m"
  14.     $NewStr = ""
  15.     $Select.Find.Execute($OldStr, $false, $true, $false, $false, $false, $true, $false, $false, $NewStr)
  16.     $Doc.SaveAs($NewName)
  17.     $Doc.Close()
  18. }
  19. $word.Quit()
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

TOP

返回列表