This commit is contained in:
csh 2026-01-16 14:32:22 +08:00
parent bbe0821f68
commit 6b0f11cebb
6 changed files with 324 additions and 307 deletions

4
.gitignore vendored Normal file
View File

@ -0,0 +1,4 @@
*.swp
*.swo
*.cmd
script.ps1

View File

@ -1,4 +1,4 @@
// Version 1.8.5 // Version 1.8.6
Function TOfficeObj(n); Function TOfficeObj(n);
Begin Begin
case lowercase(n) of case lowercase(n) of
@ -13331,14 +13331,14 @@ Type TDocumentBody = Class(DocObject)
para.Run.T := lines[0]; para.Run.T := lines[0];
para.Run.RPr := para.PPr.RPr; para.Run.RPr := para.PPr.RPr;
end end
for i:=1 to length(lines)-1 do Begin for k:=1 to length(lines)-1 do Begin
r := para.AddRun(); r := para.AddRun();
r.Br.Val := 1; r.Br.Val := 1;
r.RPr := para.PPr.RPr; r.RPr := para.PPr.RPr;
r := para.AddRun(); r := para.AddRun();
r.T := lines[i]; r.T := lines[k];
r.RPr := para.PPr.RPr; r.RPr := para.PPr.RPr;
if _preserve(lines[i]) then if _preserve(lines[k]) then
begin begin
r := para.AddRun(); r := para.AddRun();
r.Space := "preserve"; r.Space := "preserve";
@ -13560,6 +13560,7 @@ Type TDocumentBody = Class(DocObject)
p.pPr.NewChildNode( array("field":"", "name":"w:sectPr", "obj":section, "attrEx":"", "nodeType":"") ); p.pPr.NewChildNode( array("field":"", "name":"w:sectPr", "obj":section, "attrEx":"", "nodeType":"") );
p := AddParagraph(p, posOpt, '');//段落对象 p := AddParagraph(p, posOpt, '');//段落对象
sec := new TDocSection(p.node_, -2, zipfile_); sec := new TDocSection(p.node_, -2, zipfile_);
sec.NodeUri := 'w:pPr/w:sectPr'; sec.NodeUri := 'w:pPr/w:sectPr';
return sec; return sec;
End; End;

View File

@ -1,4 +1,4 @@
// Version 1.8.5 // Version 1.8.6
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

@ -123,7 +123,7 @@ public
begin begin
empty_name := children_[i]['attrEx'] ? children_[i]['attrEx'] : 'val'; empty_name := children_[i]['attrEx'] ? children_[i]['attrEx'] : 'val';
if obj = 0 then arr['attributes'] := array(empty_name: 0); if obj = 0 then arr['attributes'] := array(empty_name: 0);
else if obj = 1 then arr['attributes'] := array(empty_name: 1) else if obj = 1 then arr['attributes'] := array(empty_name: 1);
end end
else if node_type = 'pcdata' then else if node_type = 'pcdata' then
begin begin

View File

@ -1,4 +1,4 @@
// Version 1.8.5 // Version 1.8.6
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 等多种文档格式。
@ -344,7 +344,7 @@ Type TSXlsxFile = Class
[err, cell] := CoordinatesToCellName(colNum + j, rowNum + i); [err, cell] := CoordinatesToCellName(colNum + j, rowNum + i);
j++; j++;
ret := SetCellValue(sheet, cell, v); ret := SetCellValue(sheet, cell, v);
if not ret then return array(1, "error") if not ret then return array(1, "error");
End; End;
End; End;
return array(0, "OK"); return array(0, "OK");

View File

@ -1,7 +1,19 @@
# 更新日志 # 更新日志
## 2026-01-16
#### V1.8.6
修复语法问题
#### word
1. 修复`InsertTable`多行数据插入缺失问题
## 2025-12-15 ## 2025-12-15
#### V1.8.5
#### word #### word
1. 修复插入word时单元格内容不完整问题 1. 修复插入word时单元格内容不完整问题