Delphi 使用 Word ActiveX 将 doc 转换为 pdf

Question

有人已经编写过使用 Word 2007 或 Word 2010 pdf 导出功能将 doc 或 docx 转换为 pdf 的代码吗？

Answer 1

到目前为止我还没有，但这应该不难:

• 使用 CreateOLEObject 创建 Word COM 服务器对象('Word.Application')
• 使用 Documents.Open 打开文档
• 使用 ExportAsFixedFormat 将文档导出为 PDF

这是一个基本框架:

uses
  ComObj;
const
  wdExportFormatPDF = 17;
var 
  Word, Doc: OleVariant;
begin
  Word := CreateOLEObject('Word.Application');
  Doc := Word.Documents.Open('C:\Document.docx');
  Doc.ExportAsFixedFormat('C:\Document.pdf', wdExportFormatPDF);
end;

请注意，我已将 Word 和 Doc 变量声明为 OleVariants，以便与版本无关(即，无论您使用的是字 2007 或 2010)。如果需要，您还可以使用 VCL Office 组件库。如果您要在文档本身中进行大量处理，那肯定会更快。