v1.1.3

Demo/excel_demo.tsl

@@ -517,6 +517,14 @@ protect.SelectUnLockedCells := true;
 excel.ProtectSheet(sheetName2, protect);
 println("[success] ProtectSheet");
 
+// SetDefaultFont
+font := tofficeobj('tfont');
+font.name := '黑体';
+font.size := 13;
+font.themecolor := 1;
+excel.SetDefaultFont(font);
+println("[success] SetDefaultFont");
+
 [err, errmsg] := excel.saveas("", "d:\\temp\\test.xlsx");
 println("saveas : {}", err);
 

funcext/TSOffice/TOfficeObj.tsf

@@ -1,4 +1,4 @@
-// Version 1.1.2
+// Version 1.1.3
 
 Function TOfficeObj(n);
 Begin
@@ -5152,7 +5152,7 @@ type TwFont=class(NodeInfo)
 	Function GetAttrs(); override;
 	Begin
 		HandleAttrs();
-		return array(("eastAsia", "w:eastAsia", XMLeastAsia, "东亚字体"),("eastAsiaTheme", "w:eastAsiaTheme", XMLeastAsiaTheme, "东亚主题字体"),("hAnsi", "w:hAnsi", XMLhAnsi, "Specifies a font which shall be used to format all characters in a Unicode range within the parent run which does not fall into one of the three categories defined above, which is called the high ANSI range in WordprocessingML."),("hAnsiTheme", "w:hAnsiTheme", XMLhAnsiTheme, "Specifies a theme font which shall be used to format all characters in a Unicode range within the parent run which does not fall into one of the three categories defined above, which is called the high ANSI range in WordprocessingML. "),("hint", "w:hint", XMLhint, "Specifies the font type which shall be used to format any ambiguous characters in the current run."),("ascii", "w:ascii", XMLascii, "Specifies a font which shall be used to format all characters in the ASCII range (0 - 127) within the parent run."),("asciiTheme", "w:asciiTheme", XMLasciiTheme, "Specifies a theme font which shall be used to format all characters in the ASCII range (0 - 127) within the parent run."),("cs", "w:cs", XMLcs, "Specifies a font which shall be used to format all characters in a complex script Unicode range within the parent run."),("csTheme", "w:csTheme", XMLcsTheme, "Specifies a theme font which shall be used to format all characters in a complex script Unicode range within the parent run. ")) union ExtAttr;
+		return array(("eastAsia", "w:eastAsia", XMLeastAsia, "东亚字体"),("eastAsiaTheme", "w:eastAsiaTheme", XMLeastAsiaTheme, "东亚主题字体"),("hAnsi", "w:hAnsi", XMLhAnsi, "Unicode范围内的所有字符（该范围不属于上面定义的三个类别之一）字体."),("hAnsiTheme", "w:hAnsiTheme", XMLhAnsiTheme, "Unicode范围内的所有字符（该范围不属于上面定义的三个类别之一）主题字体. "),("hint", "w:hint", XMLhint, "指定用于设置当前运行中任何不明确字符格式的字体类型."),("ascii", "w:ascii", XMLascii, "ASCII range (0 - 127) 字体."),("asciiTheme", "w:asciiTheme", XMLasciiTheme, "ASCII range (0 - 127) 主题字体."),("cs", "w:cs", XMLcs, "字体：格式化复杂脚本Unicode范围内的所有字符."),("csTheme", "w:csTheme", XMLcsTheme, "主题字体：格式化复杂脚本Unicode范围内的所有字符. ")) union ExtAttr;
 	End;
 
 	Function GetChildren(); override;
