v1.0.6

Demo/excel_demo.tsl

@@ -1,4 +1,4 @@
-class(xlsxXml).CodePage('中文');
+TOfficeApi().CodePage('中文');
 
 testCount := 0;
 sheetName := "你好";
@@ -207,10 +207,6 @@ End;
 [err, col, row] := excel.SplitCellName("AK47");
 if not err then println("[success] {} = col : {}, row = {}", "SplitCellName", col, row);
 
-// JoinCellName
-[err, errmsg] := excel.JoinCellName("AK", 47);
-PrintInfo("JoinCellName", err, errmsg);
-
 // ColumnNameToNumber
 [err, errmsg] := excel.ColumnNameToNumber("AK");
 PrintInfo("ColumnNameToNumber", err, errmsg);
@@ -224,12 +220,12 @@ PrintInfo("ColumnNumberToName", err, errmsg);
 if not err then println("[success] {} = col : {}, row = {}", "CellNameToCoordinates", col, row);
 
 // RGBToHSL
-[err, h, s, l] := excel.RGBToHSL(255, 15, 33);
-if not err then println("[success] {} = {}, {}, {}", "RGBToHSL", h, s, l);
+[h, s, l] := excel.RGBToHSL(255, 15, 33);
+println("[success] {} = {}, {}, {}", "RGBToHSL", h, s, l);
 
 // HSLToRGB
-[err, r, g, b] := excel.HSLToRGB(h, s, l);
-if not err then println("[success] {} = {}, {}, {}", "HSLToRGB", h, s, l);
+[r, g, b] := excel.HSLToRGB(h, s, l);
+println("[success] {} = {}, {}, {}", "HSLToRGB", r, g, b);
 
 // NewStyle
 style := TOfficeObj('TStyle');
@@ -380,11 +376,11 @@ println("[success] GetDefaultSheet = {}", sheet);
 
 // SetCellHyperLink
 link := TOfficeObj('THyperLink');
-link.LinkType := "Location";
+link.LinkType := "location";
 link.LinkUrl := sheetName $ "!A1";
 excel.SetCellHyperLink(sheetName2, 'A1', link);
 link := TOfficeObj('THyperLink');
-link.LinkType := "External";
+link.LinkType := "external";
 link.LinkUrl := "https://www.baidu.com";
 link.Tooltip := "超链接悬浮提示";
 excel.SetCellValue(sheetName2, 'A2', '超链接');
@@ -393,7 +389,7 @@ println("[success] SetCellHyperLink");
 
 // GetCellHyperLink
 hyperlink := excel.GetCellHyperLink(sheetName2, 'A2');
-println("[success] GetCellHyperLink  LinkType = {}, LinkUrl = {}, Tooltip = {}", hyperlink.Value('LinkType'), hyperlink.Value('LinkUrl'), hyperlink.Value('Tooltip'));
+println("[success] GetCellHyperLink  LinkType = {}, LinkUrl = {}, Tooltip = {}", hyperlink.LinkType, hyperlink.LinkUrl, hyperlink.Tooltip);
 
 // SetSheetBackground
 ret := readfile(rwBinary(), "", "C:\\Users\\csh05\\Pictures\\Saved Pictures\\1.jpg", 0, 1024000, data);
@@ -454,11 +450,10 @@ core.Title := "标题";
 core.Subject := "主题";
 core.Creator := "作者";
 excel.SetCoreProps(core);
-println("[success] SetCoreProps");
 
 // GetCoreProps
 core := excel.GetCoreProps();
-println("[success] GetCoreProps  Title = {}, subject = {}, Creator = {}", core.Value("Title"), core.Value("Subject"), core.Value("Creator"));
+println("[success] GetCoreProps  Title = {}, subject = {}, Creator = {}", core.Title, core.Subject, core.Creator);
 
 // SetAppProps
 appProps := TOfficeObj('TAppProperty');
@@ -476,7 +471,7 @@ println("[success] SetAppProps");
 
 // GetAppProps
 app_props := excel.GetAppProps();
-println("[success] GetAppProps Manager = {}, Company = {}, Application = {}", app_props.Value('Manager'), app_props.Value('Company'), app_props.Value('Application'));
+println("[success] GetAppProps Manager = {}, Company = {}, Application = {}", app_props.Manager, app_props.Company, app_props.Application);
 
 [err, errmsg] := excel.saveas("", "d:\\temp\\test.xlsx");
 println("saveas : {}", err);

Demo/wordHelp.tsl

@@ -56,6 +56,9 @@ _13_TNumbering(docx);
 ///TDocxChart
 _14_TDocxChart(docx);
 
+///TOfficeApi
+_15_TOfficeApi(docx);
+
 ///附注
 _Annotation(docx);
 
@@ -790,6 +793,20 @@ Begin
 	println('  >>OK\n');
 End;
 
+///TOfficeApi
+Function _15_TOfficeApi(docx);
+Begin
+	paragraph := sysparams['Test'];
+	_PrintMsg('TOfficeApi接口');
+	_AddTitle(docx, 'TOfficeApi', 1);
+	
+	_AddTitle(docx, 'TOfficeApi接口', 2);
+	conf := _LoadClassInfo(docx.GetPath() + '\\funcext\\TSOffice\\TSUtils\\TOffice.tsf', 'TOffice');
+	_AddFunctionHelpInfo(docx, '' $ paragraph $ '.1.', conf, 3);
+	
+	println('  >>OK\n');
+End;
+
 Function _AddTitle(docx, subject, level);
 Begin
 	leftIndent := array((0,0), (425,425), (453,850), (708,1508));

funcext/TSOffice/TSDocxFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.0.5
+// Version 1.0.6
 
 Type TSDocxFile = Class
 	///Version: V1.0 2022-09-20
@@ -27,8 +27,9 @@ Type TSDocxFile = Class
 
 	Function init();
 	Begin
+		DocPrId_ := -1;
 		zipfile_ := new ZipFile();
-		xml_ := new xlsxXml();
+		xml_ := new TSXml();
 	End;
 
 	///打开docx文件
@@ -94,7 +95,7 @@ Type TSDocxFile = Class
 	///返回TParagraph对象
 	Function AddParagraph(paragraph, posOpt, styleId);
 	Begin
-		return document_.Body().AddParagraph(paragraph, posOpt, styleId);
+		return document_.Body().AddParagraph(paragraph, getPosNode(posOpt), styleId);
 	End;
 	
 	///添加标题
@@ -108,7 +109,7 @@ Type TSDocxFile = Class
 		style := StyleObject().GetStyle(styleName);
 		if not ifObj(style) and ifInt(level) and level >= 0 and level <= 9 then 
 			style := StyleObject().AddDefaultStyle(GetPath(), styleName);
-		return document_.Body().AddHeading(title, posOpt, ifObj(style) ? style.StyleId : nil);
+		return document_.Body().AddHeading(title, getPosNode(posOpt), ifObj(style) ? style.StyleId : nil);
 	End;
 	
 	///插入分页符
@@ -116,7 +117,7 @@ Type TSDocxFile = Class
 	///返回TParagraph对象
 	Function AddPageBreak(posOpt);
 	Begin
-		return document_.Body().AddBreak(posOpt, 'page');
+		return document_.Body().AddBreak(getPosNode(posOpt), 'page');
 	End;
 	
 	///插入换行符
@@ -124,7 +125,7 @@ Type TSDocxFile = Class
 	///返回TParagraph对象
 	Function AddLineBreak(posOpt);
 	Begin
-		return document_.Body().AddBreak(posOpt, '');
+		return document_.Body().AddBreak(getPosNode(posOpt), '');
 	End;
 	
 	///插入分栏符
@@ -132,7 +133,7 @@ Type TSDocxFile = Class
 	///返回TParagraph对象
 	Function AddColumnBreak(posOpt);
 	Begin
-		return document_.Body().AddBreak(posOpt, 'column');
+		return document_.Body().AddBreak(getPosNode(posOpt), 'column');
 	End;
 	
 	///删除指定段落
@@ -140,7 +141,7 @@ Type TSDocxFile = Class
 	///返回：true
 	Function DelParagraph(posOpt);
 	Begin
-		return document_.Body().DelParagraph(posOpt);
+		return document_.Body().DelParagraph(getPosNode(posOpt));
 	End;
 	
 	///word文档所有内容的文本串
@@ -150,8 +151,8 @@ Type TSDocxFile = Class
 		return document_.Body().Text();
 	End;
 	
-	///word文档所有内容的文本串数组，包含段落信息
-	///返回：array(("pNode":nodeObj, "pIndex":p, "rNode":nodeObj, "rIndex":r))
+	//word文档所有内容的文本串数组，包含段落信息
+	//返回：array(("pNode":nodeObj, "pIndex":p, "rNode":nodeObj, "rIndex":r))
 	Function TextArray();
 	Begin
 		return document_.Body().TextArray();
@@ -193,7 +194,7 @@ Type TSDocxFile = Class
 	///返回: TTable对象
 	Function InsertTable(tbl, posOpt);
 	Begin
-		return document_.Body().InsertTable(tbl, posOpt);
+		return document_.Body().InsertTable(tbl, getPosNode(posOpt));
 	End;
 
 	///返回CoreProperties对象
@@ -225,7 +226,7 @@ Type TSDocxFile = Class
 	///返回：TDocSection对象
 	Function AddSection(session, posOpt);overload;
 	Begin
-		return document_.Body().AddSection(session, posOpt);
+		return document_.Body().AddSection(session, getPosNode(posOpt));
 	End;
 	
 	///插入图片
@@ -234,7 +235,8 @@ Type TSDocxFile = Class
 	///返回：TPicture对象
 	Function AddPicture(picture, posOpt);
 	Begin
-		return document_.Body().AddPicture(picture, posOpt);
+		picture.Run.Drawing.WInline.ID := GetDocPrId();
+		return document_.Body().AddPicture(picture, getPosNode(posOpt));
 	End;
 	
 	///插入图表
@@ -246,9 +248,9 @@ Type TSDocxFile = Class
 		o := new TDocxChart(self, chart);
 		p := TOfficeObj('TParagraph');
 		p.Format.rPr.Lang := 'zh-CN';
-		p := AddParagraph(p, posOpt, nil);
-		chart.ChartNode := p.node_;
-		p.Node.InsertEndChild(o.GetInnerXml());
+		p := AddParagraph(p, getPosNode(posOpt), nil);
+		chart.pNode := p.node_;
+		p.Node().InsertEndChild(o.GetInnerXml());
 		return chart;
 	End;
 	
@@ -260,7 +262,7 @@ Type TSDocxFile = Class
 		uri := 'w:p/w:r/w:drawing/wp:inline/a:graphic/a:graphicData/c:chart';
 		ps := Paragraphs();
 		for i:=0 to length(ps)-1 do Begin
-			node := class(xlsxXml).GetNode(ps[i].node_, uri);
+			node := class(TSXml).GetNode(ps[i].node_, uri);
 			if ifObj(node) then Begin
 				chart := TOfficeObj('TChart');
 				chart.Init(self, ps[i].node_, node);
@@ -289,11 +291,11 @@ Type TSDocxFile = Class
 <w:comments xmlns:wpc="http://schemas.microsoft.com/office/word/2010/wordprocessingCanvas" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:wp14="http://schemas.microsoft.com/office/word/2010/wordprocessingDrawing" xmlns:wp="http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawing" xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:w14="http://schemas.microsoft.com/office/word/2010/wordml" xmlns:w15="http://schemas.microsoft.com/office/word/2012/wordml" xmlns:w10="urn:schemas-microsoft-com:office:word" xmlns:wpg="http://schemas.microsoft.com/office/word/2010/wordprocessingGroup" xmlns:wpi="http://schemas.microsoft.com/office/word/2010/wordprocessingInk" xmlns:wne="http://schemas.microsoft.com/office/word/2006/wordml" xmlns:wps="http://schemas.microsoft.com/office/word/2010/wordprocessingShape" xmlns:wpsCustomData="http://www.wps.cn/officeDocument/2013/wpsCustomData" mc:Ignorable="w14 w15 wp14"></w:comments>');
 			rels := 'word/_rels/document.xml.rels';
 			xmlfile := zipfile_.Get(rels);
