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);
|
||||
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;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
// Version 1.8.5
|
||||
// Version 1.8.6
|
||||
Type TSDocxFile = Class
|
||||
///Version: V1.0 2022-09-20
|
||||
///适用于 Microsoft Word docx格式文件
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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");
|
||||
|
|
|
|||
Loading…
Reference in New Issue