Uses TSDocxEnumerations;

Application := new TSDocxApplication();

openpath := "D://temp//default.docx";
savepath := "D://temp//docx_vba_help.docx";

document := Application.Documents.Open(FileName: openpath);
document.Activate;
println("Documents.Count = {}", Application.Documents.Count);
ActiveDocument := Application.ActiveDocument;
println("ActiveDocument.Name = {}", ActiveDocument.Name);
println("\n");

ActiveDocument.Paragraphs.Add;
para := ActiveDocument.Paragraphs.Last;
para.Range.Text := "TSVBA帮助文档";
println("para = {}", para);
// para.Range.Font.Size := 20;
para.Format.Alignment := TSDocxEnumerations.wdAlignParagraphCenter();
para.Format.Apply();	// 写属性后要apply
// ActiveDocument.SaveAs2(FileName : savepath);
// println("ActiveDocument.SaveAs2 = {}", savepath);