Office 2007 mit OLE als PDF speichern

[toms]

ungetestet:

Delphi-Quellcode:

procedure ConvertDocToPdf(const Filename: string; DestFileName: string);
const
  wdExportFormatPDF = 17;
  wdExportOptimizeForPrint = 0;
var
  ObjWord, ObjDoc: Variant;
  EmptyParam: OleVariant;
begin
  ObjWord := CreateOleObject('Word.Application');
  ObjWord.Visible := True;
  ObjDoc := ObjWord.Documents.Open(FileName);
  ObjDoc.ExportAsFixedFormat(
    DestFileName,
    wdExportFormatPDF,
    False, // OpenAfterExport
    wdExportOptimizeForPrint, // OptimizeFor
    EmptyParam, // etc.
    EmptyParam,
    EmptyParam,
    EmptyParam,
    EmptyParam,
    EmptyParam,
    EmptyParam,
    EmptyParam,
    );
  ObjWord.Quit;
  ObjWord := Unassigned;
end;