v1.3.9

funcext/TSOffice/TOfficeObj.tsf

@@ -1,4 +1,4 @@
-// Version 1.3.8
+// Version 1.3.9
 
 Function TOfficeObj(n);
 Begin

funcext/TSOffice/TSDocxFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.3.8
+// Version 1.3.9
 
 Type TSDocxFile = Class
 	///Version: V1.0 2022-09-20
@@ -141,6 +141,7 @@ Type TSDocxFile = Class
 	///返回TParagraph对象
 	Function AddHeading(title, posOpt, level);
 	Begin
+		if ifstring(level) then return document_.Body().AddHeading(title, getPosNode(posOpt), level);
 		styleName := level = 0 ? 'Title' : 'Heading ' $ level;
 		style := StyleObject().GetStyle(styleName);
 		if not ifObj(style) and ifInt(level) and level >= 0 and level <= 9 then 

funcext/TSOffice/TSExcelFile.tsf

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

更新日志.md

@@ -1,5 +1,13 @@
 # 更新日志
 
+## 2023-8-7
+
+### V1.3.9
+
+#### word
+
+支持`AddHeading`时传入样式Id
+
 ## 2023-8-2
 
 ### V1.3.8