v1.6.6

funcext/TSOffice/TOfficeObj.tsf

@@ -1,4 +1,4 @@
-// Version 1.6.5
+// Version 1.6.6
 Function TOfficeObj(n);
 Begin
 	case lowercase(n) of
@@ -5996,6 +5996,7 @@ type TwpPr=class(NodeInfo)
 		cnfStyle := new TwCnfStyle(self, 'w:cnfStyle');
 		Bdr := new TpBdr(self, 'w:pBdr');
 		Shading := new TwShading(self, 'w:shd');
+		SectPr := new TDocSectionImpl(self, 'w:sectPr');
 		//TODO...
 	End;
 
@@ -6008,6 +6009,7 @@ type TwpPr=class(NodeInfo)
 		cnfStyle.InitRootNode(node);
 		Bdr.InitRootNode(node);
 		Shading.InitRootNode(node);
+		SectPr.InitRootNode(node);
 	End;
 
 	Function GetAttrs(); override;
@@ -6064,6 +6066,7 @@ type TwpPr=class(NodeInfo)
 			,('field':'Shading','name':Shading.NodeName,'obj':Shading,'attrEx':'','nodeType':'','attrName':'', 'desc':'表头底纹', 'class':'TwShading')
 			,('field':'TextboxTightWrap','name':'w:textboxTightWrap','obj':TextboxTightWrap,'attrEx':'w:val','nodeType':'','attrName':'', 'desc':'文本环绕形状或文本框的紧密程度', 'class':'')
 			,('field':'WordWrap','name':'w:wordWrap','obj':WordWrap,'attrEx':'w:val','nodeType':'','attrName':'', 'desc':'是否在指定段落或文本框架的西文单词中间断字换行', 'class':'')
+			,('field':'SectPr','name':SectPr.NodeName,'obj':SectPr,'attrEx':'','nodeType':'','attrName':'', 'desc':'文字边框', 'class':'TDocSectionImpl')
 			) union ExtNodes;
 	End;
 
@@ -6117,6 +6120,7 @@ type TwpPr=class(NodeInfo)
 	Shading;
 	TextboxTightWrap;
 	WordWrap;
+	SectPr;
 End;
 
 ///////////////////////////////////////////////////////////////
@@ -7638,9 +7642,9 @@ type TCol=class(NodeInfo)
 End;
 
 ///////////////////////////////////////////////////////////////
-/// TCols
+/// TColsImpl
 ///////////////////////////////////////////////////////////////
-type TCols=class(NodeInfo)
+type TColsImpl=class(NodeInfo)
 	Function Create(); overload;
 	Begin
 		Create(nil, 'w:cols');
@@ -13359,7 +13363,7 @@ Type TDocumentBody = Class(DocObject)
 		p := new TParagraph();
 		p.pPr.NewChildNode( array("field":"", "name":"w:sectPr", "obj":section, "attrEx":"", "nodeType":"") );
 		p := AddParagraph(p, posOpt, '');//段落对象
-		return new TDocSection(p.node_.FirstChildElement('w:sectPr'), -2, zipfile_);
+		return new TDocSection(p.node_.FirstChildElement('w:pPr').FirstChildElement('w:sectPr'), -2, zipfile_);
 	End;
 	
 	Function ExecInnerTSL(docx);
@@ -14173,6 +14177,16 @@ Type TDocHeaderFooter = Class(TDocumentBody)
 	xmlObj_;
 End;
 
+Type TCols = Class(TColsImpl)
+	Function AddCol();
+	Begin
+		o := new TCol();
+		NewChildNode( array("field":"", "name":"w:col", "obj":o, "attrEx":"", "nodeType":"") );
+		return o;
+	End;
+
+End;
+
 Type TDocSection = Class(DocObject, TDocSectionImpl)
 	Function Create();overload;
 	Begin

funcext/TSOffice/TSDocxFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.6.5
+// Version 1.6.6
 Type TSDocxFile = Class
 	///Version: V1.0 2022-09-20
 	///适用于 Microsoft Word docx格式文件

funcext/TSOffice/TSXlsxFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.6.5
+// Version 1.6.6
 Type TSXlsxFile = Class
 	///Version: V1.0 2022-08-08
 	///适用于 Microsoft Excel? 2007 及以上版本创建的电子表格文档。支持 XLSX / XLSM / XLTM / XLTX 等多种文档格式。