疲惫的修改
应人才测评产品的需求，导出测评报告是其中一个重要的环节，报告的文件类型也多种多样，其中WORD输出也扮演了一个重要的角色。
实现方法比较简单，结合分析结果数据，通过WORD模板文件进行替换输出。在实现的过程中，图表的设计是必不可少的，根据初次产品的设计方案，图表采用微软Chart图表控件进行开发，采用雷达图进行呈现。使用该控件首先要引入 System.Web.DataVisualization.dll 程序集，通过定义 System.Web.UI.DataVisualization.Charting.Chart 类来实现，本来采用该开发方案的初衷是觉得都是微软的技术，图表的呈现类型也比较丰富，可在实际的开发中，情况没有想像的那么顺利，提供的技术文档非常有限，各种百度也是凤毛麟角，经过努力与探索，最终还是实现了需求。
但后来由于种种原因，图表要求采用饼状3D图进行呈现，虽然已经有了第一次的经验，但细节的变化，不得不再次进行探索和学习，可当需求再次改变的时候，我决定游说产品设计和改变设计思路。
新的思路
由于引入 Microsoft.Office.Interop.Word 程序集进行开发，因此在Word上的所有操作都能用程序去实现，其内置的图表功能也不例外，通过演练和内部讨论，图形化的呈现基本能够满足需求。
通用性
举例，我们在Word中插入一个图表并选择雷达图，如下图：
插入后，我们看到 Word 会自动弹出一个微缩版的 Excel 应用，改变其中的项和系列值，图表就会对应的产生变化。
我们右击雷达图，选择更改图表类型为饼图，如下图：
可以看到饼图按照EXCEL数据中的系列1数据进行呈现，也不会因为系列2的数据存在而出现错误。由此可以分析出，控制好这个 Excel 的数据应用即可按照我们的设计实现任一图表的输出。
设计方案
（1）负责具体业务的应用程序，输出后的数据，存入一个二维字符串数组里，模拟 Excel 数据存储模式。
（2）考虑未来的扩展性，将二维数组转化为Json数据格式，并添加一个查找关键字节点，假设为“ t:chart1”。
（3）在 Word 模板设计图表，图表的标题设置为Json对应的查找关键字，即“ t:chart1”。
（4）编写数据导出EXCEL方法，传递JSON字符串参数，读取Word模板文件，遍历模板文件中的图表对象，并按查找关键字与图表的标题进行对比，匹配成功，则将JSON中数组转化为图表需要的EXCEL数组形式，到此输出完毕。
为什么用 Json 过渡
我们的云架构里设计了一个 Office 计算中心，在某些环境下，比如 Linux 中需要这种方式传递并返回值，以达到导入导出Office文件的目的。所以大家要根据实际的应用进行设计，这里仅作为参考。
关键代码实现
开发环境
操作系统：Windows Server 2019 DataCenter
开发工具：VisualStudio2019
框架及语言：.net 4.7.1 C#
服务上需要安装 Office 2016或以上
现在开始！
在此我们以最易懂的代码形式举例，假设文件模板中的图表为条状图，关键查找字（图表标题）设为 “ t:chart1”,如下图：
（1）创建二维数组
//定义二维字符串数组，第一列为项目名称，第二列为值string[,] chart1 = new string[11, 2];chart1[0, 0] = "项";chart1[0, 1] = "值";chart1[1, 0] = "全局观";chart1[2, 0] = "影响力";chart1[3, 0] = "公正性";chart1[4, 0] = "果敢性";chart1[5, 0] = "执行力";chart1[6, 0] = "人际理解";chart1[7, 0] = "成就意识";chart1[8, 0] = "创新意识";chart1[9, 0] = "情绪控制";chart1[10, 0] = "学习发展";Random rnd = new Random();for (int si = 1; si <= 10; si++){chart1[si, 0] = rnd.NextDouble().ToString(); //循环赋值随机浮点数}（2）二维数组转Json格式
这里引入 Newtonsoft.Json.dll 程序集进行操作，代码如下：
StringWriter sw = new StringWriter(); //using System.IOusing (Newtonsoft.Json.JsonWriter writer = new Newtonsoft.Json.JsonTextWriter(sw)){writer.Formatting = Newtonsoft.Json.Formatting.Indented;writer.WriteStartObject();//t:chart1 转化数组chart1 为 json 对象writer.WritePropertyName("t:chart1");writer.WriteStartArray();writer.WriteStartObject();writer.WritePropertyName("col1");writer.WriteValue(chart1[0, 0]);writer.WritePropertyName("col2");writer.WriteValue(chart1[0, 1]);writer.WriteEndObject();for (int r = chart1.GetLength(0) - 1; r > 0; r--){writer.WriteStartObject();//循环写入列2的具体值for (int c = 0; c < 2; c++){writer.WritePropertyName("col" + (c + 1).ToString());writer.WriteValue(chart1[r, c]);}writer.WriteEndObject();}writer.WriteEndArray();//t:chart1writer.WriteEndObject();writer.Flush();}sw.Close();string jsonContent = sw.GetStringBuilder().ToString(); //得到最终json字串转化成功的样例如下：
{
"t:chart1": [{"col1": "项","col2": "值"},{"col1": "学习发展","col2": "4.1"},{"col1": "情绪控制","col2": "5"},{"col1": "创新意识","col2": "5.1"},{"col1": "成就意识","col2": "4.8"},{"col1": "人际理解","col2": "4"},{"col1": "执行力","col2": "5"},{"col1": "果敢性","col2": "5.7"},{"col1": "公正性","col2": "4.5"},{"col1": "影响力","col2": "4.7"},{"col1": "全局观","col2": "4.2"}]
}
（3）查找图表且替换数据
本代码程序只是示例片断，非完整程序，仅供参考。
一些引用
using Word=Microsoft.Office.Interop.Word;
using Newtonsoft.Json.Linq;转换 json 字符串为 json 对象Newtonsoft.Json.Linq.JObject jObject = null;if (jsonContent != ""){try{jObject = Newtonsoft.Json.Linq.JObject.Parse(jsonContent); //转换为json对象}catch (Exception e){resultReport += "create json object fail.<br>"; //失败记入调试报告}}初始化 Word 应用程序Word.Application WordApp=new Word.Application();//创建一个名为WordDoc的文档对象WordApp.DisplayAlerts=Word.WdAlertLevel.wdAlertsNone; //禁止一切提示警告//打开 filename 的文件Word.Document WordDoc=WordApp.Documents.Open(ref filename,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing);//禁用拼写检查WordDoc.SpellingChecked = false;WordDoc.ShowSpellingErrors = false;遍历word 里的 shapesfor (int i = 1; i <= WordDoc.InlineShapes.Count; i++)
{Word.InlineShape shape = WordDoc.InlineShapes[i]; //得到 shape对象//遍历 json 对象foreach (var item in jObject){string tcmd = item.Key.ToString(); //取关键字//如果 shape 包含图表，则继续if (shape.HasChart == Microsoft.Office.Core.MsoTriState.msoTrue){//如果图表未设置标题，则短路if (shape.Chart.HasTitle == false){continue;}//获取图表的titlestring _name = shape.Chart.ChartTitle.Text.Trim().ToLower();if (_name.IndexOf(tcmd) != -1) //如果包含关键字则继续{//替换掉关键字，保留下来的是真正的标题shape.Chart.ChartTitle.Text = shape.Chart.ChartTitle.Text.Replace(tcmd, "");//这是一个玄机，否则会报错，目前我是这样的解决，A1:Z100，先赋值为空串shape.Chart.ChartData.Workbook.Worksheets[1].Range("A1:Z100").Value = "";//计算最后的单元格地址string lastcellAddress = "$" + ((char)(64 + jObject[tcmd][0].Count())).ToString() + "$" + jObject[tcmd].Count().ToString();//获得最终地址字串 string sourceDataAddress = "='Sheet1'!$A$1:" + lastcellAddress;//遍历json对象节点里的数组for (int i = 0; i < jObject[tcmd].Count(); i++){List<JToken> tokens = jObject[tcmd][i].ToList();int k = 0;foreach (JToken jToken in tokens){//为每一个单元格赋值string celladdress = ((char)(65 + k)).ToString() + (i + 1).ToString(); shape.Chart.ChartData.Workbook.Worksheets[1].Range(celladdress).Value = jToken.ToArray()[0].ToString();k++;}}shape.Chart.SetSourceData(sourceDataAddress); //设置更新图表的数据源break;} // index of name} // has chart}//foreach tcmd} //WordDoc.InlineShapes小结
通过这种设计可以实现任意更换图表的类型，基本无需关注图表的实现原理，而让开发人员更多的关注于业务逻辑，当然这些图表的种类受限于Word的提供能力，如果能够满足需求，不失为一种解决思路。另外，我们可以继续扩展程序的功能，实现动态的图表添加或切换能力等。
一些体会
作为一名全程管理加全栈开发的 “野战军”，更多的时候考虑的是满足需求、稳定功能和控制各种成本，而无法深入地研究各项领域。随着年龄的增长，唯一能做到的就是业务经验弥补精力和学习时间的不足，还是有几点体会与大家共勉吧：
1、后悔学生时代没有端正态度和认识到认真学习的重要性，所谓书到用时方恨少，熟练掌握修炼数据结构与算法、数学等程序员的内功至关重要。
2、语言只是一种模型和工具而已，可先从一门语言入手到实际应用，抽象的来看所有语言总体上都是大同小异，后来会觉得学习一门新语言是一件非常有趣的事。
3、时间允许的情况下还是要深入掌握一些底层的技术开发和原理，这至少是一件非常有趣的事。
4、在工作中平衡最为关键，也包括人，换位思考很重要。
5、提升设计能力、业务处理能力和总结学习方法尤为关键。
以上就是自己一些体会，时间仓促，不妥之处还请大家批评指正讨论，程序员节就要到啦，祝咱们永远保持年轻的心，健康的心态，用智慧编写美好的人生！
