v1.8.2

funcext/TSOffice/TOfficeObj.tsf

@@ -1,4 +1,4 @@
-// Version 1.8.1
+// Version 1.8.2
 Function TOfficeObj(n);
 Begin
 	case lowercase(n) of
@@ -11143,17 +11143,34 @@ Type TParagraph = Class(DocObject, TParagraphImpl)
 	Begin
 		if ifObj(node_) then
 		begin
-			if ifObj(node_.FirstChildElement("w:r")) then return false;
 			sub_node := node_.FirstChildElement();
 			if not ifObj(sub_node) then return true;
-			// 兼容wps
 			sub_node2 := sub_node.NextElement();
-			if sub_node.GetName() = 'w:bookmarkStart' and ifObj(sub_node2) and sub_node2.GetName() = 'w:bookmarkEnd' then
+
-				return true;
+			sub_node_name := sub_node.GetName();
+			if sub_node_name = "w:r" then
+			begin
+				r_sub_node := sub_node.FirstChildElement();
+				if not ifObj(r_sub_node) then return true;
+				while ifObj(r_sub_node) do
+				begin
+					sub_node2_name := r_sub_node.GetName();
+					if sub_node2_name = 'w:t' and trim(r_sub_node.GetText()) <> '' then return fasle;
+					else if sub_node2_name in array('mc:AlternateContent', 'w:drawing', 'w:pict', 'w:object') then return false;
+					r_sub_node := r_sub_node.NextElement();	
+				end
+			end
 			// 兼容word
-			if sub_node.GetName() = 'w:pPr' and not ifObj(sub_node2) then
+			else if sub_node_name = 'w:pPr' and not ifObj(sub_node2) then
+			begin
 				return true;
 			end
+			// 兼容wps
+			else if sub_node_name = 'w:bookmarkStart' and ifObj(sub_node2) and sub_node2.GetName() = 'w:bookmarkEnd' then
+			begin
+				return true;
+			end
+		end
 		return false;
 	End;
 
@@ -14144,7 +14161,7 @@ Type TDocumentBody = Class(DocObject)
 							r[ind]['numId'] := arr[ii]['numId'];
 							r[ind]['ilvl'] := arr[ii]['ilvl'];
 							r[ind]['numArr'] := arr[ii]['numArr'];
-							ind++
+							ind++;
 						end
 					End;
 				End;

funcext/TSOffice/TSDocxFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.8.1
+// Version 1.8.2
 Type TSDocxFile = Class
 	///Version: V1.0 2022-09-20
 	///适用于 Microsoft Word docx格式文件
@@ -113,7 +113,10 @@ Type TSDocxFile = Class
 	///返回：string
 	Function FileName();
 	Begin
-		return zipfile_.FileName();
+		file_name := zipfile_.FileName();
+		if TOfficeApi().IsUtf8() then
+			return AnsiToUTF8(file_name);
+		return file_name;
 	End;
 	
 	///word文档所有段落

funcext/TSOffice/TSXlsxFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.8.1
+// Version 1.8.2
 Type TSXlsxFile = Class
 	///Version: V1.0 2022-08-08
 	///适用于 Microsoft Excel? 2007 及以上版本创建的电子表格文档。支持 XLSX / XLSM / XLTM / XLTX 等多种文档格式。
@@ -103,7 +103,10 @@ Type TSXlsxFile = Class
 	///返回: string
 	Function FileName();
 	Begin
-		return zipfile_.FileName();
+		file_name := zipfile_.FileName();
+		if TOfficeApi().IsUtf8() then
+			return AnsiToUTF8(file_name);
+		return file_name;
 	End;
 
 	///获取工作表列表

funcext/TSOffice/worksheet/xlsxWorkBook.tsf

@@ -1610,9 +1610,9 @@ private
 	Function copyFile(obj, target, content);
 	Begin
 		file_name := ReplaceStr(target, '..', 'xl');
-		counts := GetFilesCount(ReplaceStrByReg(file_name, "\\d+.*ml", '')) + 1;
+		counts := GetFilesCount(ReplaceStrUsingReg(file_name, "\\d+.*ml", '')) + 1;
 		xml := GetXmlFileObj(file_name);
-		new_file_postfix := ReplaceStrByReg(file_name[3:], "\\d+", inttostr(counts));
+		new_file_postfix := ReplaceStrUsingReg(file_name[3:], "\\d+", inttostr(counts));
 		zipfile_.Add('xl' + new_file_postfix, xml.Data());
 		obj.SetAttribute('Target', '..' + new_file_postfix);
 
@@ -1624,6 +1624,17 @@ private
 		return array(counts, 'xl' + new_file_postfix);
 	End;
 
+	function ReplaceStrUsingReg(s, regFromText, toText);
+	begin
+		ParseCtrls := 'r';
+		if ifnil(toText) then toText := '';
+		ParseRegExpr(RegFromText,s,ParseCtrls,toText,s2);
+		if ansicontainstext(ParseCtrls,'r') then //表替换，输出s2
+			return ifstring(s2)?s2:s;
+		else
+			return ifArray(toText) and length(toText) > 0 ? toText : array();
+	end;
+
 	sheetsCount_:integer;
 	sheetNames_;
 	sheetIndexMap_;

更新日志.md

@@ -1,5 +1,19 @@
 # 更新日志
 
+## 2025-10-29
+
+### V1.8.2
+
+### word
+
+1. 升级段落判空`Empty`
+2. 修复`FileName`总是返回 gbk
+
+### excel
+
+1. 修复`CopySheet`依赖的`ReplaceStrByReg`公共方法问题，不再依赖该方法
+2. 修复`FileName`总是返回 gbk
+
 ## 2025-7-22
 
 ### V1.8.1
@@ -41,13 +55,13 @@ docx.AddParagraph(p, -1);
 #### word
 
 1. **feat**：支持目录自定义宽度`TOfficeApi().Get("TTableContent-tab-position")`
-2. **fix**：插入图片id计算错误，导致`office 2016 16.0.4266`版本不兼容
+2. **fix**：插入图片 id 计算错误，导致`office 2016 16.0.4266`版本不兼容
 
 ## 2025-1-22
 
 ### V1.7.8
 
-❗解决`TSDocxFile`和`TSXlsxFile`内存泄露
+❗ 解决`TSDocxFile`和`TSXlsxFile`内存泄露
 
 #### word