// NameSpace "DOCX"; WordToPdf(); function WordToPdf(); begin alias := ""; doc := "D:\\temp\\fangan.docx"; output := "D:\\temp\\1.pdf"; // doc := "/mnt/d/temp/fontsize.docx"; // output := "/mnt/d/temp/1.pdf"; docx_to_pdf := new TSDocxToPdf(alias, doc); docx_to_pdf.Font.UseBuiltInFont(); 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;