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