This commit is contained in:
csh 2024-02-23 11:19:29 +08:00
parent c1a93bb16e
commit f499526f04
4 changed files with 16 additions and 4 deletions

View File

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

View File

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

View File

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

View File

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