tinysoft
/
TSOffice
5
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

v1.7.4-patch1

This commit is contained in:
csh 2024-12-23 14:17:49 +08:00
parent fdd2bd0fef
commit 3243db0e2d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
funcext/TSOffice/TOfficeObj.tsf
View File

@ -14403,7 +14403,10 @@ Type TDocSection = Class(DocObject, TDocSectionImpl)
Begin Begin
if ifNil(type) or type = '' then if ifNil(type) or type = '' then
type := 'default'; type := 'default';
node := node_.FirstChildElement(key); sect_node := node_;
if sect_node.GetName() = "w:p" then
sect_node := class(TSxml).GetNode(sect_node, "w:pPr/w:sectPr");
node := sect_node.FirstChildElement(key);
while ifObj(node) do Begin while ifObj(node) do Begin
name := node.GetName(); name := node.GetName();
if name = key then Begin if name = key then Begin