This commit is contained in:
csh
2025-01-07 10:56:24 +08:00
parent 3243db0e2d
commit 3c16ce510a
4 changed files with 54 additions and 7 deletions
+27 -1
View File
@@ -1,4 +1,4 @@
// Version 1.7.4
// Version 1.7.5
Function TOfficeObj(n);
Begin
case lowercase(n) of
@@ -13004,6 +13004,16 @@ Type TDocumentBody = Class(DocObject)
Begin
return getDocumentObjects(node_, '');
End;
///返回文档中Sdt
Function Sdts();
Begin
parts := getDocumentObjects(node_, 'w:sdt');
r := array();
for i:=0 to length(parts)-1 do
r[i] := new TSdt(parts[i].node_);
return r;
End;
///word文档所有段落
///返回:TParagraph对象数组
@@ -14599,6 +14609,22 @@ private
maxId_;
End;
//w:sdt
Type TSdt = Class(TDocumentBody)
Function Create(node);overload;
Begin
Class(TDocumentBody).Create(node.FirstChild('w:sdtContent'));
Create(node, 'w:sdt');
End;
Function Create(node, name);overload;
Begin
name_ := name;
End;
name_;
End;
//w:tc
Type TCell = Class(TDocumentBody, TWTc)
Function Create();overload;
+8 -1
View File
@@ -1,4 +1,4 @@
// Version 1.7.4
// Version 1.7.5
Type TSDocxFile = Class
///Version: V1.0 2022-09-20
///适用于 Microsoft Word docx格式文件
@@ -266,6 +266,13 @@ Type TSDocxFile = Class
Begin
return document_.Body().Sections(index);
End;
///获取Structured Document Tag
///返回:TSdt集合
Function Sdts();
Begin
return document_.Body().Sdts();
End;
///添加章节
///sessionTDocSection对象
+1 -1
View File
@@ -1,4 +1,4 @@
// Version 1.7.4
// Version 1.7.5
Type TSXlsxFile = Class
///Version: V1.0 2022-08-08
///适用于 Microsoft Excel? 2007 及以上版本创建的电子表格文档。支持 XLSX / XLSM / XLTM / XLTX 等多种文档格式。