Question

Access VBA，创建Word文件后，怎样保存为PDF格式？

Office 2007

我的程序大概是这样写的：

...
Set appWord = GetObject(, "Word.Application")
...
Set doc = appWord.Documents.Add(strTemplateNameAndPath)
...
我试着直接把文件saveas成wdFormatPDF格式，好像不行：

doc.SaveAs FileName:=strFilePath & strFileName, FileFormat:=wdFormatPDF
提示错误4198：命令失败。

求教：程序应该怎么写才能把这个生成的word文件保存为pdf文件？
问题已经解决，用ExportAsFixedFormat（还装了一个插件）：
doc.ExportAsFixedFormat strFilePath & strFileName & ".pdf", wdExportFormatPDF
不过麻烦的是要先保存word文件：
doc.SaveAs FileName:=strFilePath & strFileName, FileFormat:=wdFormatDocument

Answer 1

恭喜你有了解决办法。

或者如果你电脑有PDF虚拟打印机的话，你可以不用安装另外的插件，用PDF打印机直接打印即可：

appWord.ActivePrinter = "CutePDF Writer"    '选择PDF打印机
appWord.PrintOut