VBA即用型代码手册：保存为PDF文件SaveAs PDF

我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是： VBA即用型代码手册：保存为PDF文件SaveAs PDF

【分享成果，随喜正能量】290 一个人一生最应该学会的，不是挣钱，也不是打扮自己，而是无论遇到多大的人生风雨，你都有让自己快乐起来的能力。出生你没办法选择，婚姻有时候真的靠运气，唯一让自己过好这一生，就是具备调整情绪的能力。如果父母疼爱，良人相伴，那就不闹不作，好好珍惜；如果亲情淡薄、遇人不淑，那就为自己而活。生命已然苦涩，你没必要闷闷不乐！

第六章 Word对象及示例

Word Objects and Macro Examples

10 保存为PDF文件SaveAs PDF

Sub mynzMacroSaveAsPDF()

'宏将pdf保存在活动文档所在的同一文件夹中，如果文件尚未保存，则保存在文档文件夹中

Dim strPath As String

Dim strPDFname As String

strPDFname = InputBox("Enter name for PDF", "File Name", "example")

If strPDFname = "" Then

strPDFname = "example"

End If

strPath = ActiveDocument.Path

If strPath = "" Then

strPath = Options.DefaultFilePath(wdDocumentsPath) & Application.PathSeparator

Else

strPath = strPath & Application.PathSeparator

End If

ActiveDocument.ExportAsFixedFormat OutputFileName:= _

strPath & strPDFname & ".pdf", _

ExportFormat:=wdExportFormatPDF, _

OpenAfterExport:=False, _

OptimizeFor:=wdExportOptimizeForPrint, _

Range:=wdExportAllDocument, _

IncludeDocProps:=True, _

CreateBookmarks:=wdExportCreateWordBookmarks, _

BitmapMissingFonts:=True

End Sub

• 本节内容参考程序文件：Chapter06.docm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：