v1.8.5

funcext/TSOffice/TOfficeObj.tsf

@@ -1,4 +1,4 @@
-// Version 1.8.4
+// Version 1.8.5
 Function TOfficeObj(n);
 Begin
 	case lowercase(n) of

funcext/TSOffice/TSDocxFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.8.4
+// Version 1.8.5
 Type TSDocxFile = Class
 	///Version: V1.0 2022-09-20
 	///适用于 Microsoft Word docx格式文件

funcext/TSOffice/TSXlsxFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.8.4
+// Version 1.8.5
 Type TSXlsxFile = Class
 	///Version: V1.0 2022-08-08
 	///适用于 Microsoft Excel? 2007 及以上版本创建的电子表格文档。支持 XLSX / XLSM / XLTM / XLTX 等多种文档格式。

funcext/TSOffice/document/TDocxCopy.tsf

@@ -341,27 +341,32 @@ private
 			begin
 				cell := table.Cell(r, c);
 				if not cell then continue;
-				node := cell.node_;
-				if (tbl := node.FirstChildElement('w:tbl')) then
+				node := cell.node_.FirstChildElement();
+				while ifObj(node) do
 				begin
-					obj := TOfficeObj('TTable');
-					obj.Init(tbl);
-					SetTableInfo(obj);
-				end
-				else if (p := node.FirstChildElement('w:p')) then
-				begin
-					draw := class(TSXml).GetNode(p, 'w:r/w:drawing');
-					if ifObj(draw) then
+					name := node.GetName();	
+					if name = 'w:tbl' then
 					begin
-						obj := TOfficeObj('TPicture');
-						obj.Init(p);
-						SetDrawingInfo(obj);
+						obj := TOfficeObj('TTable');
+						obj.Init(node);
+						SetTableInfo(obj);
 					end
-					else begin
-						obj := TOfficeObj('TParagraph');
-						obj.Init(p);
-						SetParagraphInfo(obj);
+					else if name = "w:p" then
+					begin
+						draw := class(TSXml).GetNode(node, 'w:r/w:drawing');
+						if ifObj(draw) then
+						begin
+							obj := TOfficeObj('TPicture');
+							obj.Init(node);
+							SetDrawingInfo(obj);
+						end
+						else begin
+							obj := TOfficeObj('TParagraph');
+							obj.Init(node);
+							SetParagraphInfo(obj);
+						end
 					end
+					node := node.NextElement();
 				end
 			end
 		end

funcext/TSOffice/worksheet/xlsxWorkBook.tsf

@@ -994,7 +994,7 @@ Type xlsxWorkBook = Class
 		col_node := work_node.FirstChildElement('cols');
 		default_width := work_node.FirstChildElement('sheetFormatPr').GetAttribute('defaultColWidth');
 		default_width := trystrtofloat(default_width, r) ? r: -1;
-		if not ifObj(col_node) then return array(0, default_width);
+		if not ifObj(col_node) then return nil;
 
 		col_number := ColumnNameToNumber(col)[1];
 		node := col_node.FirstChildElement('col');

更新日志.md

@@ -1,5 +1,15 @@
 # 更新日志
 
+## 2025-12-15
+
+#### word
+
+1. 修复插入word时，单元格内容不完整问题
+
+#### excel
+
+1. 修复`GetColWithd`返回值出现数组问题，没有设置宽度返回`nil`
+
 ## 2025-11-07
 
 ### V1.8.4