返回列表 发帖
hxc1995

Rank: 1

帖子
26 
积分
52 
技术
0  
捐助
0  
注册时间
2019-4-17 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2019-4-17 16:07 | 只看该作者

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

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

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

523066680

Rank: 7Rank: 7Rank: 7

帖子
3170 
积分
6484 
技术
320  
捐助
70  
注册时间
2008-8-3 
2楼
发表于 2019-4-17 17:08 | 只看该作者
imagemagick 可以做这个
http://www.imagemagick.org/
[url=][/url]

TOP

ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
3楼
发表于 2019-4-17 17:16 | 只看该作者
本帖最后由 ivor 于 2019-4-17 17:42 编辑

保存为批处理运行，扫描批处理当前目录下面 =》子目录的所有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()
}COPY

TOP

hxc1995

Rank: 1

帖子
26 
积分
52 
技术
0  
捐助
0  
注册时间
2019-4-17 
4楼
发表于 2019-4-17 17:57 | 只看该作者
谢谢2楼大神，完美解决了难题，
3楼大神抱歉。

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3170 
积分
6484 
技术
320  
捐助
70  
注册时间
2008-8-3 
5楼
发表于 2019-4-17 18:08 | 只看该作者
从平台获得的报酬，回馈一下论坛，转了10点软妹币到 batcher.li@gmail.com
流水号 20190417200040011100480035723560
2019-04-17 18:03:16
名称|备注   回馈论坛
支出(元)         - 10.00
[url=][/url]

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14981 
积分
46194 
技术
859  
捐助
745  
注册时间
2008-6-9 
6楼
发表于 2019-4-17 19:31 | 只看该作者
回复 5# 523066680


    收到。感谢对论坛的支持！
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表