-			[rId, target] := class(xlsxXml).FindRelationshipRid(xmlfile, '');
+			[rId, target] := class(TSXml).FindRelationshipRid(xmlfile, '');
 			rId ++;
-			class(xlsxXml).AddRelationshipRid(xmlfile, 'comments.xml', 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/comments', 'rId' $ rId);
+			class(TSXml).AddRelationshipRid(xmlfile, 'comments.xml', 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/comments', 'rId' $ rId);
 			contentType := zipfile_.Get('[Content_Types].xml');
-			class(xlsxXml).AddOverrideContentType(contentType, '/word/comments.xml', 'application/vnd.openxmlformats-officedocument.wordprocessingml.comments+xml');
+			class(TSXml).AddOverrideContentType(contentType, '/word/comments.xml', 'application/vnd.openxmlformats-officedocument.wordprocessingml.comments+xml');
 		End
 		xmlfile := zipfile_.Get(file);
 		id := 0;
@@ -307,35 +309,56 @@ Type TSDocxFile = Class
 		c := TOfficeObj('TDocComment');
 		c.p.Run.SetText( txt );
 		c.Author := author;
-		if author and not class(xlsxXml).IsUtf8() then
-			c.Author := class(xlsxXml).CurCodePageToUtf8(author);
+		if author and not class(TSXml).IsUtf8() then
+			c.Author := class(TSXml).CurCodePageToUtf8(author);
 		c.ID := id;
 		xmlfile.FirstChildElement('w:comments').InsertEndChild(c.Marshal());
 		return c;
 	End;
 	
-	///格式刷：复制段落格式（包括字体格式）
+	///格式刷：段落格式 + 字体格式
 	///fromParagraph：源段落
 	///toParagraph：目标段落
 	Function CopyFormat(fromParagraph, toParagraph);
 	Begin
 		toParagraph.ClearFormat();//清除目标段落格式、字体格式
+		CopyParagraphFormat(fromParagraph, toParagraph);//段落格式
+		//字体格式
+		if not ifObj(fromParagraph) then
+			return;
+		fromRun := fromParagraph.GetRun(0);
+		if ifObj(fromRun) then Begin
+			runs := toParagraph.GetRuns();
+			for i:=0 to length(runs)-1 do Begin
+				runs[i].CopyFontFormat(fromRun);
+			End;
+		End;
+	End;
+	
+	///格式刷：仅段落格式
+	///fromParagraph：源段落
+	///toParagraph：目标段落
+	Function CopyParagraphFormat(fromParagraph, toParagraph);
+	Begin
+		pPr := toParagraph.node_.FirstChildElement('w:pPr');
+		//清除段落格式
+		if ifObj(pPr) then 
+			toParagraph.node_.DeleteChild(pPr);
 		pPr := ifObj(fromParagraph) ? fromParagraph.node_.FirstChildElement('w:pPr') : nil;
 		if ifObj(pPr) then Begin //复制段落格式
-			pPr2 := toParagraph.node_.InsertFirstChild('element', 'w:pPr');
 			arr := pPr.Marshal();
-			class(xlsxXml).UpdateNode(pPr2, arr[0]['attributes'], arr[0]['children']);
-		End;
-		//复制字体格式
-		rPr := ifObj(fromParagraph) ? class(xlsxXml).GetNode(fromParagraph.node_, 'w:r/w:rPr') : nil;
-		if ifObj(rPr) then Begin
-			r := rPr.Marshal();
-			runs := toParagraph.GetRuns();
-			for i:=0 to length(runs)-1 do 
-				toParagraph._copyFormat(runs[i].node_, r, false);
+			toParagraph.node_.InsertFirstChild(arr[0]);
 		End;
 	End;
 	
+	///格式刷：仅字体格式
+	///fromRun：源段落
+	///toRun：目标段落
+	Function CopyFontFormat(fromRun, toRun);
+	Begin
+		toRun.CopyFontFormat(fromRun);
+	End;
+	
 	///添加目录
 	///[posOpt: 段落位置]，在posOpt之后新添加目录（否则在首页添加）
 	///UpperHeadingLevel：标题最高级别
@@ -346,9 +369,7 @@ Type TSDocxFile = Class
 	Begin
 		content := new TTableContent(self);
 		content.SetDefaultFormat();	//缺省目录格式
-		node := posOpt;
-		if ifObj(posOpt) and not (posOpt is Class(XmlNode)) then
-			node := posOpt.Node();
+		node := getPosNode(posOpt);
 		content.Add(node, UpperHeadingLevel, LowerHeadingLevel);	//标题级别
 		if ifObj(node) then
 			content.node_ := document_.Body().node_.InsertAfterChild(node, content.Marshal());
@@ -389,6 +410,13 @@ Type TSDocxFile = Class
 		return numberingObj_;
 	End;
 	
+	///执行word文档内嵌tsl代码
+	///返回：[err,tslFuncCount,errArr]: err 执行错误TSL代码段次数，tslFuncCount TSL代码段总数，errArr 执行TSL错误信息（包括代码、错误信息）
+	Function ExecInnerTSL();
+	Begin
+		return Body().ExecInnerTSL(self);
+	End;
+	
 	Function ZipObject();
 	Begin
 		return zipfile_;
@@ -398,10 +426,40 @@ Type TSDocxFile = Class
 	Begin
 		return ExtractFileDir(ExtractFileDir(PluginPath()));
 	End;
+	
+	Function GetDocPrId();
+	Begin
+		if DocPrId_ < 0 then Begin
+			DocPrId_ := 0;
+			ps := Paragraphs();
+			for i:=0 to length(ps)-1 do Begin
+				node := class(TSXml).GetNode(ps[i].node_, 'w:r/w:drawing/wp:inline/wp:docPr');
+				if not ifObj(node) then 
+					node := class(TSXml).GetNode(ps[i].node_, 'w:r/mc:AlternateContent/mc:Choice/w:drawing/wp:anchor/wp:docPr');
+				if ifObj(node) then Begin
+					id := class(TSXml).SafeStrToIntDef(node.GetAttribute('id'), 0);
+					if id > DocPrId_ then
+						DocPrId_ := id;
+					break;
+				End;
+			End;
+		End;
+		DocPrId_ ++;
+		return DocPrId_;
+	End;
+private
+	Function getPosNode(posOpt);
+	Begin
+		node := posOpt;
+		if ifObj(node) and not (node is Class(XmlNode)) then
+			node := node.Node();
+		return node;
+	End;
 private
 	zipfile_;	//压缩文件对象
 	document_;	//Document对象
-	xml_;		//xlsxXml对象
+	xml_;		//TSXml对象
 	styleObj_;
 	numberingObj_;
+	DocPrId_;
 End;

funcext/TSOffice/TSExcelFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.0.5
+// Version 1.0.6
 
 Type TSExcelFile = Class
 	///Version: V1.0 2022-08-08
@@ -90,7 +90,7 @@ Type TSExcelFile = Class
 		sheets := workbook_.GetSheets();
 		for i:=0 to length(sheets)-1 do
 		begin
-			sheets[i] := class(xlsxXml).Utf8ToCurCodePage(sheets[i]);
+			sheets[i] := class(TSXml).Utf8ToCurCodePage(sheets[i]);
 		end
 		return sheets;
 	End;
@@ -108,30 +108,29 @@ Type TSExcelFile = Class
 	Function GetSheetName(index);
 	Begin
 		name := workbook_.GetSheetName(index);
-		return class(xlsxXml).Utf8ToCurCodePage(name);
+		return class(TSXml).Utf8ToCurCodePage(name);
 	End;
 
 	///创建新sheet
 	///sheet: string，工作表名称
 	Function NewSheet(sheet);
 	Begin
-		return workbook_.NewSheet(class(xlsxXml).CurCodePageToUtf8(sheet));
+		return workbook_.NewSheet(class(TSXml).CurCodePageToUtf8(sheet));
 	End;
 
 	///删除sheet
 	///sheet: string，工作表名称
 	Function DeleteSheet(sheet);
 	Begin
-		return workbook_.DeleteSheet(class(xlsxXml).CurCodePageToUtf8(sheet));
+		return workbook_.DeleteSheet(class(TSXml).CurCodePageToUtf8(sheet));
 	End;
 
 	///设置工作表名
 	///sourceName: string, 原工作表名
 	///destName: string,目标工作表名
-	///返回: [err, errinfo]
 	Function SetSheetName(sourceName, destName);
 	Begin
-		return workbook_.SetSheetName(class(xlsxXml).CurCodePageToUtf8(sourceName), class(xlsxXml).CurCodePageToUtf8(destName));
+		return workbook_.SetSheetName(class(TSXml).CurCodePageToUtf8(sourceName), class(TSXml).CurCodePageToUtf8(destName));
 	End;
 
 	///获取总列数
@@ -139,7 +138,7 @@ Type TSExcelFile = Class
 	///返回: int
 	Function TotalCols(sheet);
 	Begin
-		return workbook_.TotalCols(class(xlsxXml).CurCodePageToUtf8(sheet));
+		return workbook_.TotalCols(class(TSXml).CurCodePageToUtf8(sheet));
 	End;
 
 	///获取总行数
@@ -147,7 +146,7 @@ Type TSExcelFile = Class
 	///返回: int
 	Function TotalRows(sheet);
 	Begin
-		return workbook_.TotalRows(class(xlsxXml).CurCodePageToUtf8(sheet));
+		return workbook_.TotalRows(class(TSXml).CurCodePageToUtf8(sheet));
 	End;
 
 	///获取单元格的值
@@ -156,8 +155,8 @@ Type TSExcelFile = Class
 	///返回: [err, value:string]
 	Function GetCellValue(sheet, axis);
 	Begin
-		[err, value] := workbook_.GetCellValue(class(xlsxXml).CurCodePageToUtf8(sheet), axis);
-		if not err then return array(err, class(xlsxXml).Utf8ToCurCodePage(value));
+		[err, value] := workbook_.GetCellValue(class(TSXml).CurCodePageToUtf8(sheet), axis);
+		if not err then return array(err, class(TSXml).Utf8ToCurCodePage(value));
 		return array(err, value);
 	End;
 
@@ -173,8 +172,8 @@ Type TSExcelFile = Class
 	///		 属性s：单元格样式
 	Function SetCellValue(sheet, axis, val, opt);
 	Begin
-		sheet_name := class(xlsxXml).CurCodePageToUtf8(sheet);
-		value := class(xlsxXml).CurCodePageToUtf8(val);
+		sheet_name := class(TSXml).CurCodePageToUtf8(sheet);
+		value := class(TSXml).CurCodePageToUtf8(val);
 		return workbook_.SetCellValue(sheet_name, axis, value, opt);
 	End;
 
@@ -184,9 +183,9 @@ Type TSExcelFile = Class
 	///返回: [err, richtxt:string]，参见SetCellRichText
 	Function GetCellRichText(sheet, axis);
 	Begin
-		[err, str] := workbook_.GetCellRichText(class(xlsxXml).CurCodePageToUtf8(sheet), axis);
+		[err, str] := workbook_.GetCellRichText(class(TSXml).CurCodePageToUtf8(sheet), axis);
 		if err then return array(err, str);
-		else return array(err, class(xlsxXml).Utf8ToCurCodePage(str));
+		else return array(err, class(TSXml).Utf8ToCurCodePage(str));
 	End;
 
 	///设置富文本格式
@@ -195,13 +194,13 @@ Type TSExcelFile = Class
 	///richtext: string，xml串或富文本对象TSOfficeObj('TRichText')
 	Function SetCellRichText(sheet, axis, richtext);
 	Begin
-		o := workbook_.GetSheetObj(class(xlsxXml).CurCodePageToUtf8(sheet));
+		o := workbook_.GetSheetObj(class(TSXml).CurCodePageToUtf8(sheet));
 		if ifObj(o) then
 		begin
 			xml := richtext;
 			if ifObj(richtext) then
-				xml := class(xlsxXml).Dom2Xml(richtext.Marshal());
-			return o.SetCellValue(axis, class(xlsxXml).CurCodePageToUtf8(xml), array('t':'s'), 'RichText');
+				xml := class(TSXml).Dom2Xml(richtext.Marshal());
+			return o.SetCellValue(axis, xml, array('t':'s'), 'RichText');
 		end
 	End;
 
@@ -214,7 +213,7 @@ Type TSExcelFile = Class
 	///		用法3：ClearCell('A5', 'D8'); //Clear矩形区间所有单元格
 	Function ClearCell(sheet, topLeft, bottomRight);
 	Begin
-		return workbook_.ClearCell(class(xlsxXml).CurCodePageToUtf8(sheet), topLeft, bottomRight);
+		return workbook_.ClearCell(class(TSXml).CurCodePageToUtf8(sheet), topLeft, bottomRight);
 	End;
 
 	///设置公式
@@ -223,7 +222,7 @@ Type TSExcelFile = Class
 	///formula: string，公式
 	Function SetCellFormula(sheet, axis, formula);
 	Begin
-		return workbook_.SetCellFormula(class(xlsxXml).CurCodePageToUtf8(sheet), axis, formula);
+		return workbook_.SetCellFormula(class(TSXml).CurCodePageToUtf8(sheet), axis, formula);
 	End;
 
 	///获取公式
@@ -232,7 +231,7 @@ Type TSExcelFile = Class
 	///返回: [err, formula:string]
 	Function GetCellFormula(sheet, axis);
 	Begin
-		return workbook_.GetCellFormula(class(xlsxXml).CurCodePageToUtf8(sheet), axis);
+		return workbook_.GetCellFormula(class(TSXml).CurCodePageToUtf8(sheet), axis);
 	End;
 
 	///按行赋值
@@ -305,7 +304,7 @@ Type TSExcelFile = Class
 	///返回: table
 	Function GetTable(sheet, topLeft, bottomRight);
 	Begin
-		return workbook_.GetTable(class(xlsxXml).CurCodePageToUtf8(sheet), topLeft, bottomRight);
+		return workbook_.GetTable(class(TSXml).CurCodePageToUtf8(sheet), topLeft, bottomRight);
 	End;
 
 	///插入列，在指定列前插入空白列
@@ -313,7 +312,7 @@ Type TSExcelFile = Class
 	///col: string 列名，如: "D"
 	Function InsertCol(sheet, col);
 	Begin
-		return workbook_.InsertCol(class(xlsxXml).CurCodePageToUtf8(sheet), col);
+		return workbook_.InsertCol(class(TSXml).CurCodePageToUtf8(sheet), col);
 	End;
 
 	///插入行，在指定行前插入空白行
@@ -321,7 +320,7 @@ Type TSExcelFile = Class
 	///row: int
 	Function InsertRow(sheet, row);
 	Begin
-		return workbook_.InsertRow(class(xlsxXml).CurCodePageToUtf8(sheet), row);
+		return workbook_.InsertRow(class(TSXml).CurCodePageToUtf8(sheet), row);
 	End;
 
 	///删除列
@@ -329,7 +328,7 @@ Type TSExcelFile = Class
 	///col: string，如: "D"
 	Function RemoveCol(sheet, col);
 	Begin
-		return workbook_.RemoveCol(class(xlsxXml).CurCodePageToUtf8(sheet), col);
+		return workbook_.RemoveCol(class(TSXml).CurCodePageToUtf8(sheet), col);
 	End;
 
 	///删除行
@@ -337,7 +336,7 @@ Type TSExcelFile = Class
 	///row: int
 	Function RemoveRow(sheet, row);
 	Begin
-		return workbook_.RemoveRow(class(xlsxXml).CurCodePageToUtf8(sheet), row);
+		return workbook_.RemoveRow(class(TSXml).CurCodePageToUtf8(sheet), row);
 	End;
 
 	///设置行高度
@@ -346,7 +345,7 @@ Type TSExcelFile = Class
 	///height: double，行高[0-409]
 	Function SetRowHeight(sheet, row, height);
 	Begin
-		return workbook_.SetRowHeight(class(xlsxXml).CurCodePageToUtf8(sheet), row, height);
+		return workbook_.SetRowHeight(class(TSXml).CurCodePageToUtf8(sheet), row, height);
 	End;
 
 	///获取行高度
@@ -355,7 +354,7 @@ Type TSExcelFile = Class
 	///返回: double
 	Function GetRowHeight(sheet, row);
 	Begin
-		return workbook_.GetRowHeight(class(xlsxXml).CurCodePageToUtf8(sheet), row);
+		return workbook_.GetRowHeight(class(TSXml).CurCodePageToUtf8(sheet), row);
 	End;
 
 	///设置列宽度
@@ -365,7 +364,7 @@ Type TSExcelFile = Class
 	///width: double，列宽[0-255]
 	Function SetColWidth(sheet, startCol, endCol, width);
 	Begin
-		return workbook_.SetColWidth(class(xlsxXml).CurCodePageToUtf8(sheet), startCol, endCol, width);
+		return workbook_.SetColWidth(class(TSXml).CurCodePageToUtf8(sheet), startCol, endCol, width);
 	End;
 
 	///获取列宽度
@@ -374,7 +373,7 @@ Type TSExcelFile = Class
 	///返回: double
 	Function GetColWidth(sheet, col);
 	Begin
-		return workbook_.GetColWidth(class(xlsxXml).CurCodePageToUtf8(sheet), col);
+		return workbook_.GetColWidth(class(TSXml).CurCodePageToUtf8(sheet), col);
 	End;
 
 	///设置工作表默认列宽
@@ -382,7 +381,7 @@ Type TSExcelFile = Class
 	///width: double
 	Function SetSheetDefaultColWidth(sheet, width);
 	Begin
-		return workbook_.SetSheetDefaultColWidth(class(xlsxXml).CurCodePageToUtf8(sheet), width);
+		return workbook_.SetSheetDefaultColWidth(class(TSXml).CurCodePageToUtf8(sheet), width);
 	End;
 
 	///获取工作表默认列宽
@@ -390,7 +389,7 @@ Type TSExcelFile = Class
 	///返回: double
 	Function GetSheetDefaultColWidth(sheet);
 	Begin
-		return workbook_.GetSheetDefaultColWidth(class(xlsxXml).CurCodePageToUtf8(sheet));
+		return workbook_.GetSheetDefaultColWidth(class(TSXml).CurCodePageToUtf8(sheet));
 	End;
 
 	///添加批注
@@ -419,7 +418,7 @@ Type TSExcelFile = Class
 	///返回: [err, ChartList]
 	Function GetCharts(sheet);
 	Begin
-		return workbook_.GetCharts(class(xlsxXml).CurCodePageToUtf8(sheet));
+		return workbook_.GetCharts(class(TSXml).CurCodePageToUtf8(sheet));
 	End;
 
 	///单元格坐标切分
@@ -500,7 +499,7 @@ Type TSExcelFile = Class
 	///styleid: string，样式Id
 	Function SetCellStyle(sheet, topLeft, bottomRight, styleid);
 	Begin
-		return workbook_.SetCellStyle(class(xlsxXml).CurCodePageToUtf8(sheet), topLeft, bottomRight, styleid);
+		return workbook_.SetCellStyle(class(TSXml).CurCodePageToUtf8(sheet), topLeft, bottomRight, styleid);
 	End;
 
 	///获取单元格样式Id，获取到的Id可以在复制单元格样式时，作为调用 SetCellValue、或SetCellStyle 函数的参数使用。
@@ -509,7 +508,7 @@ Type TSExcelFile = Class
 	///返回: styleId: string
 	Function GetCellStyle(sheet, axis);
 	Begin
-		return workbook_.GetCellStyle(class(xlsxXml).CurCodePageToUtf8(sheet), axis);
+		return workbook_.GetCellStyle(class(TSXml).CurCodePageToUtf8(sheet), axis);
 	End;
 
 	///设置工作表页眉页脚
@@ -526,7 +525,7 @@ Type TSExcelFile = Class
 	///visible: boolean
 	Function SetSheetVisible(sheet, visible);
 	Begin
-		return workbook_.SetSheetVisible(class(xlsxXml).CurCodePageToUtf8(sheet), visible);
+		return workbook_.SetSheetVisible(class(TSXml).CurCodePageToUtf8(sheet), visible);
 	End;
 
 	///获取工作表可见性
@@ -534,7 +533,7 @@ Type TSExcelFile = Class
 	///visibility: boolean
 	Function GetSheetVisible(sheet);
 	Begin
-		return workbook_.GetSheetVisible(class(xlsxXml).CurCodePageToUtf8(sheet));
+		return workbook_.GetSheetVisible(class(TSXml).CurCodePageToUtf8(sheet));
 	End;
 
 	///设置行可见性
@@ -543,7 +542,7 @@ Type TSExcelFile = Class
 	///visible: boolean
 	Function SetRowVisible(sheet, row, visible)
 	Begin
-		return workbook_.SetRowVisible(class(xlsxXml).CurCodePageToUtf8(sheet), row, visible);
+		return workbook_.SetRowVisible(class(TSXml).CurCodePageToUtf8(sheet), row, visible);
 	End;
 
 	///获取工作表行可见性
@@ -552,7 +551,7 @@ Type TSExcelFile = Class
 	///返回: [err, visible:boolean]
 	Function GetRowVisble(sheet, row);
 	Begin
-		return workbook_.GetRowVisble(class(xlsxXml).CurCodePageToUtf8(sheet), row);
+		return workbook_.GetRowVisble(class(TSXml).CurCodePageToUtf8(sheet), row);
 	End;
 
 	///设置列可见性
@@ -563,7 +562,7 @@ Type TSExcelFile = Class
 	Begin
 		[err, col] := ColumnNameToNumber(col);
 		if err then return "Col error.";
-		return workbook_.SetColVisible(class(xlsxXml).CurCodePageToUtf8(sheet), col, visible);
+		return workbook_.SetColVisible(class(TSXml).CurCodePageToUtf8(sheet), col, visible);
 	End;
 
 	///获取列可见性
@@ -574,7 +573,7 @@ Type TSExcelFile = Class
 	Begin
 		[err, col] := ColumnNameToNumber(col);
 		if err then return array(-1, col);
-		return workbook_.GetColVisble(class(xlsxXml).CurCodePageToUtf8(sheet), col);
+		return workbook_.GetColVisble(class(TSXml).CurCodePageToUtf8(sheet), col);
 	End;
 
 	///设置工作表页边距
@@ -602,7 +601,7 @@ Type TSExcelFile = Class
 	///vcell: string，右下角坐标
 	Function MergeCell(sheet, hcell, vcell);
 	Begin
-		return workbook_.MergeCell(class(xlsxXml).CurCodePageToUtf8(sheet), hcell, vcell);
+		return workbook_.MergeCell(class(TSXml).CurCodePageToUtf8(sheet), hcell, vcell);
 	End;
 
 	///取消合并单元格
@@ -611,7 +610,7 @@ Type TSExcelFile = Class
 	///vcell: string，右下角坐标
 	Function UnMergeCell(sheet, hcell, vcell);
 	Begin
-		return workbook_.UnMergeCell(class(xlsxXml).CurCodePageToUtf8(sheet), hcell, vcell);
+		return workbook_.UnMergeCell(class(TSXml).CurCodePageToUtf8(sheet), hcell, vcell);
 	End;
 
 	///设置工作表视图属性
@@ -641,7 +640,7 @@ Type TSExcelFile = Class
 	Function SetPageLayout(sheet, pageLayout);
 	Begin
 		o := getOj(sheet, 'xlsxPageLayout');
-		if ifObj(o) then return o.SetPageLayout(class(xlsxXml).CurCodePageToUtf8(sheet), pageLayout);
+		if ifObj(o) then return o.SetPageLayout(class(TSXml).CurCodePageToUtf8(sheet), pageLayout);
 	End;
 
 	///获取工作表页面设置
@@ -657,7 +656,7 @@ Type TSExcelFile = Class
 	///sheet: string，工作表名称
 	Function SetDefaultSheet(sheet);
 	Begin
-		return workbook_.SetDefaultSheet(class(xlsxXml).CurCodePageToUtf8(sheet));
+		return workbook_.SetDefaultSheet(class(TSXml).CurCodePageToUtf8(sheet));
 	End;
 
 	///获取默认工作表
@@ -665,7 +664,7 @@ Type TSExcelFile = Class
 	Function GetDefaultSheet();
 	Begin
 		sheet := workbook_.GetDefaultSheet();
-		return class(xlsxXml).Utf8ToCurCodePage(sheet);
+		return class(TSXml).Utf8ToCurCodePage(sheet);
 	End;
 
 	///设置超链接
@@ -737,7 +736,7 @@ Type TSExcelFile = Class
 	///row: int，行号
 	Function InsertPageBreak(sheet, row);
 	Begin
-		return workbook_.InsertPageBreak(class(xlsxXml).CurCodePageToUtf8(sheet), row);
+		return workbook_.InsertPageBreak(class(TSXml).CurCodePageToUtf8(sheet), row);
 	End;
 
 	///删除指定行分页符
@@ -745,7 +744,7 @@ Type TSExcelFile = Class
 	///row: int，行号
 	Function RemovePageBreak(sheet, row);
 	Begin
-		return workbook_.RemovePageBreak(class(xlsxXml).CurCodePageToUtf8(sheet), row);
+		return workbook_.RemovePageBreak(class(TSXml).CurCodePageToUtf8(sheet), row);
 	End;
 
 	///添加形状
@@ -805,7 +804,7 @@ Type TSExcelFile = Class
 private
 	Function getOj(sheet, objname);
 	Begin
-		sheetname := class(xlsxXml).CurCodePageToUtf8(sheet);
+		sheetname := class(TSXml).CurCodePageToUtf8(sheet);
 		if not ifarray(objMgr_) then objMgr_:= array();
 		k := sheetname + '.' + objname;
 		o := objMgr_[ k ];

funcext/TSOffice/TSUtils/NodeInfo.tsf

@@ -20,7 +20,7 @@ public
 		if ifObj(RootObj) then Begin
 			arr := Marshal();
 			if length(arr['attributes']) or length(arr['children']) then Begin
-				class(xlsxXml).UpdateNode(RootObj, arr['attributes'], arr['children']);
+				class(TSXml).UpdateNode(RootObj, arr['attributes'], arr['children']);
 			End;
 		End;
 	End;
@@ -166,7 +166,7 @@ public
 		lName := lowerCase(name);
 		r := sselect * from attrs where lName = lowerCase([0]) end;
 		if istable(r) then Begin
-			node := class(xlsxXml).GetNode(rootNode, uri);
+			node := class(TSXml).GetNode(rootNode, uri);
 			if not ifObj(node) then return nil;
 			return node.GetAttribute(r[1]);
 		End;
@@ -176,7 +176,7 @@ public
 		if istable(r) then Begin
 			r := r[0];
 			uri := (uri='' ? '' : uri + '/') + r['name'];
-			node := class(xlsxXml).GetNode(rootNode, uri);
+			node := class(TSXml).GetNode(rootNode, uri);
 			if not ifObj(node) then return nil;
 			if r['nodeType'] = 'empty' then
 				return true;

funcext/TSOffice/TSUtils/TOfficeApi.tsf

@@ -0,0 +1,194 @@
+Function TOfficeApi();
+Begin
+	if not ifObj(sysparams['TOffice sys api']) then 
+		sysparams['TOffice sys api'] := new TOffice();
+	return sysparams['TOffice sys api'];
+End;
+
+Type TOffice = Class
+	Function Create();
+	Begin
+		hash_ := array();
+	End;
+	
+	///检测当前环境字符集
+	///调用规范：TOfficeApi().CodePage('中文');
+	Function CodePage(zw);
+	Begin
+		cp := 'utf8';//默认环境为UTF8格式
+		str := StrToBase64(zw);
+		case str of
+		'1tDOxA==':
+			cp := 'gbk';
+		'5Lit5paH':
+			cp := 'utf8';
+		'pKSk5Q==':
+			cp := 'big5';
+		End;
+		hash_['CodePage'] := cp;
+	End;
+	
+	///当前环境是否UTF8
+	Function IsUtf8();
+	Begin
+		if ifnil(hash_['CodePage']) or hash_['CodePage'] = 'utf8' then
+			return true;
+		return false;
+	End;
+	
+	///获得当前文档对象:TDocxFile对象
+	Function GetDocument();
+	Begin
+		return hash_['Docx'];
+	End;
+	
+	///设置当前段落标签
+	///name：string 标签名称
+	Function SetParagraphTag(name);
+	Begin
+		hash_['Paragraph-Node-' + name] := hash_['CurrentParagraph'];
+	End;
+	
+	///获取当前TSL代码段所在段落
+	///返回：TParagraph对象
+	Function GetCurrentParagraph();
+	Begin
+		node := hash_['CurrentParagraph'];
+		if not ifObj(node) then 
+			return nil;
+		p := TOfficeObj('TParagraph');
+		p.Init(node);
+		return p;
+	End;
+	
+	///获取当前TSL代码段所在段落的w:r元素
+	///返回：TRun对象
+	Function GetCurrentRun();
+	Begin
+		node := hash_['CurrentRun'];
+		if not ifObj(node) then 
+			return nil;
+		p := TOfficeObj('TRun');
+		p.Init(node);
+		return p;
+	End;
+	
+	///获取指定标签段落
+	///name：string 标签名称
+	///返回：TParagraph对象
+	Function GetParagraph(name);
+	Begin
+		node := hash_['Paragraph-Node-' + name];
+		if not ifObj(node) then 
+			return nil;
+		p := TOfficeObj('TParagraph');
+		p.Init(node);
+		return p;
+	End;
+	
+	///获取当前TSL代码段上一个表格
+	///[p]：可选参数，为Nil指当前段落
+	///返回：TTable对象
+	Function GetPrevTable(p);
+	Begin
+		return getTableImpl(p, false);
+	End;
+	
+	///获取当前TSL代码段下一个表格
+	///[p]：可选参数，为Nil指当前段落
+	///返回：TTable对象
+	Function GetNextTable(p);
+	Begin
+		return getTableImpl(p, true);
+	End;
+		
+	///获取当前TSL代码段上一张图片
+	///[p]：可选参数，为Nil指当前段落
+	///返回：TPicture对象
+	Function GetPrevPicture(p);
+	Begin
+		return getPictureImpl(p, false);
+	End;
+		
+	///获取当前TSL代码段下一张图片
+	///[p]：可选参数，为Nil指当前段落
+	///返回：TPicture对象
+	Function GetNextPicture(p);
+	Begin
+		return getPictureImpl(p, true);
+	End;
+	
+	///获取当前TSL代码段上一个Chart图
+	///[p]：可选参数，为Nil指当前段落
+	///返回：TChart对象
+	Function GetPrevChart(p);
+	Begin
+		return getChartImpl(p, false);
+	End;
+	
+	///获取当前TSL代码段下一个Chart图
+	///[p]：可选参数，为Nil指当前段落
+	///返回：TChart对象
+	Function GetNextChart(p);
+	Begin
+		return getChartImpl(p, true);
+	End;
+	
+	Function Set(k, v);
+	Begin
+		hash_[k] := v;
+	End;
+	
+	Function Get(k);
+	Begin
+		return hash_[k];
+	End;
+private
+	Function getTableImpl(p, next);
+	Begin
+		if not ifObj(p) then
+			p := GetCurrentParagraph();
+		node := next ? p.node_.NextElement('w:tbl') : p.node_.PrevElement('w:tbl');
+		if not ifObj(node) then
+			return nil;
+		tbl := TOfficeObj('TTable');
+		tbl.Init(node);
+		return tbl;
+	End;
+	
+	Function getPictureImpl(p, next);
+	Begin
+		if not ifObj(p) then
+			p := GetCurrentParagraph();
+		node := next ? p.node_.NextElement('w:p') : p.node_.PrevElement('w:p');
+		while ifObj(node) do Begin
+			draw := class(TSXml).GetNode(node, 'w:r/w:drawing/wp:inline/a:graphic/a:graphicData/pic:pic');
+			if ifObj(draw) then Begin
+				p := TOfficeObj('TPicture');
+				p.Init(node);
+				return p;
+			End;
+			node := next ? p.node.NextElement('w:p') : p.node.PrevElement('w:p');
+		End;
+		return nil;
+	End;
+	
+	Function getChartImpl(p, next);
+	Begin
+		if not ifObj(p) then
+			p := GetCurrentParagraph();
+		node := next ? p.node_.NextElement('w:p') : p.node_.PrevElement('w:p');
+		while ifObj(node) do Begin
+			chartNode := class(TSXml).GetNode(node, 'w:r/w:drawing/wp:inline/a:graphic/a:graphicData/c:chart');
+			if ifObj(chartNode) then Begin
+				p := TOfficeObj('TChart');
+				p.Init(hash_['Docx'], node, chartNode);
+				return p;
+			End;
+			node := next ? p.node.NextElement('w:p') : p.node.PrevElement('w:p');
+		End;
+		return nil;
+	End;
+	
+	hash_;
+End;

funcext/TSOffice/TSUtils/TSChart.tsf

@@ -103,7 +103,7 @@ Type TSChart = Class
 	Function Apply(xmlObj);
 	Begin
 		chartData_.Serialize(IsWord());	//初始化图表数据
-		task := array(('c:chartSpace/c:chart/c:title/c:tx/c:rich/a:p/a:r/a:t', 'pcdata', class(xlsxXml).CurCodePageToUtf8(chartData_.Title)),
+		task := array(('c:chartSpace/c:chart/c:title/c:tx/c:rich/a:p/a:r/a:t', 'pcdata', class(TSXml).CurCodePageToUtf8(chartData_.Title)),
 					('c:chartSpace/c:chart/c:plotVisOnly', 'val', chartData_.plotVisOnly),
 					('c:chartSpace/c:chart/c:dispBlanksAs', 'val', chartData_.ShowBlanksAs),
 					('c:chartSpace/c:chart/c:legend', 'Del', ifnil(chartData_.Legend)),
@@ -111,16 +111,16 @@ Type TSChart = Class
 					('c:chartSpace/c:chart/c:view3D', 'unmarshal', getview3D().Marshal())
 					);
 		for i:=0 to length(task)-1 do Begin
-			class(xlsxXml).SetNodeValue(xmlObj, task[i]);
+			class(TSXml).SetNodeValue(xmlObj, task[i]);
 		End;
 		if ifObj(chartData_.Legend) then Begin
-			node := class(xlsxXml).GetNode(xmlObj, 'c:chartSpace/c:chart/c:legend');
+			node := class(TSXml).GetNode(xmlObj, 'c:chartSpace/c:chart/c:legend');
 			if ifObj(node) then Begin
 				arr := chartData_.Legend.Marshal();
-				class(xlsxXml).UpdateNode(node, arr['attributes'], arr['children']);
+				class(TSXml).UpdateNode(node, arr['attributes'], arr['children']);
 			End;
 		End;
-		chartData_.ChartNode := class(xlsxXml).GetNode(xmlObj, 'c:chartSpace/c:chart/c:plotArea');
+		chartData_.plotAreaNode := class(TSXml).GetNode(xmlObj, 'c:chartSpace/c:chart/c:plotArea');
 		if chartData_.DataTable then
 			chartData_.ShowDataTable(true);
 	End;

funcext/TSOffice/TSUtils/TSXml.tsf

@@ -1,4 +1,4 @@
-Type xlsxXml = Class
+Type TSXml = Class
 	class Function XmlHeader();
 	Begin
 		return '<?xml version="1.0" encoding="UTF-8" standalone="yes"?> \n';
@@ -28,14 +28,14 @@ Type xlsxXml = Class
 	
 	class Function GetFileName(key);
 	Begin
-		map := class(xlsxXml).GetMap();
+		map := class(TSXml).GetMap();
 		if ifarray(map[key]) then return map[key]['FileName'];
 		return '';
 	End;
 	
 	class Function GetTemplate(key);
 	Begin
-		map := class(xlsxXml).GetMap();
+		map := class(TSXml).GetMap();
 		if ifarray(map[key]) then return map[key]['Template'];
 		return '';
 	End;
@@ -106,7 +106,7 @@ Type xlsxXml = Class
 			if children[i]['type'] = 'pcdata' then
 				child.SetValue(children[i]['value']);
 			else
-				class(xlsxXml).UpdateNode(child, children[i]['attributes'], children[i]['children']);
+				class(TSXml).UpdateNode(child, children[i]['attributes'], children[i]['children']);
 		End;
 	End;
 	
@@ -166,7 +166,7 @@ Type xlsxXml = Class
 			End;
 			node := node.NextElement();
 		End;
-		return array(rID, findtarget);
+		return array(rID, findtarget, i);
 	End;
 
 	class Function FindRelationship(xmlfile, rid);
@@ -180,6 +180,14 @@ Type xlsxXml = Class
 		return nil;
 	End;
 
+	class Function FindRelationshipTarget(xmlfile, rid);
+	Begin
+		node := class(TSXml).FindRelationship(xmlfile, rid);
+		if ifObj(node) then
+			return node.GetAttribute('Target');
+		return nil;
+	End;
+
 	class Function AddRelationshipRid(xmlfile, target, type, rid, targetMode);
 	Begin
 		node := xmlfile.FirstChildElement('Relationships').InsertEndChild('element', 'Relationship');
@@ -306,36 +314,24 @@ Type xlsxXml = Class
 	
 	class Function CodePage(zw);
 	Begin
-		cp := 'utf8';//默认环境为UTF8格式
-		str := StrToBase64(zw);
-		case str of
-		'1tDOxA==':
-			cp := 'gbk';
-		'5Lit5paH':
-			cp := 'utf8';
-		'pKSk5Q==':
-			cp := 'big5';
-		End;
-		sysparams['CodePage'] := cp;
+		TOfficeApi().CodePage(zw);
 	End;
 	
 	class Function IsUtf8();
 	Begin
-		if ifnil(sysparams['CodePage']) or sysparams['CodePage'] = 'utf8' then
-			return true;
-		return false;
+		return TOfficeApi().IsUtf8();
 	End;
 	
 	class Function Utf8ToCurCodePage(str);
 	Begin
-		if ifstring(str) and not class(xlsxXml).IsUtf8() then
+		if ifstring(str) and not class(TSXml).IsUtf8() then
 			return UTF8ToAnsi(str);
 		return str;
 	End;
 	
 	class Function CurCodePageToUtf8(str);
 	Begin
-		if ifstring(str) and not class(xlsxXml).IsUtf8() then
+		if ifstring(str) and not class(TSXml).IsUtf8() then
 			return AnsiToUTF8(str);
 		return str;
 	End;

funcext/TSOffice/document/TDocxChart.tsf

@@ -2,23 +2,28 @@ Type TDocxChart = Class(TSChart)
 	///缺省构造函数
 	Function Create(docx, chartData); overload;
 	Begin
+		docx_ := docx;
 		class(TSChart).Create(chartData);
 		//chartN.xml
 		chartId_ := 1 + vselect countof( ['FileName'] ) from docx.ZipObject().Files() where AnsiStartsText('word/charts/chart', ['FileName']) end;
-		chartFile := 'word/charts/chart' $ chartId_ $ '.xml';
+		targetFileName := 'charts/chart' $ chartId_ $ '.xml';
+		chartFile := 'word/' + targetFileName;
 		docx.ZipObject().Add(chartFile, GetDefaultXml());
-		xmlObj := docx.ZipObject().Get(chartFile);
-		Apply(xmlObj);
+		xmlObj_ := docx.ZipObject().Get(chartFile);
+		if not chartData_.DisableExcel and istable(chartData.Series) and istable(chartData.Series[0]['Categories']) and istable(chartData.Series[0]['Values']) then Begin
+			//chartData_.NewExcelFile();
+		End;
+		Apply(xmlObj_);
+		addExternalData();
 
 		//Relationship
 		relsObj := docx.ZipObject().Get('word/_rels/document.xml.rels');
-		[rId_, target] := class(xlsxXml).FindRelationshipRid(relsObj, '');
+		[rId_, target] := class(TSXml).FindRelationshipRid(relsObj, '');
 		rId_ ++;
-		class(xlsxXml).AddRelationshipRid(relsObj, '/' + chartFile, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/chart', 'rId' $ rId_);
-		
+		class(TSXml).AddRelationshipRid(relsObj, targetFileName, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/chart', 'rId' $ rId_);
 		//Content_Types
 		contentType := docx.ZipObject().Get('[Content_Types].xml');
-		class(xlsxXml).AddOverrideContentType(contentType, '/' + chartFile, 'application/vnd.openxmlformats-officedocument.drawingml.chart+xml');
+		class(TSXml).AddOverrideContentType(contentType, '/' + chartFile, 'application/vnd.openxmlformats-officedocument.drawingml.chart+xml');
 	End;
 	
 	Function GetInnerXml();
@@ -33,12 +38,12 @@ Type TDocxChart = Class(TSChart)
 				<wp:cNvGraphicFramePr />
                 <a:graphic xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main">
                     <a:graphicData uri="http://schemas.openxmlformats.org/drawingml/2006/chart">
-					  <c:chart xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" r:id="rId{}" xmlns:c="http://schemas.openxmlformats.org/drawingml/2006/chart"/>
+					  <c:chart xmlns:c="http://schemas.openxmlformats.org/drawingml/2006/chart" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" r:id="rId{}"/>
                     </a:graphicData>
                 </a:graphic>
             </wp:inline>
           </w:drawing>
-        </w:r>', integer(chartData_.Width * ETU), integer(chartData_.Height * ETU), chartId_, class(xlsxXml).CurCodePageToUtf8(chartData_.Name), rId_);
+		</w:r>', integer(chartData_.Width * ETU), integer(chartData_.Height * ETU), docx_.GetDocPrId(), class(TSXml).CurCodePageToUtf8(chartData_.Name), rId_);
 	End;
 	
 	Function IsWord();override;
@@ -46,6 +51,33 @@ Type TDocxChart = Class(TSChart)
 		return true;
 	End;
 	
+	Function addExternalData();
+	Begin
+		//内嵌excel数据文件
+		if not ifObj(chartData_.Excel) then 
+			return;
+		[err, data] := chartData_.Excel.Zip().Save2Mem();
+		if err then 
+			return;
+		xmlObj_.FirstChildElement('c:chartSpace').InsertEndChild('<c:externalData r:id="rId1"><c:autoUpdate val="0"/></c:externalData>');
+		rels := 'word/charts/_rels/chart' $ chartId_ $ '.xml.rels';
+		xmlStr := '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
+<Relationship Target="../embeddings/Workbook1.xlsx" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/package" Id="rId1"/>
+</Relationships>';
+		fileCnt := 1 + vselect countof( ['FileName'] ) from docx_.ZipObject().Files() where AnsiStartsText('word/embeddings/Workbook', ['FileName']) end;
+		workBook := 'embeddings/Workbook' $ fileCnt $ '.xlsx';
+		docx_.ZipObject().Add(rels, xmlStr);
+		if fileCnt > 1 then Begin
+			relsObj := docx_.ZipObject().Get(rels);
+			node := relsObj.FirstChildElement('Relationships').FirstChildElement('Relationship');
+			node.SetAttribute('Target', '../' + workBook);
+		End;
+		docx_.ZipObject().Add('word/' + workBook, data);
+	End;
+	
+	docx_;
 	chartId_;
 	rId_;
+	xmlObj_;
 End;

funcext/TSOffice/document/TDocxStyles.tsf

@@ -21,13 +21,13 @@ Type TDocxStyles = Class
 					_addStyle(o);
 					node := node.NextElement('w:style');
 				End;
-				pNode := class(xlsxXml).GetNode(stylesNode, 'w:docDefaults/w:pPrDefault');
+				pNode := class(TSXml).GetNode(stylesNode, 'w:docDefaults/w:pPrDefault');
 				if ifObj(pNode) then
-					defaultPpr_ := Class(xlsxXml).ReadPprFormat(pNode);
+					defaultPpr_ := Class(TSXml).ReadPprFormat(pNode);
 
-				rNode := class(xlsxXml).GetNode(stylesNode, 'w:docDefaults/w:rPrDefault');
+				rNode := class(TSXml).GetNode(stylesNode, 'w:docDefaults/w:rPrDefault');
 				if ifObj(rNode) then
-					defaultRpr_ := Class(xlsxXml).ReadRprFormat(rNode);					
+					defaultRpr_ := Class(TSXml).ReadRprFormat(rNode);					
 			End;
 		End;
 	End;

funcext/TSOffice/document/TNumbering.tsf

@@ -14,11 +14,11 @@ Type TNumbering = Class
 				docx.ZipObject().Add('word/numbering.xml', xmlData);
 				rels := 'word/_rels/document.xml.rels';
 				relsObj := docx.ZipObject().Get(rels);
-				[rId, target] := class(xlsxXml).FindRelationshipRid(relsObj, '');
+				[rId, target] := class(TSXml).FindRelationshipRid(relsObj, '');
 				rId ++;
-				class(xlsxXml).AddRelationshipRid(relsObj, 'numbering.xml', 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/numbering', 'rId' $ rId);
+				class(TSXml).AddRelationshipRid(relsObj, 'numbering.xml', 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/numbering', 'rId' $ rId);
 				contentType := docx.ZipObject().Get('[Content_Types].xml');
-				class(xlsxXml).AddOverrideContentType(contentType, '/word/numbering.xml', 'application/vnd.openxmlformats-officedocument.wordprocessingml.numbering+xml');
+				class(TSXml).AddOverrideContentType(contentType, '/word/numbering.xml', 'application/vnd.openxmlformats-officedocument.wordprocessingml.numbering+xml');
 				numberingXml_ := docx.ZipObject().Get('word/numbering.xml');
 			End;
 		End;
@@ -216,7 +216,7 @@ Type TNumbering = Class
 		o.nsid := id;
 		o.tmpl := id;
 		arr := o.Marshal();
-		class(xlsxXml).UpdateNode(o.node_, arr['attributes'], arr['children']);
+		class(TSXml).UpdateNode(o.node_, arr['attributes'], arr['children']);
 	End;
 private	
 	docx_;

funcext/TSOffice/document/TTableContent.tsf

@@ -13,7 +13,7 @@ Type TTableContent = class
 		//_CheckNodes('endnotes.xml');
 		//_CheckNodes('footnotes.xml');
 		//contentType := docx.ZipObject().Get('[Content_Types].xml');
-		//class(xlsxXml).AddOverrideContentType(contentType, 'wmf', 'image/x-wmf');
+		//class(TSXml).AddOverrideContentType(contentType, 'wmf', 'image/x-wmf');
 	End;
 	
 	Function SetDefaultFormat();
@@ -43,7 +43,7 @@ Type TTableContent = class
 	Function Apply(); override;
 	Begin
 		arr := impl_.Marshal();
-		class(xlsxXml).UpdateNode(node_, arr['attributes'], arr['children']);
+		class(TSXml).UpdateNode(node_, arr['attributes'], arr['children']);
 	End;
 	
 	///添加目录条目
@@ -287,18 +287,18 @@ Type TTableContent = class
 			z.Add('word/' + name, xmlData);
 			rels := 'word/_rels/document.xml.rels';
 			relsObj := z.Get(rels);
-			[rId, target] := class(xlsxXml).FindRelationshipRid(relsObj, '');
+			[rId, target] := class(TSXml).FindRelationshipRid(relsObj, '');
 			rId ++;
 			
 			if name = 'endnotes.xml' then Begin
-				class(xlsxXml).AddRelationshipRid(relsObj, name, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/endnotes', 'rId' $ rId);
+				class(TSXml).AddRelationshipRid(relsObj, name, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/endnotes', 'rId' $ rId);
 				contentType := z.Get('[Content_Types].xml');
-				class(xlsxXml).AddOverrideContentType(contentType, '/word/' + name, 'application/vnd.openxmlformats-officedocument.wordprocessingml.endnotes+xml');
+				class(TSXml).AddOverrideContentType(contentType, '/word/' + name, 'application/vnd.openxmlformats-officedocument.wordprocessingml.endnotes+xml');
 			End
 			else if name = 'footnotes.xml' then Begin
-				class(xlsxXml).AddRelationshipRid(relsObj, name, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/footnotes', 'rId' $ rId);
+				class(TSXml).AddRelationshipRid(relsObj, name, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/footnotes', 'rId' $ rId);
 				contentType := z.Get('[Content_Types].xml');
-				class(xlsxXml).AddOverrideContentType(contentType, '/word/' + name, 'application/vnd.openxmlformats-officedocument.wordprocessingml.footnotes+xml');
+				class(TSXml).AddOverrideContentType(contentType, '/word/' + name, 'application/vnd.openxmlformats-officedocument.wordprocessingml.footnotes+xml');
 			End;
 		End;
 	End;

funcext/TSOffice/template/faq.txt

@@ -36,7 +36,7 @@ Apply()函数可以修改属性值，例如：
  
 *如何设置字符集（中文支持）？
  ★用户的脚本可能是UFT8格式，或可能是GBK码格式，系统提供API自动设置当前字符集环境：
-  class(xlsxXml).CodePage('中文');	//系统检测当前的环境字符集
+  TOfficeApi().CodePage('中文');	//系统检测当前的环境字符集
   ...
   p.Run.SetText('系统可以自动识别这里的中文字符集（utf8或gbk）！');
  ★不设置，默认当前字符集为UTF8

funcext/TSOffice/worksheet/xlsxChart.tsf

@@ -8,12 +8,12 @@ Type xlsxChart = Class(TSChart)
 		drawingRID_ := excel_.WorkBook().GetSheetDrawing(sheet);
 		drawingXmlObj_ := excel_.WorkBook().GetXmlFileObj('xl/drawings/drawing' $ drawingRID_ $ '.xml');
 		drawingRelsObj := excel_.WorkBook().GetDrawingRelsFile(drawingRID_);
-		[chartRid_, find] := class(xlsxXml).FindRelationshipRid(drawingRelsObj, '');
+		[chartRid_, find] := class(TSXml).FindRelationshipRid(drawingRelsObj, '');
 		chartRid_ ++;
-		class(xlsxXml).AddRelationshipRid(drawingRelsObj, '../charts/chart'+inttostr(chartId_)+'.xml', 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/chart', 'rId' + inttostr(chartRid_));
+		class(TSXml).AddRelationshipRid(drawingRelsObj, '../charts/chart'+inttostr(chartId_)+'.xml', 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/chart', 'rId' + inttostr(chartRid_));
 		xlChartFileName_ := 'xl/charts/chart'+inttostr(chartId_)+'.xml';
-		content_xml := excel_.WorkBook().GetXmlFileObj(class(xlsxXml).GetFileName('Content_Types'));
-		class(xlsxXml).AddOverrideContentType(content_xml, '/' + xlChartFileName_, 'application/vnd.openxmlformats-officedocument.drawingml.chart+xml');
+		content_xml := excel_.WorkBook().GetXmlFileObj(class(TSXml).GetFileName('Content_Types'));
+		class(TSXml).AddOverrideContentType(content_xml, '/' + xlChartFileName_, 'application/vnd.openxmlformats-officedocument.drawingml.chart+xml');
 	End;
 	
 	class Function NewObject(sheet, excel);
@@ -49,7 +49,7 @@ Type xlsxChart = Class(TSChart)
 
 		o.GraphicFrame.macro := '';
 		o.GraphicFrame.GraphicFramePr.Name := chartData.Name ? chartData.Name : 'Chart' + inttostr(chartId_);
-		o.GraphicFrame.GraphicFramePr.Id := class(xlsxXml).GetcNvPrID(drawingXmlObj_);
+		o.GraphicFrame.GraphicFramePr.Id := class(TSXml).GetcNvPrID(drawingXmlObj_);
 		o.GraphicFrame.GraphicFramePr.cNvGraphicFramePr := true;
 
 		o.GraphicFrame.XFrm.Off.X := 0;

funcext/TSOffice/worksheet/xlsxComment.tsf

@@ -12,7 +12,7 @@ Type xlsxComment = Class
 			commentId_ := excel_.WorkBook().GetFilesCount('xl/comments') + 1;
 			commentFileName_ := '../comments' + inttostr(commentId_) + '.xml';
 			xlCommentFileName := 'xl/comments' + inttostr(commentId_) + '.xml';
-			excel_.Zip().Add(xlCommentFileName, class(xlsxXml).XmlHeader() + '<comments xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main"></comments>');
+			excel_.Zip().Add(xlCommentFileName, class(TSXml).XmlHeader() + '<comments xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main"></comments>');
 			excel_.WorkBook().AddRelationshipRid(relsfile, commentFileName_, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/comments', rId_);
 			rid ++;
 			drawingVML_ := '../drawings/vmlDrawing' + inttostr(commentId_) + '.vml';
@@ -33,9 +33,9 @@ xmlns:v="urn:schemas-microsoft-com:vml">
 </v:shapetype>
  </xml>');
 			excel_.WorkBook().AddRelationshipRid(relsfile, drawingVML_, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/vmlDrawing', 'rId' + inttostr(rid));
-			content_xml := excel_.WorkBook().GetXmlFileObj(class(xlsxXml).GetFileName('Content_Types'));
-			class(xlsxXml).AddOverrideContentType(content_xml, '/' + xlCommentFileName, 'application/vnd.openxmlformats-officedocument.spreadsheetml.comments+xml');
-			class(xlsxXml).AddDefaultContentType(content_xml, 'vml', 'application/vnd.openxmlformats-officedocument.vmlDrawing');
+			content_xml := excel_.WorkBook().GetXmlFileObj(class(TSXml).GetFileName('Content_Types'));
+			class(TSXml).AddOverrideContentType(content_xml, '/' + xlCommentFileName, 'application/vnd.openxmlformats-officedocument.spreadsheetml.comments+xml');
+			class(TSXml).AddDefaultContentType(content_xml, 'vml', 'application/vnd.openxmlformats-officedocument.vmlDrawing');
 
 			sheetXml := excel_.WorkBook().GetSheetXmlfile(sheetName_).FirstChildElement('worksheet');
 			legacy := sheetXml.FirstChildElement('legacyDrawing');

funcext/TSOffice/worksheet/xlsxDocProps.tsf

@@ -10,7 +10,7 @@ Type xlsxDocProps = Class
 		node := app_xml.FirstChildElement('Properties');
 		if not ifObj(node) then return "node::Properties can't be found";
 		marshal := appProps.Marshal();
-		class(xlsxXml).UpdateNode(node, marshal['attributes'], marshal['children']);
+		class(TSXml).UpdateNode(node, marshal['attributes'], marshal['children']);
 	End;
 
 	Function GetAppProps();
@@ -27,7 +27,7 @@ Type xlsxDocProps = Class
 		core_xml := excel_.WorkBook().GetXmlFileObj('docProps/core.xml');
 		node := core_xml.FirstChildElement('cp:coreProperties');
 		marshal := appProps.Marshal();
-		class(xlsxXml).UpdateNode(node, marshal['attributes'], marshal['children']);
+		class(TSXml).UpdateNode(node, marshal['attributes'], marshal['children']);
 	End
 
     Function GetCoreProps();

funcext/TSOffice/worksheet/xlsxHyperLink.tsf

@@ -17,7 +17,7 @@ Type xlsxHyperLink = Class
 		work_node := xmlFile_.FirstChildElement('worksheet');
 		hyperlinks := work_node.FirstChildElement('hyperlinks');
 		if not ifObj(hyperlinks) then begin
-			insert_node := class(xlsxXml).GetWorkSheetPrevNode(work_node, 'hyperlinks');
+			insert_node := class(TSXml).GetWorkSheetPrevNode(work_node, 'hyperlinks');
 			hyperlinks := work_node.InsertAfterChild(insert_node, 'element', 'hyperlinks');
 		end;
 		node := hyperlinks.FirstChildElement('hyperlink');
@@ -44,7 +44,7 @@ Type xlsxHyperLink = Class
 				rid++;
 				ridstr := 'rId' + inttostr(rid);
 				xmlfile := file_.WorkBook().GetXmlFileObj(relsfile);
-				class(xlsxXml).AddRelationshipRid(xmlfile, hyperlink.LinkUrl, "http://schemas.openxmlformats.org/officeDocument/2006/relationships/hyperlink", ridstr, "External");
+				class(TSXml).AddRelationshipRid(xmlfile, hyperlink.LinkUrl, "http://schemas.openxmlformats.org/officeDocument/2006/relationships/hyperlink", ridstr, "External");
 			End
 			hyperlink.RId := 'rId' + inttostr(rid);
 		end
@@ -71,7 +71,7 @@ Type xlsxHyperLink = Class
 					link.LinkType := 'external';
 					rid := node.GetAttribute('r:id');
 					rels_file := file_.WorkBook().GetSheetRelsFile(sheetName_);
-					target_node := class(xlsxXml).FindRelationship(rels_file, rid);
+					target_node := class(TSXml).FindRelationship(rels_file, rid);
 					if ifObj(target_node) then link.LinkUrl := target_node.GetAttribute('Target');
 				end
 				link.Tooltip := node.GetAttribute('tooltip');

funcext/TSOffice/worksheet/xlsxImage.tsf

@@ -23,21 +23,21 @@ Type xlsxImage = Class
 		image_file := getImageFileName(picture);
 		rels_xmlfile := excel_.WorkBook().GetSheetRelsFile(sheetName_);
 		prefix := ReplaceStr(image_file, 'xl/', '../');
-		[rid, target] := class(xlsxXml).FindRelationshipRid(rels_xmlfile, prefix);
+		[rid, target] := class(TSXml).FindRelationshipRid(rels_xmlfile, prefix);
 		if target = '' then
 		begin
 			rid ++;
-			class(xlsxXml).AddRelationshipRid(rels_xmlfile, prefix, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/image', 'rId' $ rid);
+			class(TSXml).AddRelationshipRid(rels_xmlfile, prefix, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/image', 'rId' $ rid);
 		end
-		content_xml := excel_.WorkBook().GetXmlFileObj(class(xlsxXml).GetFileName('Content_Types'));
-		class(xlsxXml).AddDefaultContentType(content_xml, 'jpeg', 'image/jpeg');
+		content_xml := excel_.WorkBook().GetXmlFileObj(class(TSXml).GetFileName('Content_Types'));
+		class(TSXml).AddDefaultContentType(content_xml, 'jpeg', 'image/jpeg');
 
 		sheet_xml := excel_.WorkBook().GetSheetXmlfile(sheetName_);
 		node := sheet_xml.FirstChildElement('worksheet');
 		picture_node := node.FirstChildElement('picture');
 		if not ifObj(picture_node) then
 		begin
-			prev_node := class(xlsxXml).GetWorkSheetPrevNode(node, 'picture');
+			prev_node := class(TSXml).GetWorkSheetPrevNode(node, 'picture');
 			if ifObj(prev_node) then picture_node := node.InsertAfterChild(prev_node, 'element', 'picture');
 			else picture_node := node.InsertEndChild('element', 'picture');
 		end
@@ -55,26 +55,26 @@ Type xlsxImage = Class
 		image_target := ReplaceStr(getImageFileName(picture), 'xl/', '../');
 		drawing_id := excel_.WorkBook().GetSheetDrawing(sheetName_);
 		drawing_rels := excel_.WorkBook().GetDrawingRelsFile(drawing_id);
-		[rid, target] := class(xlsxXml).FindRelationshipRid(drawing_rels, image_target);
+		[rid, target] := class(TSXml).FindRelationshipRid(drawing_rels, image_target);
 		if target = '' then
 		begin
 			rid++;
-			class(xlsxXml).AddRelationshipRid(drawing_rels, image_target, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/image', 'rId' $ rid);
+			class(TSXml).AddRelationshipRid(drawing_rels, image_target, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/image', 'rId' $ rid);
 		end
-		content_xml := excel_.WorkBook().GetXmlFileObj(class(xlsxXml).GetFileName('Content_Types'));
-		class(xlsxXml).AddDefaultContentType(content_xml, 'jpeg', 'image/jpeg');
+		content_xml := excel_.WorkBook().GetXmlFileObj(class(TSXml).GetFileName('Content_Types'));
+		class(TSXml).AddDefaultContentType(content_xml, 'jpeg', 'image/jpeg');
 		sheet_xml := excel_.WorkBook().GetSheetXmlfile(sheetName_);
 		node := sheet_xml.FirstChildElement('worksheet');
 		drawing_node := node.FirstChildElement('drawing');
 		if not ifObj(drawing_node) then
 		begin
-			prev_node := class(xlsxXml).GetWorkSheetPrevNode(node, 'drawing');
+			prev_node := class(TSXml).GetWorkSheetPrevNode(node, 'drawing');
 			if ifObj(prev_node) then drawing_node := node.InsertAfterChild(prev_node, 'element', 'drawing');
 			else drawing_node := node.InsertEndChild('element', 'drawing');
 		end
 		sheet_rels := excel_.WorkBook().GetSheetRelsFile(sheetName_);
 		drawing_file_name := '../drawings/drawing' + inttostr(drawing_id) + '.xml';
-		[id, target] := class(xlsxXml).FindRelationshipRid(sheet_rels, drawing_file_name);
+		[id, target] := class(TSXml).FindRelationshipRid(sheet_rels, drawing_file_name);
 		drawing_node.SetAttribute('r:id', 'rId' + inttostr(id));
 
 		// drawingN.xml
@@ -95,7 +95,7 @@ Type xlsxImage = Class
 		o.Pic.NodeName := 'xdr:pic';
 		o.Pic.NvPicPr.NodeName := 'xdr:nvPicPr';
 		o.Pic.NvPicPr.CNvPr.Name := picture.Name ? picture.Name : '';
-		o.Pic.NvPicPr.CNvPr.ID := class(xlsxXml).GetcNvPrID(drawing_xml);
+		o.Pic.NvPicPr.CNvPr.ID := class(TSXml).GetcNvPrID(drawing_xml);
 		o.Pic.NvPicPr.CNvPr.Descr := picture.Descr ? : '';
 		o.Pic.NvPicPr.CNvPr.ExtLst.Ext.Uri := '';
 		o.Pic.NvPicPr.CNvPr.ExtLst.Ext.Xmlns16 := 'http://schemas.microsoft.com/office/drawing/2014/main';

funcext/TSOffice/worksheet/xlsxShape.tsf

@@ -20,8 +20,7 @@ Type xlsxShape = Class
 
 	class Function NewObject(sheet, excel);
 	Begin
-		excel_ := excel;
-		o := excel_.WorkBook().GetSheetObj(sheet);//sheet存在
+		o := excel.WorkBook().GetSheetObj(sheet);//sheet存在
 		if not ifObj(o) then return 0;
 		return new xlsxShape(sheet, excel);
 	End;
@@ -68,7 +67,7 @@ private
 	Function setSpNvSpPr(obj, shapeType);
 	Begin
 		obj.NodeName := 'xdr:nvSpPr';
-		obj.CNvPr.ID := class(xlsxXml).GetcNvPrID(drawingXmlObj_);
+		obj.CNvPr.ID := class(TSXml).GetcNvPrID(drawingXmlObj_);
 		obj.CNvPr.Name := (getShapeInfo()[shapeType]['name'] ?: '') $ ' ' $ obj.CNvPr.ID;
 		obj.CNvPr.ExtLst.Ext.Uri := '';
 		obj.CNvPr.ExtLst.Ext.Xmlns16 := 'http://schemas.microsoft.com/office/drawing/2014/main';

funcext/TSOffice/worksheet/xlsxSheetView.tsf

@@ -16,7 +16,7 @@ Type xlsxSheetView = Class
 			if trystrtoint(id, r) and r = viewIndex then
 			Begin
 				marshal := SheetView.Marshal();
-				class(xlsxXml).UpdateNode(sheet_view_node, marshal['attributes'], array());
+				class(TSXml).UpdateNode(sheet_view_node, marshal['attributes'], array());
 				return '';
 			End
 			sheet_view_node := sheet_view_node.NextElement();

funcext/TSOffice/worksheet/xlsxTable.tsf

@@ -45,7 +45,7 @@ Type xlsxTable = Class
 		table_xml := excel_.WorkBook().GetXmlFileObj(table_name);
 		table_node := table_xml.FirstChild('table');
 		marshal := table.Marshal();
-		class(xlsxXml).UpdateNode(table_node, marshal['attributes'], marshal['children']);
+		class(TSXml).UpdateNode(table_node, marshal['attributes'], marshal['children']);
 		table_node.InsertEndChild(table_str);
 		table_node.InsertEndChild(format.Marshal());
 
@@ -59,7 +59,7 @@ Type xlsxTable = Class
 			count := 1;
 		end
 		else begin
-			count := inttostr(table_part.GetAttribute('count')) + 1;
+			count := strtoint(table_part.GetAttribute('count')) + 1;
 		end
 		node := table_part.InsertEndChild('element', 'tablePart');
 		node.SetAttribute('r:id', 'rId' $ rid);
@@ -73,15 +73,16 @@ private
 		table_str := '<tableColumns count="' $ (endCol - begCol + 1) $ '">';
 		id := 1;
 		col_index := 1;
-		if not includeHeader then
-		begin
-			excel_.WorkBook().InsertRow(sheetName_, row);
-		end
+		if not includeHeader then excel_.WorkBook().InsertRow(sheetName_, row);
 		for i:=begCol to endCol do
 		begin
 			[err, cell] := excel_.CoordinatesToCellName(i, row, false);
 			if includeHeader then
-				name := excel_.WorkBook().GetCellValue(sheetName_, cell)[1];
+			begin
+				[err, name] := excel_.WorkBook().GetCellValue(sheetName_, cell);
+				name := "列" $ col_index++;
+				if err then excel_.WorkBook().SetCellValue(sheetName_, cell, name);
+			end
 			else begin
 				name := "列" $ col_index++;
 				excel_.WorkBook().SetCellValue(sheetName_, cell, name);
@@ -96,15 +97,15 @@ private
 	Function addTableXmlFileAndRelation();
 	Begin
 		sheet_rels_file := excel_.WorkBook().GetSheetRelsFile(sheetName_);
-		[rid, target] := class(xlsxXml).FindRelationshipRid(sheet_rels_file, '');
+		[rid, target] := class(TSXml).FindRelationshipRid(sheet_rels_file, '');
 		rid ++;
 		table_id := excel_.WorkBook().GetFilesCount('xl/tables/') + 1;
 		table_name := 'xl/tables/table' + inttostr(table_id) + '.xml';
 		table_target := '../tables/table' + inttostr(table_id) + '.xml';
-		excel_.zip().Add(table_name, class(xlsxXml).XmlHeader() + "<table />");
-		class(xlsxXml).AddRelationshipRid(sheet_rels_file, table_target, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/table', 'rId' $ rid);
-		content_xml := excel_.WorkBook().GetXmlFileObj(class(xlsxXml).GetFileName('Content_Types'));
-		class(xlsxXml).AddOverrideContentType(content_xml, '/' + table_name, 'application/vnd.openxmlformats-officedocument.spreadsheetml.table+xml');
+		excel_.zip().Add(table_name, class(TSXml).XmlHeader() + "<table />");
+		class(TSXml).AddRelationshipRid(sheet_rels_file, table_target, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/table', 'rId' $ rid);
+		content_xml := excel_.WorkBook().GetXmlFileObj(class(TSXml).GetFileName('Content_Types'));
+		class(TSXml).AddOverrideContentType(content_xml, '/' + table_name, 'application/vnd.openxmlformats-officedocument.spreadsheetml.table+xml');
 
 		return array(rid, table_id, table_name);
 	End

funcext/TSOffice/worksheet/xlsxWorkBook.tsf

@@ -26,7 +26,7 @@ Type xlsxWorkBook = Class
 
 		//workbook.xml.rels中加载（rid -> sheet-filename）
 		rids := array();
-		workbook_rels := GetXmlFileObj(class(xlsxXml).GetFileName('workbook_rels'));
+		workbook_rels := GetXmlFileObj(class(TSXml).GetFileName('workbook_rels'));
 		rels := workbook_rels.FirstChildElement('Relationships').FirstChildElement('Relationship');
 		while ifObj(rels) do Begin
 			id := rels.GetAttribute('Id');
@@ -138,13 +138,13 @@ Type xlsxWorkBook = Class
 		sheetId := vselect maxof(['sheetId']) from sheetNames_ end;
 		sheetId := integer(sheetId) + 1;
 		fname := sheetPrefix_ $ inttostr(sheetsCount_ + 1) $ '.xml';
-		zipfile_.Add(fname, class(xlsxXml).XmlHeader() + class(xlsxXml).GetTemplate('sheet1'));
+		zipfile_.Add(fname, class(TSXml).XmlHeader() + class(TSXml).GetTemplate('sheet1'));
 
 		//设置 workbook.xml.rels
 		workbook_rels := GetXmlFileObj('xl/_rels/workbook.xml.rels');
 		rels := workbook_rels.FirstChildElement('Relationships').InsertEndChild('element', 'Relationship');
 		rels.SetAttribute('Target', getTarget( sheetsCount_ + 1));
-		rels.SetAttribute('Type', class(xlsxXml).GetTemplate('RelationshipWorkSheet'));
+		rels.SetAttribute('Type', class(TSXml).GetTemplate('RelationshipWorkSheet'));
 		rels.SetAttribute('Id', rid);
 		//workbook_rels.Print;
 
@@ -157,7 +157,7 @@ Type xlsxWorkBook = Class
 		//workbook.Print();
 
 		//设置docProps/app.xml
-		app := GetXmlFileObj(class(xlsxXml).GetFileName('docProps_app'));
+		app := GetXmlFileObj(class(TSXml).GetFileName('docProps_app'));
 		//app.Print();
 		node := app.FirstChildElement('Properties').FirstChildElement('TitlesOfParts');
 		if not ifObj(node) then Begin
@@ -178,8 +178,8 @@ Type xlsxWorkBook = Class
 		//app.Print();
 
 		//设置[Content_Types].xml
-		content_xml := GetXmlFileObj(class(xlsxXml).GetFileName('Content_Types'));
-		class(xlsxXml).AddOverrideContentType(content_xml, '/' + fname, class(xlsxXml).GetTemplate('SheetContentType'));
+		content_xml := GetXmlFileObj(class(TSXml).GetFileName('Content_Types'));
+		class(TSXml).AddOverrideContentType(content_xml, '/' + fname, class(TSXml).GetTemplate('SheetContentType'));
 
 		sheetNames_[sheetsCount_]['name'] := sheet;
 		sheetNames_[sheetsCount_]['sheetId'] := sheetId;
@@ -224,7 +224,7 @@ Type xlsxWorkBook = Class
 				f.FileName := files[i]['New-FileName'];
 			End;
 		End;
-		workbook_rels := GetXmlFileObj(class(xlsxXml).GetFileName('workbook_rels'));
+		workbook_rels := GetXmlFileObj(class(TSXml).GetFileName('workbook_rels'));
 		parent := workbook_rels.FirstChildElement('Relationships');
 		rels := parent.FirstChildElement('Relationship');
 		while ifObj(rels) do Begin
@@ -266,7 +266,7 @@ Type xlsxWorkBook = Class
 		//workbook.Print();
 
 		//设置docProps/app.xml
-		app := GetXmlFileObj(class(xlsxXml).GetFileName('docProps_app'));
+		app := GetXmlFileObj(class(TSXml).GetFileName('docProps_app'));
 		node := app.FirstChildElement('Properties').FirstChildElement('TitlesOfParts');
 		if ifObj(node) then Begin
 			vector := node.FirstChildElement('vt:vector');
@@ -330,7 +330,7 @@ Type xlsxWorkBook = Class
 		End
 
 		//设置docProps/app.xml
-		app := GetXmlFileObj(class(xlsxXml).GetFileName('docProps_app'));
+		app := GetXmlFileObj(class(TSXml).GetFileName('docProps_app'));
 		node := app.FirstChildElement('Properties').FirstChildElement('TitlesOfParts');
 		lpstr := node.FirstChildElement('vt:vector').FirstChildElement('vt:lpstr');
 		while ifObj(lpstr) do
@@ -378,7 +378,7 @@ Type xlsxWorkBook = Class
 		rels := 'xl/worksheets/_rels/sheet' + id + '.xml.rels';
 		if not FileIsExist(rels) then return array(0, array());
 		xmlfile := GetXmlFileObj(rels);
-		[rid2, target] := class(xlsxXml).FindRelationshipRid(xmlfile, '../drawings/drawing');
+		[rid2, target] := class(TSXml).FindRelationshipRid(xmlfile, '../drawings/drawing');
 		if target = '' then return array(0, array());
 		drawingFile := ReplaceStr(target, '..', 'xl');
 		drawingRels := 'xl/drawings/_rels/' + ExtractFileName(target) + '.rels';
@@ -804,7 +804,7 @@ Type xlsxWorkBook = Class
 
 	Function DeleteContentType(del_partname);
 	Begin
-		content := GetXmlFileObj(class(xlsxXml).GetFileName('Content_Types'));
+		content := GetXmlFileObj(class(TSXml).GetFileName('Content_Types'));
 		types := content.FirstChildElement('Types');
 		element := types.FirstChildElement('Override');
 		while ifObj(element) do Begin
@@ -825,10 +825,10 @@ Type xlsxWorkBook = Class
 		files := zipfile_.Files();
 		isexist := vselect thisrowindex from files where ['FileName']=file end;
 		if ifnil(isexist) then Begin
-			zipfile_.Add(file, class(xlsxXml).XmlHeader() + class(xlsxXml).GetTemplate('sheet_rels'));
+			zipfile_.Add(file, class(TSXml).XmlHeader() + class(TSXml).GetTemplate('sheet_rels'));
 		end
 		xmlfile := GetXmlFileObj(file);
-		r := class(xlsxXml).FindRelationshipRid(xmlfile, prefix);
+		r := class(TSXml).FindRelationshipRid(xmlfile, prefix);
 		r[2] := sheetNames_[ind]['file'];
 		r[3] := file;
 		return r;
@@ -837,7 +837,7 @@ Type xlsxWorkBook = Class
 	Function AddRelationshipRid(relsfile, target, type, rid);
 	Begin
 		xmlfile := GetXmlFileObj(relsfile);
-		class(xlsxXml).AddRelationshipRid(xmlfile, target, type, rid);
+		class(TSXml).AddRelationshipRid(xmlfile, target, type, rid);
 	End;
 
 	Function GetFilesCount(prefix);
@@ -857,7 +857,7 @@ Type xlsxWorkBook = Class
 		ind := sheetIndexMap_[LowerCase(sheet)];
 		file := 'xl/worksheets/_rels/' + ExtractFileName(sheetNames_[ind]['file']) + '.rels';
 		if not FileIsExist(file) then
-			zipfile_.Add(file, class(xlsxXml).XmlHeader() + class(xlsxXml).GetTemplate('sheet_rels'));
+			zipfile_.Add(file, class(TSXml).XmlHeader() + class(TSXml).GetTemplate('sheet_rels'));
 		return GetXmlFileObj(file);
 	End;
 
@@ -865,7 +865,7 @@ Type xlsxWorkBook = Class
 	Begin
 		file := 'xl/drawings/_rels/drawing' + inttostr(drawingId) + '.xml.rels';
 		if not FileIsExist(drawing_rels) then
-			zipfile_.Add(file, class(xlsxXml).XmlHeader() + class(xlsxXml).GetTemplate('drawing_rels'));
+			zipfile_.Add(file, class(TSXml).XmlHeader() + class(TSXml).GetTemplate('drawing_rels'));
 		return GetXmlFileObj(file);
 	End;
 
@@ -899,13 +899,13 @@ Type xlsxWorkBook = Class
 			drawing_rid := GetFilesCount('xl/drawings/drawing') + 1;
 			drawing_file_name := '../drawings/drawing' + inttostr(drawing_rid) + '.xml';
 			drawing_xl_file_name := 'xl/drawings/drawing' + inttostr(drawing_rid) + '.xml';
-			zipfile_.Add(drawing_xl_file_name, class(xlsxXml).XmlHeader() + '<xdr:wsDr xmlns:xdr="http://schemas.openxmlformats.org/drawingml/2006/spreadsheetDrawing" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main"></xdr:wsDr>');
+			zipfile_.Add(drawing_xl_file_name, class(TSXml).XmlHeader() + '<xdr:wsDr xmlns:xdr="http://schemas.openxmlformats.org/drawingml/2006/spreadsheetDrawing" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main"></xdr:wsDr>');
 			AddRelationshipRid(relsfile, drawing_file_name, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/drawing', 'rId' $ inttostr(rid));
-			content_xml := GetXmlFileObj(class(xlsxXml).GetFileName('Content_Types'));
-			class(xlsxXml).AddOverrideContentType(content_xml, '/' + drawing_xl_file_name, 'application/vnd.openxmlformats-officedocument.drawing+xml');
+			content_xml := GetXmlFileObj(class(TSXml).GetFileName('Content_Types'));
+			class(TSXml).AddOverrideContentType(content_xml, '/' + drawing_xl_file_name, 'application/vnd.openxmlformats-officedocument.drawing+xml');
 			sheet_xml := GetXmlFileObj(sheet_file_name);
 			node := sheet_xml.FirstChildElement('worksheet');
-			prev_node := class(xlsxXml).GetWorkSheetPrevNode(node, 'drawing');
+			prev_node := class(TSXml).GetWorkSheetPrevNode(node, 'drawing');
 			if ifObj(prev_node) then drawing_node := node.InsertAfterChild(prev_node, 'element', 'drawing');
 			else drawing_node := node.InsertEndChild('element', 'drawing');
 			drawing_node.SetAttribute('r:id', 'rId' + inttostr(rid));
@@ -928,7 +928,7 @@ Type xlsxWorkBook = Class
 		tbreak.Id := row;
 		if not ifObj(page_node) then
 		begin
-			node := class(xlsxXml).GetWorkSheetPrevNode(worksheet, 'rowBreaks');
+			node := class(TSXml).GetWorkSheetPrevNode(worksheet, 'rowBreaks');
 			node := worksheet.InsertAfterChild(node, 'element', 'rowBreaks');
 			node.SetAttribute('count', 1);
 			node.SetAttribute('manualBreakCount', 1);
@@ -993,8 +993,8 @@ private
 
 	Function getWorkbookRelsRid();
 	Begin
-		workbook_rels := GetXmlFileObj(class(xlsxXml).GetFileName('workbook_rels'));
-		[rId, find] := class(xlsxXml).FindRelationshipRid(workbook_rels, '');
+		workbook_rels := GetXmlFileObj(class(TSXml).GetFileName('workbook_rels'));
+		[rId, find] := class(TSXml).FindRelationshipRid(workbook_rels, '');
 		rId ++;
 		return 'rId' $ rId;
 	End;
@@ -1030,7 +1030,7 @@ private
 		chart.C := ifObj(c) ? true : false;
 		if not ifObj(xml) then return;
 		chart.Title := getNodeValue(xml, chart.C ? 'c:chartSpace/c:chart/c:title/c:tx/c:rich/a:p/a:r/a:t' : 'chartSpace/chart/title/tx/rich/a:p/a:r/a:t', '');
-		chart.ChartNode := xml.FirstChildElement(getC(chart) + 'chartSpace').FirstChildElement(getC(chart) + 'chart').FirstChildElement(getC(chart) + 'plotArea');
+		chart.plotAreaNode := xml.FirstChildElement(getC(chart) + 'chartSpace').FirstChildElement(getC(chart) + 'chart').FirstChildElement(getC(chart) + 'plotArea');
 	End;
 
 	sheetsCount_:integer;

更新日志.md

@@ -1,5 +1,11 @@
 # 更新日志
 
+## 2023-1-10
+
+### V1.0.6
+
+中文自动转换API由`class(xlsxXml).CodePage('中文');`调整为`TOfficeApi().CodePage('中文');`
+
 ## 2023-1-5
 
 ### V1.0.5