v1.8.4

funcext/TSOffice/TOfficeObj.tsf

@@ -1,4 +1,4 @@
-// Version 1.8.3
+// Version 1.8.4
 Function TOfficeObj(n);
 Begin
 	case lowercase(n) of
@@ -15093,10 +15093,16 @@ Type TTable = Class(DocObject, TTableImpl)
 		for row:=top2 to bottom2 do Begin
 			c := Cell(row, left2);
 			c.mergeSpan_ := val;
+			if left2 <> right2 then
+			begin
 				gridSpan := class(TSXml).GetNode(c.node_, 'w:tcPr/w:gridSpan', true);
 				gridSpan.SetAttribute('w:val', val);
+			end
+			if top2 <> bottom2 then
+			begin
 				node := class(TSXml).GetNode(c.node_, 'w:tcPr/w:vMerge', true);
 				node.SetAttribute('w:val', row=top2 ? 'restart' : 'continue');
+			end
 			if row <> top2 then Begin
 				if not del then 
 					theCell.Append(c);

funcext/TSOffice/TSDocxFile.tsf

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

funcext/TSOffice/TSXlsxFile.tsf

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

更新日志.md

@@ -1,5 +1,13 @@
 # 更新日志
 
+## 2025-11-07
+
+### V1.8.4
+
+#### word
+
+1. 修复合并单元格时候设置属性不规范
+
 ## 2025-10-30
 
 ### V1.8.3