v1.4.5

funcext/TSOffice/TOfficeObj.tsf

@@ -1,4 +1,4 @@
-// Version 1.4.4
+// Version 1.4.5
 
 Function TOfficeObj(n);
 Begin

funcext/TSOffice/TSDocxFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.4.4
+// Version 1.4.5
 
 Type TSDocxFile = Class
 	///Version: V1.0 2022-09-20

funcext/TSOffice/TSExcelFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.4.4
+// Version 1.4.5
 
 Type TSExcelFile = Class
 	///Version: V1.0 2022-08-08

funcext/TSOffice/document/TTableContent.tsf

@@ -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;
+

funcext/TSOffice/worksheet/xlsxWorkBook.tsf

@@ -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

更新日志.md

@@ -1,5 +1,17 @@
 # 更新日志
 
+## 2023-8-30
+
+### V1.4.5
+
+#### word
+
+1. 支持生成目录后返回目录对象的所有段落内容`目录对象.Paragraphs()`
+
+#### excel
+
+1. 修复`NewSheet`excel打开遇到提示错误问题
+
 ## 2023-8-28
 
 ### V1.4.4