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

View File

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

View File

@ -123,7 +123,7 @@ public
begin
empty_name := children_[i]['attrEx'] ? children_[i]['attrEx'] : 'val';
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
else if node_type = 'pcdata' then
begin

View File

@ -1,4 +1,4 @@
// Version 1.8.5
// Version 1.8.6
Type TSXlsxFile = Class
///Version: V1.0 2022-08-08
///适用于 Microsoft Excel? 2007 及以上版本创建的电子表格文档。支持 XLSX / XLSM / XLTM / XLTX 等多种文档格式。
@ -344,7 +344,7 @@ Type TSXlsxFile = Class
[err, cell] := CoordinatesToCellName(colNum + j, rowNum + i);
j++;
ret := SetCellValue(sheet, cell, v);
if not ret then return array(1, "error")
if not ret then return array(1, "error");
End;
End;
return array(0, "OK");

View File

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