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

[已解决]50元求助批量将文件夹下的JPG图片合成一个PDF格式的文件

  [复制链接]
发表于 2019-4-17 16:07:08 | 显示全部楼层 |阅读模式
目前每个文件夹里有好几张JPG格式的图片,要求把这些文件夹里的JPG格式的图片批量转换成PDF格式文件
各位大神求帮助!
支付方式:支付宝、微信

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2019-4-17 17:08:31 | 显示全部楼层
imagemagick 可以做这个
http://www.imagemagick.org/
发表于 2019-4-17 17:16:51 | 显示全部楼层
本帖最后由 ivor 于 2019-4-17 17:42 编辑

保存为批处理运行,扫描批处理当前目录下面 =》子目录的所有JPG图片,然后打包成pdf,使用子目录名作为每个pdf文件名。
  1. <# :
  2. @echo off
  3. rem 增强代码兼容性,代码保存为 ".bat"、".cmd"、".ps1"均可执行
  4. more +7 "%~f0" >"%~dpn0.ps1"
  5. powershell -ExecutionPolicy bypass -File "%~dpn0.ps1"
  6. del "%~dpn0.ps1" & pause & exit /b
  7. #>
  8. dir | ?{$_.GetType() -eq [System.IO.DirectoryInfo]} | %{$pdfPath=(Split-Path -Parent $MyInvocation.MyCommand.Definition)+""+$_.BaseName+".pdf"
  9. $word = New-Object -ComObject Word.Application
  10. $word.Visible = $false
  11. $objDoc = $word.Documents.Add()
  12. $objSelection = $Word.Selection

  13. dir *.jpg -path $_ | %{
  14. $objShape = $objSelection.InlineShapes.AddPicture($_.FullName)
  15. }
  16. Write-Host $pdfPath
  17. $objDoc.SaveAs([ref] $pdfPath, [ref] 17)
  18. $objDoc.Close(0)
  19. $word.Quit()
  20. }
复制代码
 楼主| 发表于 2019-4-17 17:57:23 | 显示全部楼层
谢谢2楼大神,完美解决了难题,
3楼大神抱歉。
发表于 2019-4-17 18:08:58 | 显示全部楼层
从平台获得的报酬,回馈一下论坛,转了10点软妹币到 batcher.li@gmail.com
流水号 20190417200040011100480035723560
2019-04-17 18:03:16
名称|备注   回馈论坛
支出(元)         - 10.00
发表于 2019-4-17 19:31:17 | 显示全部楼层
回复 5# 523066680


    收到。感谢对论坛的支持!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 02:47 , Processed in 0.074446 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表