用WORD就能实现快速批量转换PDF

lcjy11185

pdf 到word   

小学没毕业

谢谢老师！

dammmmdd

2019版本也可以用

cuanju

分享一个宏，运行宏可将单个word文件转换为PDF，并保存到桌面。（Windows7桌面默认路径是C:\Users\Administrator\Desktop，而Windows10桌面默认路径是C:\Users\Admin\Desktop，此代码已自动判断）
==========================
Sub word将单个文件转换为PDF()
    Set oD = ActiveDocument
    Dim sPath As String
    Set xlApp = CreateObject("excel.Application")
    If xlApp.OperatingSystem Like "*6.01*" Then
        sPath = "C:\Users\Administrator\Desktop\"
    Else
        sPath = "C:\Users\Admin\Desktop\"
    End If
    If Split(oD.Name, ".")(0) Like "*文档[0-9]*" Then
        oD.ExportAsFixedFormat OutputFileName:=(sPath & Format(Now(), "yymmdd_hhmmss") & Split(oD.Name, ".")(0) & ".pdf"), _
            ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
            wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=1, To:=oD.Range.Information(wdNumberOfPagesInDocument), _
            Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True
    Else
        oD.ExportAsFixedFormat OutputFileName:=(sPath & Left(oD.Name, InStrRev(oD.Name, ".") - 1) & ".pdf"), _
            ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
            wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=1, To:=oD.Range.Information(wdNumberOfPagesInDocument), _
            Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True
    End If
    xlApp.Quit
    Set xlApp = Nothing
End Sub

13032383987

宏也是好宏，方法也是好方法，但不算理想，批量转pdf最好用虚拟打印机加文档批量打印工具，可以设置打印页数，路径，点一下所有的文档就自动转成pdf了

funnycoffee

感谢，正好有这个批量转换需求。

觅凤的梧桐

为什么直接在你的文档里运行没问题，拿到excel中，pdf可以转换，但是打不开呢？

觅凤的梧桐

觅凤的梧桐 发表于 2020-9-22 09:34
为什么直接在你的文档里运行没问题，拿到excel中，pdf可以转换，但是打不开呢？

我知道了，要引用一下word才行，可是不是已经Set WordApp = CreateObject("Word.Application")   了么？

壮壮威武088

另存为不就可以

饺紫真幸运

太好用了，感谢