v1.6.3

funcext/TSOffice/TOfficeObj.tsf

@@ -1,4 +1,4 @@
-// Version 1.6.2
+// Version 1.6.3
 Function TOfficeObj(n);
 Begin
 	case lowercase(n) of
@@ -13910,7 +13910,11 @@ Type TDocumentBody = Class(DocObject)
 						//统计数字项目编号
 						p := new TParagraph(pNode);
 						text := p.Text();
-						if text = "" then continue;
+						if text = "" then
+						begin
+							pNode := pNode.NextElement();
+							continue;
+						end
 						numArr := array();
 						numId := getNumPr('numId', docx, p);
 						ilvl := getNumPr('Level', docx, p);

funcext/TSOffice/TSDocxFile.tsf

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

funcext/TSOffice/TSXlsxFile.tsf

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

更新日志.md

@@ -1,5 +1,13 @@
 # 更新日志
 
+## 2023-2-23
+
+### V1.6.3
+
+#### word
+
+1. 修复目录生成陷入死循环问题
+
 ## 2023-2-7
 
 ### V1.6.2