@@ -5215,7 +5215,7 @@ type TwrPr=class(NodeInfo)
 		HandleChildren();
 		return array(("field":"rFont","name":rFont.NodeName,"obj":rFont,"attrEx":"","nodeType":"","attrName":"", "desc":"", "class":"TwFont")
 			,("field":"Bold","name":"w:b","obj":Bold,"attrEx":"","nodeType":"empty","attrName":"", "desc":"黑体", "class":"")
-			,("field":"noProof","name":"w:noProof","obj":noProof,"attrEx":"","nodeType":"empty","attrName":"", "desc":"Do Not Check Spelling or Grammar)", "class":"")
+			,("field":"noProof","name":"w:noProof","obj":noProof,"attrEx":"","nodeType":"empty","attrName":"", "desc":"不检查拼写或语法)", "class":"")
 			,("field":"Color","name":"w:color","obj":Color,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"字体颜色", "class":"")
 			,("field":"bCs","name":"w:bCs","obj":bCs,"attrEx":"","nodeType":"empty","attrName":"", "desc":"复杂脚本黑体", "class":"")
 			,("field":"Italic","name":"w:i","obj":Italic,"attrEx":"","nodeType":"empty","attrName":"", "desc":"斜体", "class":"")
@@ -5225,10 +5225,10 @@ type TwrPr=class(NodeInfo)
 			,("field":"Size","name":"w:sz","obj":Size,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"字体大小", "class":"")
 			,("field":"szCs","name":"w:szCs","obj":szCs,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"复杂脚本字体大小", "class":"")
 			,("field":"U","name":"w:u","obj":U,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"下划线", "class":"")
-			,("field":"vertAlign","name":"w:vertAlign","obj":vertAlign,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"This element specifies the alignment which shall be applied to the contents of this run in relation to the default appearance of the run's text. This allows the text to be repositioned as subscript or superscript without altering the font size of the run properties.", "class":"")
+			,("field":"vertAlign","name":"w:vertAlign","obj":vertAlign,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"对齐方式.", "class":"")
-			,("field":"eastAsia","name":"w:lang","obj":eastAsia,"attrEx":"w:eastAsia","nodeType":"","attrName":"", "desc":"Specifies the language which shall be used when processing the contents of this run which use East Asian characters, as determined by the Unicode character values of the run content.", "class":"")
+			,("field":"eastAsia","name":"w:lang","obj":eastAsia,"attrEx":"w:eastAsia","nodeType":"","attrName":"", "desc":"处理使用东亚字符的运行内容时应使用的语言.", "class":"")
-			,("field":"Lang","name":"w:lang","obj":Lang,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"Specifies the language which shall be used to check spelling and grammar (if requested) when processing the contents of this run which use Latin characters, as determined by the Unicode character values of the run content.", "class":"")
+			,("field":"Lang","name":"w:lang","obj":Lang,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"处理使用拉丁字符的本次运行内容时用于检查拼写和语法的语言.", "class":"")
-			,("field":"bidi","name":"w:lang","obj":bidi,"attrEx":"w:bidi","nodeType":"","attrName":"", "desc":"Specifies the language which shall be used when processing the contents of this run which use complex script characters, as determined by the Unicode character values of the run content.", "class":"")
+			,("field":"bidi","name":"w:lang","obj":bidi,"attrEx":"w:bidi","nodeType":"","attrName":"", "desc":"处理使用复杂脚本字符的运行内容时应使用的语言.", "class":"")
 			,("field":"Del","name":Del.NodeName,"obj":Del,"attrEx":"","nodeType":"","attrName":"", "desc":"disable", "class":"TOptInfo")
 			) union ExtNodes;
 	End;
@@ -7057,7 +7057,7 @@ type TPageMargin=class(NodeInfo)
 	Function GetAttrs(); override;
 	Begin
 		HandleAttrs();
-		return array(("gutter", "w:gutter", gutter, "Specifies the page gutter for each page in the current section."),("footer", "w:footer", footer, "Specifies the distance (in twentieths of a point) from the bottom edge of the page to the bottom edge of the footer."),("header", "w:header", header, "Specifies the distance (in twentieths of a point) from the top edge of the page to the top edge of the header."),("left", "w:left", left, "Specifies the distance (in twentieths of a point) between the left edge of the page and the left edge of the text extents for this document."),("bottom", "w:bottom", bottom, "Specifies the distance (in twentieths of a point) between the bottom of the text margins for the main document and the bottom of the page for all pages in this section."),("right", "w:right", right, "Specifies the distance (in twentieths of a point) between the right edge of the page and the right edge of the text extents for this document."),("top", "w:top", top, "Specifies the distance (in twentieths of a point) between the top of the text margins for the main document and the top of the page for all pages in this section.")) union ExtAttr;
+		return array(("gutter", "w:gutter", gutter, "当前节中每页的页边距."),("footer", "w:footer", footer, "指定从页面底部边缘到页脚底部边缘的距离（以二十分之一点为单位）."),("header", "w:header", header, "指定从页面上边缘到页眉上边缘的距离（以二十分之一为单位）."),("left", "w:left", left, "指定页面左边缘与此文档文本范围左边缘之间的距离（以点的二十分之一为单位）."),("bottom", "w:bottom", bottom, "指定主文档的文本页边距底部与本节中所有页面的页面底部之间的距离（以二十分之一为单位）."),("right", "w:right", right, "指定页面右边缘与此文档文本范围右边缘之间的距离（以点的二十分之一为单位）."),("top", "w:top", top, "指定主文档的文本页边距顶部与本节中所有页面的页面顶部之间的距离（以二十分之一为单位）.")) union ExtAttr;
 	End;
 
 	Function GetChildren(); override;
