WordToPdf();

function WordToPdf();
begin
    alias := "";
    doc := "D:\\temp\\wordtopdf\\3M.docx";
    // doc := "D:\\temp\\test1.docx";
    // doc := "D:\\temp\\nihao.docx";
    // doc := "D:\\temp\\wordtopdf\\3M1.docx";
    output := "D:\\temp\\1.pdf";

    sysparams["_PDF_PAGE_GRID_DEBUG_"] := 0;
    sysparams["_PDF_TEXT_DEBUG_"] := 0;
    docx_to_pdf := new TSDocxToPdf(alias, doc);
    docx_to_pdf.Font.SetSubstitutionRules("仿宋", "宋体");
    docx_to_pdf.Transform();
    err := docx_to_pdf.SaveToFile(alias, output);
    echo "SaveToFile::\t", "err := ", format("%x", err), "\toutput_file := ", output, "\n";
end;