This commit is contained in:
csh
2023-08-30 15:43:03 +08:00
parent ef0dcde062
commit 8aa050461c
7 changed files with 39 additions and 6 deletions
+1 -1
View File
@@ -1,4 +1,4 @@
// Version 1.4.4
// Version 1.4.5
Function TOfficeObj(n);
Begin
+1 -1
View File
@@ -1,4 +1,4 @@
// Version 1.4.4
// Version 1.4.5
Type TSDocxFile = Class
///Version: V1.0 2022-09-20
+1 -1
View File
@@ -1,4 +1,4 @@
// Version 1.4.4
// Version 1.4.5
Type TSExcelFile = Class
///Version: V1.0 2022-08-08
File diff suppressed because one or more lines are too long
@@ -220,6 +220,26 @@ Type TTableContent = class
Function UpdatePageNumbers();
Begin
End;
Function Paragraphs();
Begin
node := class(TSXml).GetNode(docx_.Document().Body().Node(), 'w:sdt/w:sdtContent');
r := array();
if ifObj(node) then
begin
twbody := TOfficeObj('TwBody');
twbody.Create(nil, 'w:sdtContent');
twbody.InitRootNode(node);
twbody.InitNode(node);
parts := twbody.Paragraphs();
for i:=0 to length(parts)-1 do
begin
r[i] := TOfficeObj('TParagraph');
r[i].Init(parts[i].node_);
end
end
return r;
End;
Function Marshal();
Begin
@@ -299,3 +319,4 @@ Type TTableContent = class
node_;
impl_;
End;
+2 -2
View File
@@ -1106,7 +1106,7 @@ Type xlsxWorkBook = Class
end
if name = sheet then
Begin
node.SetAttribute('tabselected', 1);
node.SetAttribute('tabSelected', 1);
workbook := GetXmlFileObj('xl/workbook.xml');
workbook_node := workbook.FirstChildElement('workbook');
book_view_node := workbook_node.FirstChildElement('bookViews');
@@ -1126,7 +1126,7 @@ Type xlsxWorkBook = Class
else
begin
node := root_node.FirstChildElement('sheetViews').FirstChildElement('sheetView');
node.SetAttribute('tabselected', 0);
node.SetAttribute('tabSelected', 0);
end
end
End