v1.8.6
This commit is contained in:
parent
bbe0821f68
commit
6b0f11cebb
|
|
@ -0,0 +1,4 @@
|
||||||
|
*.swp
|
||||||
|
*.swo
|
||||||
|
*.cmd
|
||||||
|
script.ps1
|
||||||
|
|
@ -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;
|
||||||
|
|
|
||||||
|
|
@ -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格式文件
|
||||||
|
|
|
||||||
|
|
@ -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
|
||||||
|
|
|
||||||
|
|
@ -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");
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue