|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
打开一个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
|
|