@@ -7106,7 +7106,7 @@ type TDocGrid=class(NodeInfo)
 	Function GetAttrs(); override;
 	Begin
 		HandleAttrs();
-		return array(("charSpace", "w:charSpace", charSpace, ""),("charSize", "w:charSize", charSize, "Document Grid Character Pitch"),("linePitch", "w:linePitch", linePitch, "Document Grid Line Pitch"),("Type", "w:type", Type, "Document Grid Type")) union ExtAttr;
+		return array(("charSpace", "w:charSpace", charSpace, "字符间距"),("charSize", "w:charSize", charSize, "文档网格字符间距"),("linePitch", "w:linePitch", linePitch, "文档网格线间距"),("Type", "w:type", Type, "文档网格线类型")) union ExtAttr;
 	End;
 
 	Function GetChildren(); override;
@@ -7255,14 +7255,14 @@ type TPage=class(NodeInfo)
 	Function GetAttrs(); override;
 	Begin
 		HandleAttrs();
-		return array(("Code", "w:code", Code, "Specifies a printer-specific paper code for the paper type, which shall be used by the printer for pages in this section."),("Height", "w:h", Height, "Specifies the height (in twentieths of a point) for all pages in the current section.")) union ExtAttr;
+		return array(("Code", "w:code", Code, "纸张类型（指定打印机特定的纸张代码）."),("Height", "w:h", Height, "当前节中所有页面的高度（以二十分之一点为单位）.")) union ExtAttr;
 	End;
 
 	Function GetChildren(); override;
 	Begin
 		HandleChildren();
