涛哥-印前 发表于 2025-1-14 17:17:03

快速word文档转PDF


提取码：m2a9

lzspain 发表于 2025-1-14 19:03:38

只有提取码，没有链接呢，WPS不支持吗？

海风 发表于 2025-1-14 19:11:55

涛哥这操作绝了，只有暗号，找不到接头人

xiaoT 发表于 2025-1-16 16:26:10

这是什么情况啊，补链接的时候，说明下可以批量处理吗

uhbx0 发表于 2025-1-17 10:07:39

自己一直用这个脚本~放在DOC和DOCX文件夹，直接运行~保存为.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格式!"

哈工大 发表于 2025-1-17 12:22:18

楼主：链接呢，找不到组织了，只有暗号。

竟夕相思 发表于 2025-1-17 13:04:35

这个不稳定 最好的是vba代码存个快捷按钮
页: [1]
查看完整版本: 快速word文档转PDF