版块 › PDF综合专区 › 新人求助！WORD批量导出PDF软件

xiaokang 发表于 2024-12-27 15:59:16

新人求助！WORD批量导出PDF软件

新人求帮忙。网上全是收费软件。论坛里搜索链接全是过期的。。   能导入文件夹批量导出PDF（文件夹内套了好几层文件夹，需要导出在源文件位置），格式千万不能变   万分感谢

onms 发表于 2024-12-27 19:26:54

用过一个Bilibili 一个UP的，还有一个PDF-change PRO版带的工具

yinqianxuetu 发表于 2024-12-28 13:59:12

文件个数不多的情况下建议还是自己手动吧， 真的放心吗？尤其是很容易出问题的

xiaokang 发表于 2024-12-29 16:12:02

onms 发表于 2024-12-27 19:26
用过一个Bilibili 一个UP的，还有一个PDF-change PRO版带的工具

能分享一下吗，实在是没找到合适的工具

xiaokang 发表于 2024-12-29 16:17:56

yinqianxuetu 发表于 2024-12-28 13:59
文件个数不多的情况下建议还是自己手动吧， 真的放心吗？尤其是很容易出问题的 ...

真是的太多了，一个夹套一个夹的 好几百个文件

如影随至 发表于 2024-12-30 08:16:47

我记得有个叫PDF24的工具箱啥的，应该还是免费的，里面应该是有这个工具。

竟夕相思 发表于 2025-1-5 11:16:59

wordvba代码了解一下

my0543 发表于 2025-1-8 14:16:30

和楼主一样同求软件

lzspain 发表于 2025-1-8 14:35:11

onms 发表于 2024-12-27 19:26
用过一个Bilibili 一个UP的，还有一个PDF-change PRO版带的工具

作者貌似取消你图片上这个工具的分享了，网盘里只有0624那版QI拼版工具

uhbx0 发表于 2025-1-8 16:57:55

保存为VBS后食用
On Error Resume Next
Const wdExportFormatPDF = 17
Set oWord = WScript.CreateObject("Word.Application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds=fso.GetFolder(".")
Set ffs=fds.Files
For Each ff In ffs
If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then
Set oDoc=oWord.Documents.Open(ff.Path)
odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF
If Err.Number Then
MsgBox Err.Description
End If
End If
Next
odoc.Close
oword.Quit
Set oDoc=Nothing
Set oWord =Nothing
MsgBox "Word文件已全部轩换为PDF格式!"

查看完整版本: 新人求助！WORD批量导出PDF软件