批量word文件转pdf格式

最新推荐文章于 2024-07-19 08:36:40 发布

~千帆

最新推荐文章于 2024-07-19 08:36:40 发布

阅读量508

点赞数 3

文章标签： vbs

本文链接：https://blog.csdn.net/qq_21128759/article/details/117020400

版权

批量word文件转pdf格式

相信大家在平时工作的时候也遇到过需要同时打印很多个word文件，或者需要检查每一个文件。
那么依次打开每个文件无疑是一个繁琐的过程，而且还可能花费大量的时间。

解决方法

网上这类软件虽然很多，但是有许多是要收费的。
这里给安利一个很简单的批处理方法

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 "Finished!"

这是一个简单的宏代码块，可以依赖vb使用，也可以单独运行。