WORD转PDF脚本文件

1、在桌面新建一个文本文件,把下列代码复制到文本文件中。

bash 复制代码
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 "ALL Word files have been converted to PDF format!"

2、然后将文件名改为ConvertWordToPdf.vbs即可。

相关推荐
zyk_5201 小时前
前端渲染pdf文件解决方案-pdf.js
前端·javascript·pdf
IDRSolutions_CN3 小时前
如何将 PDF 中的文本提取为 JSON 格式
java·经验分享·pdf·软件工程·团队开发
南博萬4 小时前
java将pdf转换成word
java·pdf·word
zhishishe14 小时前
2025 年免费 Word 转 PDF 转换器有哪些?
android·windows·pdf·电脑·word
.m19 小时前
几种Word转换PDF的常用方法
pdf
神奇侠202421 小时前
基于PaddleOCR对图片中的excel进行识别并转换成word(一)
python·word·excel·paddleocr
前端开心果21 小时前
vue实现静默打印pdf
前端·vue.js·pdf
zhishishe1 天前
工具指南:免费将 PDF 转换为 Word 的 10 个工具
android·windows·pdf·word
CodeCraft Studio1 天前
PDF处理控件Aspose.PDF指南:使用 Python 将 EPUB 转换为 PDF
linux·python·pdf
m0_510600981 天前
visio导出的图片过大导致latex格式转成pdf之后很不清楚
pdf