如何用vba把word文档发布转化为pdf格式文件?

在office 2007版本以后,微软新增了将word文档发布转化为pdf格式文件的功能。

操作上可以单击“文件”选项卡,然后单击“导出”命令,可以选择将word文档导出为PDF文件。

在vba中,也提供了ExportAsFixedFormat方法可以将word的Document 、Range 、Selection等对象导出为PDF格式。

如以下代码可以将word文档按照页数导出为PDF格式文件。

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim sPath As String
    sPath = oDoc.Path
    oDoc.ExportAsFixedFormat OutputFileName:=(sPath & "\" & "temp.pdf"), _
            ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
            wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=1, To:=oDoc.Range.Information(wdNumberOfPagesInDocument), _
            Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True
End Sub

 

       

发表评论