打开一个word文档，如何用代码转为pdf？

zzpsx

打开一个word文档，如何用代码转为pdf？

下面是我写的代码，不怎么好。希望转换的pdf和原来word文档的名称一致。


Sub pdf()
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Users\Administrator\Desktop\888.pdf", ExportFormat:=wdExportFormatPDF _
        , OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
        wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
        IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
        wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
        True, UseISO19005_1:=False
    ChangeFileOpenDirectory "C:\Users\Administrator\Desktop\"
End Sub

小花鹿

888不就是你原来的文件名吗

zzpsx

小花鹿 发表于 2024-4-6 10:08
888不就是你原来的文件名吗

不是。这段代码的缺陷是打开一个word文档，都会存在888的pdf。

小花鹿

录制的宏路径和文件名都是固定的，要修改一下：
Sub 宏1()
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        ActiveDocument.Path & "\" & Split(ActiveDocument.Name, ".")(0) & ".pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
    ChangeFileOpenDirectory ActiveDocument.Path & "\"
End Sub

shduy

Sub 另存pdf()
Temp = ActiveDocument.Name
n = Left(Temp, Len(Temp) - 5)
ActiveDocument.SaveAs2 FileName:=ActiveDocument.path & "\" & n & ".pdf", FileFormat:=17

End Sub

Sub 另存pdf文件到桌面()
'
Temp = ActiveDocument.Name
n = Left(Temp, Len(Temp) - 4)
ActiveDocument.SaveAs2 FileName:="C:\Users\86629\Desktop\" & n & ".pdf", FileFormat:=17

End Sub

zzpsx

问题已解决，谢谢各位。