v1.6.4

funcext/TSOffice/TOfficeObj.tsf

@@ -1,4 +1,4 @@
-// Version 1.6.3
+// Version 1.6.4
 Function TOfficeObj(n);
 Begin
 	case lowercase(n) of
@@ -13116,9 +13116,9 @@ Type TDocumentBody = Class(DocObject)
 			trNode := tbl.node_.InsertEndChild('element', 'w:tr');
 			trNode.InsertEndChild('element', 'w:trPr');
 			multiLine := false;
+			for j:=0 to tbl.colCount_-1 do Begin
 				if ifstring(tbl.Data_[i, j]) and Pos('\n', tbl.Data_[i, j]) then
 					multiLine := true;
-			for j:=0 to tbl.colCount_-1 do Begin
 				//对象太多的话，对象效率奇慢，优化掉(性能可能相差50倍)
 				if 0 then Begin
 					tc := new TCell();
@@ -14359,6 +14359,11 @@ Type TTextBox = Class(TDocumentBody, TTextBoxImpl)
 		End;
 	End;
 
+	Function Clear();
+	Begin
+		if ifObj(node_) then node_.DeleteChildren();
+	End;
+	
 	pNode_;//<w:p>
 	NodeEx_;//w:p/w:r/mc:AlternateContent/mc:Choice/w:drawing/wp:anchor/a:graphic/a:graphicData/wps:wsp/wps:txbx/wps:txbxContent
 End;

funcext/TSOffice/TSDocxFile.tsf

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

funcext/TSOffice/TSXlsxFile.tsf

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

更新日志.md

@@ -1,5 +1,18 @@
 # 更新日志
 
+## 2023-3-4
+
+### V1.6.4
+
+#### word
+
+1. 修复`InsertTable`内容`\n`无换行问题
+2. `TextBox`支持`Clear`清空内容
+
+#### word
+
+1. 修复目录生成陷入死循环问题
+
 ## 2023-2-23
 
 ### V1.6.3