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

TOP

本帖最后由 terse 于 2023-10-7 12:53 编辑

如今含中文故保存文件编码为ANSI试
另外 这个要看你什么系统 还有就是要Microsoft Office支持
  1. <# :
  2. @echo off
  3. powershell -noprofile -NoLogo "iex(${%~f0}|out-string)"
  4. pause
  5. exit
  6. #>
  7. $folderPath = 'E:\桌面\PDF'
  8. $folderName = Split-Path $folderPath -Leaf
  9. $word = New-Object -ComObject Word.Application
  10. $doc = $word.Documents.Add()
  11. Get-ChildItem -Path $folderPath\* -File -Include *.jpg,*.png | % {
  12.     [void]$doc.InlineShapes.AddPicture($_.FullName)
  13. }
  14. $doc.SaveAs([Ref] "$folderPath\$folderName.pdf", [Ref] 17)
  15. $doc.Close([Ref] $false)
  16. $word.Quit()
  17. [Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null
复制代码

TOP

返回列表