25 lines
798 B
Plaintext
25 lines
798 B
Plaintext
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);
|
|
|