@echo off
chcp 65001 >nul
cd /d "%~dp0"
REM 根据自己电脑实际情况设置ImageMagick的路径
set "path=C:\Program Files\ImageMagick;%path%"
for %%i in ("%~f0\..") do (
    magick.exe "*.jpg" "*.png" "%%~nxi.pdf"
)
复制代码

<# :
@echo off
powershell -noprofile -NoLogo "iex(${%~f0}|out-string)"
pause
exit 
#>
$folderPath = 'E:\桌面\PDF'
$folderName = Split-Path $folderPath -Leaf
$word = New-Object -ComObject Word.Application
$doc = $word.Documents.Add()
Get-ChildItem -Path $folderPath\* -File -Include *.jpg,*.png | % {
    [void]$doc.InlineShapes.AddPicture($_.FullName)
}

$doc.SaveAs([Ref] "$folderPath\$folderName.pdf", [Ref] 17)
$doc.Close([Ref] $false)
$word.Quit()
[Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null
复制代码

@echo on
chcp 65001 >nul
cd /d "%~dp0"
set "path=E:\ImageMagick;%path%"
dir /b /a-d "E:\ImageMagick\*.exe"
dir /b /a-d "*.jpg" "*.png"
for %%i in ("%~f0\..") do (
    echo magick.exe "*.jpg" "*.png" "%%~nxi.pdf"
    magick.exe "*.jpg" "*.png" "%%~nxi.pdf"
)
复制代码

@echo off
chcp 65001 >nul
cd /d "%~dp0"
set "path=E:\ImageMagick;%path%"
for %%i in ("%~f0\..") do (
    echo magick.exe "*.jpg" "*.png" "%%~nxi.pdf"
    if exist "*.jpg" (
        if exist "*.png" (
            magick.exe "*.jpg" "*.png" "%%~nxi.pdf"
        ) else (
            magick.exe "*.jpg" "%%~nxi.pdf"
        )
    ) else if exist "*.png" (
        magick.exe "*.png" "%%~nxi.pdf"
    )
)
复制代码