From 3243db0e2dac74ceab73f7776992335d4d2c837f Mon Sep 17 00:00:00 2001
From: csh <caoshenghui@tinysoft.com.cn>
Date: Mon, 23 Dec 2024 14:17:49 +0800
Subject: [PATCH] v1.7.4-patch1

---
 funcext/TSOffice/TOfficeObj.tsf | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/funcext/TSOffice/TOfficeObj.tsf b/funcext/TSOffice/TOfficeObj.tsf
index 22f3871..e2399d4 100644
--- a/funcext/TSOffice/TOfficeObj.tsf
+++ b/funcext/TSOffice/TOfficeObj.tsf
@@ -14403,7 +14403,10 @@ Type TDocSection = Class(DocObject, TDocSectionImpl)
 	Begin
 		if ifNil(type) or type = '' then
 			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
 			name := node.GetName();
 			if name = key then Begin