diff --git a/funcext/TSOffice/TOfficeObj.tsf b/funcext/TSOffice/TOfficeObj.tsf
index 7579cae..995bb33 100644
--- a/funcext/TSOffice/TOfficeObj.tsf
+++ b/funcext/TSOffice/TOfficeObj.tsf
@@ -1,4 +1,4 @@
-// Version 1.3.8
+// Version 1.3.9
 
 Function TOfficeObj(n);
 Begin
diff --git a/funcext/TSOffice/TSDocxFile.tsf b/funcext/TSOffice/TSDocxFile.tsf
index 6afc5d2..55f3ec6 100644
--- a/funcext/TSOffice/TSDocxFile.tsf
+++ b/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 
diff --git a/funcext/TSOffice/TSExcelFile.tsf b/funcext/TSOffice/TSExcelFile.tsf
index d76434b..2f3f39b 100644
--- a/funcext/TSOffice/TSExcelFile.tsf
+++ b/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
diff --git a/更新日志.md b/更新日志.md
index 0166348..d6b951d 100644
--- a/更新日志.md
+++ b/更新日志.md
@@ -1,5 +1,13 @@
 # 更新日志
 
+## 2023-8-7
+
+### V1.3.9
+
+#### word
+
+支持`AddHeading`时传入样式Id
+
 ## 2023-8-2
 
 ### V1.3.8