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

[文件操作] [分享]批处理+PDFtk+Ghostscript删除pdf文件空白页

【问题描述】

怎样删除pdf文件中的空白页?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

【解决方案】

处理单个PDF文件.bat
  1. @echo off
  2. REM 处理之前的文件名
  3. set "OldFile=1.pdf"
  4. REM 处理之后的文件名
  5. set "NewFile=2.pdf"
  6. REM 1、下载并安装 Ghostscript 这个命令行工具
  7. REM https://www.ghostscript.com/releases/gsdnld.html
  8. REM 2、根据自己电脑实际安装路径设置以下临时环境变量
  9. set "path=C:\Program Files\gs\gs10.01.2\bin;%path%"
  10. REM 1、下载并安装 PDFtk 这个命令行工具
  11. REM http://bcn.bathome.net/s/tool/index.html?key=PDFtk
  12. REM 2、根据自己电脑实际安装路径设置以下临时环境变量
  13. set "path=C:\Program Files (x86)\PDFtk Server\bin;%path%"
  14. set "NonBlank="
  15. cd /d "%~dp0"
  16. setlocal enabledelayedexpansion
  17. for /f "tokens=1* delims=:" %%a in ('gswin64c.exe -q -o - -sDEVICE^=ink_cov "%OldFile%" ^| findstr /n "CMYK"') do (
  18.     echo %%b | findstr "[1-9]" >nul
  19.     if not errorlevel 1 (
  20.         set "NonBlank=!NonBlank! %%a"
  21.     )
  22. )
  23. pdftk.exe "%OldFile%" cat !NonBlank! output "%NewFile%"
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

处理多个PDF文件.bat
  1. @echo off
  2. REM 处理之前pdf所在的文件夹
  3. set "OldFolder=C:\Test\PDF"
  4. REM 处理之后pdf所在的文件夹
  5. set "NewFolder=C:\Test\PDF-DelBlank"
  6. REM 1、下载并安装 Ghostscript 这个命令行工具
  7. REM https://www.ghostscript.com/releases/gsdnld.html
  8. REM 2、根据自己电脑实际安装路径设置以下临时环境变量
  9. set "path=C:\Program Files\gs\gs10.01.2\bin;%path%"
  10. REM 1、下载并安装 PDFtk 这个命令行工具
  11. REM http://bcn.bathome.net/s/tool/index.html?key=PDFtk
  12. REM 2、根据自己电脑实际安装路径设置以下临时环境变量
  13. set "path=C:\Program Files (x86)\PDFtk Server\bin;%path%"
  14. cd /d "%OldFolder%"
  15. if not exist "%NewFolder%" (
  16.     md "%NewFolder%"
  17. )
  18. setlocal enabledelayedexpansion
  19. for /f "delims=" %%i in ('dir /b /a-d *.pdf') do (
  20.     echo Processing file: %%i
  21.     set "NonBlank="
  22.     for /f "tokens=1* delims=:" %%a in ('gswin64c.exe -q -o - -sDEVICE^=ink_cov "%%i" ^| findstr /n "CMYK"') do (
  23.         echo %%b | findstr "[1-9]" >nul
  24.         if not errorlevel 1 (
  25.             set "NonBlank=!NonBlank! %%a"
  26.         )
  27.     )
  28.     pdftk.exe "%%i" cat !NonBlank! output "%NewFolder%\%%~nxi"
  29. )
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

word文档能批量删除空白页吗?

TOP

谢谢分享哦
我是小白,希望老师多多帮助

TOP

返回列表