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

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

新人求帮忙。网上全是收费软件。论坛里搜索链接全是过期的。。能导入文件夹批量导出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

word vba代码了解一下

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格式!"

复制代码

注意注意注意：必看 /1