diff --git a/funcext/TSOffice/TOfficeObj.tsf b/funcext/TSOffice/TOfficeObj.tsf index 95d5581..05d25ab 100644 --- a/funcext/TSOffice/TOfficeObj.tsf +++ b/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); diff --git a/funcext/TSOffice/TSDocxFile.tsf b/funcext/TSOffice/TSDocxFile.tsf index 92e4d5d..16e463e 100644 --- a/funcext/TSOffice/TSDocxFile.tsf +++ b/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格式文件 diff --git a/funcext/TSOffice/TSXlsxFile.tsf b/funcext/TSOffice/TSXlsxFile.tsf index 95cede1..67e4f2d 100644 --- a/funcext/TSOffice/TSXlsxFile.tsf +++ b/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 等多种文档格式。 diff --git a/更新日志.md b/更新日志.md index b30f1b4..5533a1b 100644 --- a/更新日志.md +++ b/更新日志.md @@ -1,5 +1,13 @@ # 更新日志 +## 2023-2-23 + +### V1.6.3 + +#### word + +1. 修复目录生成陷入死循环问题 + ## 2023-2-7 ### V1.6.2