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

hxc1995

目前每个文件夹里有好几张JPG格式的图片，要求把这些文件夹里的JPG格式的图片批量转换成PDF格式文件
各位大神求帮助！
支付方式：支付宝、微信

Batcher

回复 5# 523066680


    收到。感谢对论坛的支持！

523066680

从平台获得的报酬，回馈一下论坛，转了10点软妹币到 batcher.li@gmail.com
流水号 20190417200040011100480035723560
2019-04-17 18:03:16
名称|备注   回馈论坛
支出(元)         - 10.00

hxc1995

谢谢2楼大神，完美解决了难题，
3楼大神抱歉。

ivor

保存为批处理运行，扫描批处理当前目录下面 =》子目录的所有JPG图片，然后打包成pdf，使用子目录名作为每个pdf文件名。

<# :
@echo off
rem 增强代码兼容性,代码保存为 ".bat"、".cmd"、".ps1"均可执行
more +7 "%~f0" >"%~dpn0.ps1"
powershell -ExecutionPolicy bypass -File "%~dpn0.ps1"
del "%~dpn0.ps1" & pause & exit /b
#>
dir | ?{$_.GetType() -eq [System.IO.DirectoryInfo]} | %{$pdfPath=(Split-Path -Parent $MyInvocation.MyCommand.Definition)+"\"+$_.BaseName+".pdf"
$word = New-Object -ComObject Word.Application
$word.Visible = $false
$objDoc = $word.Documents.Add()
$objSelection = $Word.Selection

dir *.jpg -path $_ | %{
$objShape = $objSelection.InlineShapes.AddPicture($_.FullName)
}
Write-Host $pdfPath
$objDoc.SaveAs([ref] $pdfPath, [ref] 17)
$objDoc.Close(0)
$word.Quit()
}
复制代码

523066680

imagemagick 可以做这个
http://www.imagemagick.org/