-		return array(("field":"Weight","name":"w:w","obj":Weight,"attrEx":"","nodeType":"","attrName":"", "desc":"This attribute indicates the width (in twentieths of a point) for all pages in the current section.", "class":"")
+		return array(("field":"Weight","name":"w:w","obj":Weight,"attrEx":"","nodeType":"","attrName":"", "desc":"此属性表示当前节中所有页面的宽度（以二十分之一为单位）.", "class":"")
-			,("field":"Orient ","name":"w:orient ","obj":Orient ,"attrEx":"","nodeType":"","attrName":"", "desc":"Specifies the orientation of all pages in this section.", "class":"")
+			,("field":"Orient ","name":"w:orient ","obj":Orient ,"attrEx":"","nodeType":"","attrName":"", "desc":"指定此节中所有页面的方向.", "class":"")
 			) union ExtNodes;
 	End;
 
@@ -7325,16 +7325,16 @@ type TDocSectionImpl=class(NodeInfo)
 		HandleChildren();
 		return array(("field":"Header","name":Header.NodeName,"obj":Header,"attrEx":"","nodeType":"","attrName":"", "desc":"disable", "class":"TReference")
 			,("field":"Footer","name":Footer.NodeName,"obj":Footer,"attrEx":"","nodeType":"","attrName":"", "desc":"disable", "class":"TReference")
-			,("field":"bidi","name":"w:bidi","obj":bidi,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"Right to Left Section Layout", "class":"")
+			,("field":"bidi","name":"w:bidi","obj":bidi,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"章节从右到左的布局", "class":"")
 			,("field":"cols","name":cols.NodeName,"obj":cols,"attrEx":"","nodeType":"","attrName":"", "desc":"Column Definitions", "class":"TCols")
 			,("field":"docGrid","name":docGrid.NodeName,"obj":docGrid,"attrEx":"","nodeType":"","attrName":"", "desc":"Document Grid", "class":"TDocGrid")
 			,("field":"pgMar","name":pgMar.NodeName,"obj":pgMar,"attrEx":"","nodeType":"","attrName":"", "desc":"Page Margin设置", "class":"TPageMargin")
 			,("field":"Page","name":Page.NodeName,"obj":Page,"attrEx":"","nodeType":"","attrName":"", "desc":"页面设置", "class":"TPage")
 			,("field":"Borders","name":Borders.NodeName,"obj":Borders,"attrEx":"","nodeType":"","attrName":"", "desc":"页面边框属性", "class":"TPageBorders")
-			,("field":"titlePg","name":"w:titlePg","obj":titlePg,"attrEx":"","nodeType":"empty","attrName":"", "desc":"This element specifies whether the parent section in this document shall have a different header and footer for its first page.", "class":"")
+			,("field":"titlePg","name":"w:titlePg","obj":titlePg,"attrEx":"","nodeType":"empty","attrName":"", "desc":"第一页是否有不同的页眉和页脚.", "class":"")
-			,("field":"vAlign","name":"w:vAlign","obj":vAlign,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"This element specifies the vertical alignment for text on pages in the current section, relative to the top and bottom margins in the main document story on each page.", "class":"")
+			,("field":"vAlign","name":"w:vAlign","obj":vAlign,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"当前章节，文本上下边距的垂直对齐方式.", "class":"")
-			,("field":"Type","name":"w:type","obj":Type,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"This element specifies the type of the current section. The section type specifies how the contents of the current section shall be placed relative to the previous section.", "class":"")
+			,("field":"Type","name":"w:type","obj":Type,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"当前节的类型（指定当前节的内容相对于上一节的放置方式）.", "class":"")
-			,("field":"textDirection","name":"w:textDirection","obj":textDirection,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"This element specifies the direction of the text flow for this section.", "class":"")
+			,("field":"textDirection","name":"w:textDirection","obj":textDirection,"attrEx":"w:val","nodeType":"","attrName":"", "desc":"此节的文本方向.", "class":"")
 			) union ExtNodes;
 	End;
 
@@ -7645,7 +7645,7 @@ type TwShading=class(NodeInfo)
 	Function GetAttrs(); override;
 	Begin
 		HandleAttrs();
-		return array(("Val", "w:val", Val, "Specifies the pattern which shall be used to lay the pattern color over the background color for this paragraph shading.This pattern consists of a mask which is applied over the background shading color to get the locations where the pattern color should be shown. Each of these possible masks are shown in the simple type values referenced below."),("Color", "w:color", Color, "foreground: RRGGBB format or auto"),("Fill", "w:fill", Fill, "background: RRGGBB format or auto"),("ThemeColor", "w:themeColor", ThemeColor, "foreground: theme color"),("ThemeFill", "w:themeFill", ThemeFill, "background: theme color"),("ThemeFillShade", "w:themeFillShade", ThemeFillShade, "shading color: theme color"),("ThemeFillTint", "w:themeFillTint", ThemeFillTint, "tint value applied to the supplied theme color (if any) for this shading instance."),("ThemeShade", "w:themeShade", ThemeShade, "Specifies the shade value applied to the supplied theme color (if any) for this shading color."),("ThemeTint", "w:themeTint", ThemeTint, "Specifies the tint value applied to the supplied theme color (if any) for this shading instance.")) union ExtAttr;
+		return array(("Val", "w:val", Val, "指定用于将图案颜色覆盖在此段落底纹的背景色上的图案。此图案由应用于背景底纹颜色上的遮罩组成，以获得应显示图案颜色的位置。."),("Color", "w:color", Color, "前景颜色: RRGGBB format or auto"),("Fill", "w:fill", Fill, "背景颜色: RRGGBB format or auto"),("ThemeColor", "w:themeColor", ThemeColor, "前景主题颜色: theme color"),("ThemeFill", "w:themeFill", ThemeFill, "背景主题颜色: theme color"),("ThemeFillShade", "w:themeFillShade", ThemeFillShade, "阴影颜色: theme color"),("ThemeFillTint", "w:themeFillTint", ThemeFillTint, "tint 主题填充颜色."),("ThemeShade", "w:themeShade", ThemeShade, "主题阴影颜色."),("ThemeTint", "w:themeTint", ThemeTint, "tint主题阴影颜色.")) union ExtAttr;
 	End;
 
 	Function GetChildren(); override;
@@ -7702,14 +7702,14 @@ type TTblCellMar=class(NodeInfo)
 	Function GetChildren(); override;
 	Begin
 		HandleChildren();
-		return array(("field":"Top","name":"w:top","obj":Top,"attrEx":"w:w","nodeType":"","attrName":"", "desc":"Table Cell Top Margin, Specifies the value of the width property.", "class":"")
+		return array(("field":"Top","name":"w:top","obj":Top,"attrEx":"w:w","nodeType":"","attrName":"", "desc":"表格单元格上边距，指定宽度属性的值.", "class":"")
-			,("field":"TopType","name":"w:top","obj":TopType,"attrEx":"w:type","nodeType":"","attrName":"", "desc":"Table Cell Top Margin, Specifies the units of the width property,auto (Automatically Determined Width),dxa (Width in Twentieths of a Point)nil (No Width)pct (Width in Fiftieths of a Percent)", "class":"")
+			,("field":"TopType","name":"w:top","obj":TopType,"attrEx":"w:type","nodeType":"","attrName":"", "desc":"宽度属性的单位，auto（自动确定的宽度）、dxa（点的二十分之一宽度）nil（无宽度）pct（百分之五十宽度）", "class":"")
-			,("field":"Left","name":"w:left","obj":Left,"attrEx":"w:w","nodeType":"","attrName":"", "desc":"Table Cell Left Margin, Specifies the value of the width property.", "class":"")
+			,("field":"Left","name":"w:left","obj":Left,"attrEx":"w:w","nodeType":"","attrName":"", "desc":"表格单元格左边距，指定宽度属性的值.", "class":"")
-			,("field":"LeftType","name":"w:left","obj":LeftType,"attrEx":"w:type","nodeType":"","attrName":"", "desc":"Table Cell Left Margin, Specifies the units of the width property", "class":"")
+			,("field":"LeftType","name":"w:left","obj":LeftType,"attrEx":"w:type","nodeType":"","attrName":"", "desc":"宽度属性的单位，auto（自动确定的宽度）、dxa（点的二十分之一宽度）nil（无宽度）pct（百分之五十宽度）", "class":"")
-			,("field":"Bottom","name":"w:bottom","obj":Bottom,"attrEx":"w:w","nodeType":"","attrName":"", "desc":"Table Cell Bottom Margin, Specifies the value of the width property.", "class":"")
+			,("field":"Bottom","name":"w:bottom","obj":Bottom,"attrEx":"w:w","nodeType":"","attrName":"", "desc":"表格单元格底边距，指定宽度属性的值..", "class":"")
-			,("field":"BottomType","name":"w:bottom","obj":BottomType,"attrEx":"w:type","nodeType":"","attrName":"", "desc":"Table Cell Bottom Margin, Specifies the units of the width property", "class":"")
+			,("field":"BottomType","name":"w:bottom","obj":BottomType,"attrEx":"w:type","nodeType":"","attrName":"", "desc":"宽度属性的单位，auto（自动确定的宽度）、dxa（点的二十分之一宽度）nil（无宽度）pct（百分之五十宽度）", "class":"")
-			,("field":"Right","name":"w:right","obj":Right,"attrEx":"w:w","nodeType":"","attrName":"", "desc":"Table Cell Right Margin, Specifies the value of the width property.", "class":"")
+			,("field":"Right","name":"w:right","obj":Right,"attrEx":"w:w","nodeType":"","attrName":"", "desc":"表格单元格右边距，指定宽度属性的值..", "class":"")
-			,("field":"RightType","name":"w:right","obj":RightType,"attrEx":"w:type","nodeType":"","attrName":"", "desc":"Table Cell Right Margin, Specifies the units of the width property", "class":"")
+			,("field":"RightType","name":"w:right","obj":RightType,"attrEx":"w:type","nodeType":"","attrName":"", "desc":"宽度属性的单位，auto（自动确定的宽度）、dxa（点的二十分之一宽度）nil（无宽度）pct（百分之五十宽度）", "class":"")
 			) union ExtNodes;
 	End;
 
@@ -7891,7 +7891,7 @@ type TwBorder=class(NodeInfo)
 	Function GetAttrs(); override;
 	Begin
 		HandleAttrs();
-		return array(("Val", "w:val", Val, "Specifies the style of border used on this object."),("Color", "w:color", Color, "Specifies the color for this border."),("ThemeColor", "w:themeColor", ThemeColor, "Specifies a theme color to be applied to the current border."),("ThemeTint", "w:themeTint", ThemeTint, "Specifies the tint value applied to the supplied theme color (if any) for this border instance."),("Size", "w:sz", Size, "Specifies the width of the current border."),("Frame", "w:frame", Frame, "Specifies whether the specified border should be modified to create a frame effect by reversing the border's appearance from the edge nearest the text to the edge furthest from the text."),("Shadow", "w:shadow", Shadow, "Specifies whether this border should be modified to create the appearance of a shadow."),("Space", "w:space", Space, "Specifies the spacing offset that shall be used to place this border on the parent object."),("ThemeShade", "w:themeShade", ThemeShade, "Specifies the shade value applied to the supplied theme color (if any) for this border instance.")) union ExtAttr;
+		return array(("Val", "w:val", Val, "指定边框样式."),("Color", "w:color", Color, "边框颜色."),("ThemeColor", "w:themeColor", ThemeColor, "边框主题颜色."),("ThemeTint", "w:themeTint", ThemeTint, "指定应用于此边框实例提供的主题颜色（如果有）的色调值."),("Size", "w:sz", Size, "边框宽度."),("Frame", "w:frame", Frame, "指定是否应修改指定的边框，以通过将边框外观从离文本最近的边缘反转到离文本最远的边缘来创建框架效果."),("Shadow", "w:shadow", Shadow, "边框阴影."),("Space", "w:space", Space, "放置此边框的间距偏移."),("ThemeShade", "w:themeShade", ThemeShade, "边框阴影的主题颜色.")) union ExtAttr;
 	End;
 
 	Function GetChildren(); override;
@@ -12015,9 +12015,7 @@ Type TDocumentBody = Class(DocObject)
 		parts := getDocumentObjects(node_, 'w:p');
 		r := array();
 		for i:=0 to length(parts)-1 do Begin
-			r[i] := new TParagraph();
+			r[i] := new TParagraph(parts[i].node_);
-			r[i].name_ := 'w:p';
-			r[i].node_ := parts[i].node_;
 		End;
 		return r;
 	End;
@@ -12033,9 +12031,7 @@ Type TDocumentBody = Class(DocObject)
 			paragraph.Format.StyleId := styleId;
 		End;
 		addPart(posOpt, paragraph);
-		p := new TParagraph();
+		p := new TParagraph(paragraph.node_);
-		p.node_ := paragraph.node_;
-		p.name_ := 'w:p';
 		//复制段落字体属性
 		p.CopyRunFormat(false, nil);
 		_set_lastParagraph_(posOpt, p.node_);//设置最后一个段落
@@ -13932,7 +13928,7 @@ Begin
 	'w:del','w:ins':
 		p := new TRevision(node);
 	'w:p':
-		p := new TParagraph();
+		p := new TParagraph(node);
 	'w:tbl':
 		p := new TTable(node);
 	'w:r':
@@ -14175,4 +14171,3 @@ private
     middlePosition;
 
 End
-

funcext/TSOffice/TSDocxFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.1.2
+// Version 1.1.3
 
 Type TSDocxFile = Class
 	///Version: V1.0 2022-09-20

funcext/TSOffice/TSExcelFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.1.2
+// Version 1.1.3
 
 Type TSExcelFile = Class
 	///Version: V1.0 2022-08-08
@@ -832,6 +832,13 @@ Type TSExcelFile = Class
 		return workbook_.UnProtectSheet(class(TSXml).CurCodePageToUtf8(sheet));
 	End;
 
+	///设置默认字体
+	///font: TFont对象
+	Function SetDefaultFont(font);
+	Begin
+		return workbook_.SetDefaultFont(font);
+	End;
+
 	Function WorkBook();
 	Begin
 		return workbook_;

funcext/TSOffice/worksheet/xlsxWorkBook.tsf

@@ -1124,6 +1124,15 @@ Type xlsxWorkBook = Class
 		return view_id;
 	End;
 
+	Function SetDefaultFont(font);
+	Begin
+		style_xml := GetXmlFileObj('xl/styles.xml');
+		fonts_node := style_xml.FirstChildElement('styleSheet').FirstChildElement('fonts');
+		first_node := fonts_node.FirstChildElement('font');
+		fonts_node.DeleteChild(first_node);
+		fonts_node.InsertFirstChild(font.Marshal());
+	End;
+
 private
 	Function generateRow(c1, c2, r);
 	Begin

更新日志.md

@@ -1,5 +1,18 @@
 # 更新日志
 
+## 2023-2-1
+
+### V1.1.3
+
+#### word
+
+1. 修复获取段落样式ID失败问题
+2. 修复文本框添加图片失败问题
+
+#### excel
+
+1. 新增`SetDefaultFont`
+
 ## 2023-1-31
 
 ### V1.1.2
@@ -7,7 +20,6 @@
 #### word
 
 1. 完善帮助文档
-2. 修复获取chart图无法获取对应属性值
 
 #### excel