[转载]Matlab生成Word报告

最近在进行一批来料的检验测试，一个个手动填写报告存图片太慢了，就有了种想要使用Matlab在分析完后数据可以自动生成PDF报告的想法，于是就去网上搜索了相关的资料，发现Matlab中文论坛上有xiezhh曾经发过的使用Matlab生成Word的一些功能代码。又看了些xiezhh别的帖子和一些别的小伙伴的补充，找到了相关代码，经过运行可以完美的实现功能，在此表示感谢。

其中蕴含了基本的表格操作（如合并单元格）和图片复制粘贴操作，对于我这次的需求已经是足够了，代码部分下面部分列出，其中添加了个人阅读时的一些注释，有助于理解。现阶段我也只是可以根据该代码进行部分更改完成自己的需求，深层次的理解暂时还没有达到。

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

function fun_word

%利用MATLAB生成Word文档

% 原摘自xiezhh，根据论坛上的相关建议，做了稍微的改动和完善

filespec_user = [pwd '\测试.doc'];

%===启用word调用功能========================================================

try

Word = actxGetRunningServer('Word.Application');

catch

Word = actxserver('Word.Application');

end

Word.Visible = 1; % 使word为可见；或set(Word, 'Visible', 1);

%===打开word文件，如果路径下没有则创建一个空白文档打开========================

if exist(filespec_user,'file');

Document = Word.Documents.Open(filespec_user);

else

Document = Word.Documents.Add;

Document.SaveAs2(filespec_user);

end

%===格式定义===============================================================

Content = Document.Content;

Selection = Word.Selection;

Paragraphformat = Selection.ParagraphFormat;

%===文档的页边距===========================================================

Document.PageSetup.TopMargin = 60;

Document.PageSetup.BottomMargin = 45;

Document.PageSetup.LeftMargin = 45;

Document.PageSetup.RightMargin = 45;

%==========================================================================

%===文档组成部分============================================================

% 文档的标题及格式

headline = '报告';

Content.Start = 0; % 起始点为0，即表示每次写入覆盖之前资料

Content.Text = headline;

Content.Font.Size = 16; % 字体大小

Content.Font.Bold = 1; % 字体加粗

Content.Paragraphs.Alignment = 'wdAlignParagraphCenter'; % 居中,wdAlignParagraphLeft/Center/Right

% 文档的创建时间

Selection.Start = Content.end; % 开始的地方在上一个的结尾

Selection.TypeParagraph; % 插入一个新的空段落

% 插入时间

currentdate = datestr(now, 0); % 获取当前时间

Selection.Text = currentdate; % 当前时间作为输出

Selection.Font.Size = 12; % 字号

Selection.Font.Bold = 0; % 不加粗

Selection.MoveDown; %将所选内容向下移动，并返回移动距离的单位数

Paragraphformat.Alignment = 'wdAlignParagraphCenter'; % 居中

% 插入回车

Selection.TypeParagraph;% 插入一个新的空段落

Selection.Font.Size = 10.5;% 新的空段落字号

% 插入表格

Selection.Start = Content.end;

Selection.TypeParagraph;

Paragraphformat.Alignment = 'wdAlignParagraphLeft';

Selection.MoveDown;

Tables = Document.Tables.Add(Selection.Range,12,9); % 插入一个12行9列的表格

DTI = Document.Tables.Item(1); % 表格句柄

DTI.Borders.OutsideLineStyle = 'wdLineStyleSingle'; % 最外框，实线

DTI.Borders.OutsideLineWidth = 'wdLineWidth150pt'; % 线宽

DTI.Borders.InsideLineStyle = 'wdLineStyleSingle'; % 所有的内框线条

DTI.Borders.InsideLineWidth = 'wdLineWidth150pt'; % 线宽

DTI.Rows.Alignment = 'wdAlignRowCenter'; %大表格居中

DTI.Rows.Item(8).Borders.Item(1).LineStyle = 'wdLineStyleNone'; % 第八行的上边线消失

DTI.Rows.Item(8).Borders.Item(3).LineStyle = 'wdLineStyleNone';% 第八行的下边线消失

DTI.Rows.Item(11).Borders.Item(1).LineStyle = 'wdLineStyleNone';

DTI.Rows.Item(11).Borders.Item(3).LineStyle = 'wdLineStyleNone';

% 设置行高，列宽

column_width = [53.7736,85.1434,53.7736,35.0094,...

35.0094,76.6981,55.1887,52.9245,54.9057];

row_height = [28.5849,28.5849,28.5849,28.5849,25.4717,25.4717,...

32.8302,312.1698,17.8302,49.2453,14.1509,18.6792];

for i = 1:9

DTI.Columns.Item(i).Width = column_width(i);

end

for i = 1:12

DTI.Rows.Item(i).Height = row_height(i);

end

% 设置垂直居中

for i = 1:12 % 行

for j = 1:9 % 列

DTI.Cell(i,j).VerticalAlignment = 'wdCellAlignVerticalCenter';

end

% 合并单元格

DTI.Cell(1, 4).Merge(DTI.Cell(1, 5)); % 第一行第四个到第五个合并

DTI.Cell(2, 4).Merge(DTI.Cell(2, 5));

DTI.Cell(3, 4).Merge(DTI.Cell(3, 5));

DTI.Cell(4, 4).Merge(DTI.Cell(4, 5));

DTI.Cell(5, 2).Merge(DTI.Cell(5, 5));

DTI.Cell(5, 3).Merge(DTI.Cell(5, 6));

DTI.Cell(6, 2).Merge(DTI.Cell(6, 5));

DTI.Cell(6, 3).Merge(DTI.Cell(6, 6));

DTI.Cell(5, 1).Merge(DTI.Cell(6, 1));

DTI.Cell(7, 1).Merge(DTI.Cell(7, 9));

DTI.Cell(8, 1).Merge(DTI.Cell(8, 9));

DTI.Cell(9, 1).Merge(DTI.Cell(9, 3));

DTI.Cell(9, 2).Merge(DTI.Cell(9, 3));

DTI.Cell(9, 3).Merge(DTI.Cell(9, 4));

DTI.Cell(9, 4).Merge(DTI.Cell(9, 5));

DTI.Cell(10, 1).Merge(DTI.Cell(10, 9));% 第10行第1个到第9个合并

DTI.Cell(11, 5).Merge(DTI.Cell(11, 9));

DTI.Cell(12, 5).Merge(DTI.Cell(12, 9));

DTI.Cell(11, 1).Merge(DTI.Cell(12, 4));

% 表格之后的段落

Selection.Start = Content.end;

Selection.TypeParagraph;

Selection.Text = '主管院长签字：年月日';

Paragraphformat.Alignment = 'wdAlignParagraphRight';

Selection.MoveDown;

% 定义表格中的内容

DTI.Cell(1,1).Range.Text = '课程名称';

DTI.Cell(1,3).Range.Text = '课程号';

DTI.Cell(1,5).Range.Text = '任课教师学院';

DTI.Cell(1,7).Range.Text = '任课教师';

DTI.Cell(2,1).Range.Text = '授课班级';

DTI.Cell(2,3).Range.Text = '考试日期';

DTI.Cell(2,5).Range.Text = '应考人数';

DTI.Cell(2,7).Range.Text = '实考人数';

DTI.Cell(3,1).Range.Text = '出卷方式';

DTI.Cell(3,3).Range.Text = '阅卷方式';

DTI.Cell(3,5).Range.Text = '选用试卷A/B';

DTI.Cell(3,7).Range.Text = '考试时间';

DTI.Cell(4,1).Range.Text = '考试方式';

DTI.Cell(4,3).Range.Text = '平均分';

DTI.Cell(4,5).Range.Text = '不及格人数';

DTI.Cell(4,7).Range.Text = '及格率';

DTI.Cell(5,1).Range.Text = '成绩分布';

DTI.Cell(5,2).Range.Text = '90分以上人占 %';

DTI.Cell(5,3).Range.Text = '80---89分人占 %';

DTI.Cell(6,2).Range.Text = '70--79分人占 %';

DTI.Cell(6,3).Range.Text = '60---69分人占 %';

DTI.Cell(7,1).Range.Text = ['试卷分析（含是否符合教学大纲、难度、知识覆'...

'盖面、班级分数分布分析、学生答题存在的共性问题与知识掌握情况、教学中'...

'存在的问题及改进措施等内容）'];

DTI.Cell(7,1).Range.ParagraphFormat.Alignment = 'wdAlignParagraphLeft';

DTI.Cell(9,2).Range.Text = '签字 :';

DTI.Cell(9,4).Range.Text = '年月日';

DTI.Cell(10,1).Range.Text = '教研室审阅意见：';

DTI.Cell(10,1).Range.ParagraphFormat.Alignment = 'wdAlignParagraphLeft';

DTI.Cell(10,1).VerticalAlignment = 'wdCellAlignVerticalTop';

DTI.Cell(11,2).Range.Text = '教研室主任（签字）: 年月日';

DTI.Cell(11,2).Range.ParagraphFormat.Alignment = 'wdAlignParagraphLeft';

DTI.Cell(8,1).Range.ParagraphFormat.Alignment = 'wdAlignParagraphLeft';

DTI.Cell(8,1).VerticalAlignment = 'wdCellAlignVerticalTop';

DTI.Cell(9,2).Borders.Item(2).LineStyle = 'wdLineStyleNone';

DTI.Cell(9,2).Borders.Item(4).LineStyle = 'wdLineStyleNone';

DTI.Cell(9,3).Borders.Item(4).LineStyle = 'wdLineStyleNone';

DTI.Cell(11,1).Borders.Item(4).LineStyle = 'wdLineStyleNone';

% 暂时没搞懂意思，貌似不用也不影响

Shape = Document.Shapes;

ShapeCount = Shape.Count;

if ShapeCount ~= 0;

for i = 1:ShapeCount;

Shape.Item(1).Delete;

end

% 绘图并放置于表格单元(8,1)

zft = figure('units','normalized','position',...

[0.280469 0.553385 0.428906 0.251302],'visible','off'); % 定义句柄

% 绘图

set(gca,'position',[0.1 0.2 0.85 0.75]);

data = normrnd(0,1,1000,1);

hist(data);

grid on;

xlabel('考试成绩');

ylabel('人数');

hgexport(zft, '-clipboard'); % 将图片复制到剪切板

DTI.Cell(8,1).Range.Paragraphs.Item(1).Range.PasteSpecial; % 粘贴操作

Shape.Item(1).WrapFormat.Type = 3;

Shape.Item(1).ZOrder('msoBringInFrontOfText');

delete(zft); % 删除句柄

Document.ActiveWindow.ActivePane.View.Type = 'wdPrintView';

Document.Save; % 保存文档

Word.Quit; % 关闭文档

[转载]Matlab生成Word报告的更多相关文章

[转载]Java生成Word文档
在开发文档系统或办公系统的过程中,有时候我们需要导出word文档.在网上发现了一个用PageOffice生成word文件的功能,就将这块拿出来和大家分享. 生成word文件与我们编辑word文档本质上 ...
Matlab生成Word--xdd
摘自<MATLAB统计分析与应用:40个案例分析>(谢中华老师著)P452页function CreatWord %利用Matlab生成word filespec_user = [pwd ...
Word报告自动生成（例如导出数据库结构）
将很早之前写的一个小组件重新整理优化一下,做成一个通用的功能.适用于导出数据库的结构(表.字段等)到Word或将体检数据自动生成Word版的体检报告等.代码:Github 一.主要需要完成功能: 1. ...
.net mvc 站点自带简易SSL加密传输 Word报告自动生成（例如导出数据库结构）微信小程序：动画（Animation） SignalR 设计理念(一) ASP.NET -- WebForm -- ViewState ASP.NET -- 一般处理程序ashx 常用到的一些js方法，记录一下 CryptoJS与C#AES加解密互转
.net mvc 站点自带简易SSL加密传输因项目需要,传输数据需要加密,因此有了一些经验,现简易抽出来分享! 请求:前端cryptojs用rsa/aes 或 rsa/des加密,后端.net ...
Python不生成HTMLTestRunner报告-转载学习
1.问题:Python中同一个.py文件中同时用unittest框架和HtmlReport框架后,HtmlReport不被执行. 2.为什么?其实不是HtmlReport不被执行,也不是HtmlRep ...
批量生成AWR报告（转载总结）
[前提] 对Oracle进行性能分析其中一个“帮手”就是Oracle的AWR报告 PS:Oracle的企业版才有AWR报告,标准版是没有的{可以导出来,但是没有数据显示} [需求] 当需要针对某个月的 ...
[转载]java调用PageOffice生成word
一.在开发OA办公或与文档相关的Web系统中,难免会遇到动态生成word文档的需求,为了解决工作中遇到导出word文档的需求,前一段时间上网找了一些资料,在word导出这方面有很多工具可以使用,jac ...
[转载]Java动态生成word文档（图文并茂）
很多情况下,软件开发者需要从数据库读取数据,然后将数据动态填充到手工预先准备好的Word模板文档里,这对于大批量生成拥有相同格式排版的正式文件非常有用,这个功能应用PageOffice的基本动态填充功 ...
Qt 生成word、pdf文档
需求:将软件处理的结果保存为一个报告文档,文档中包含表格.图片.文字,格式为word的.doc和.pdf.生成word是为了便于用户编辑. 开发环境:qt4.8.4+vs2010 在qt的官网上对于p ...

随机推荐

oracle并发请求异常，运行时间超长（一般情况下锁表）
1.如果前台无法取消请求出现错误: 则后台更新 update fnd_concurrent_requests set status_code = 'X', phase_code = 'C' w ...
Raspberry pi(-) Mac下安装系统
购买树莓派一般的操作说明书都是windows下的,因为本人只有MBP,外加虚拟机Parallels Desktop无法识别SD卡,所以就直接参考Mac教程了. 1.系统镜像官网下载推荐用Raspbi ...
Mutex
#include "stdafx.h" #include <string> #include <iostream> #include <Windows ...
英语学习app分析
以下数据分析由队员张波收集整理队员链接队友的博客一.数据统计为了让统计数据更加准确可信,我们选取了三款android平台的应用市场软件作为数据的来源. 英语学习app下载量统计表: 序号应用名 ...
Excel 执行Sql 将查询结果输出到EXCEL指定位置
Dim cnn,strSql Set cnn = CreateObject("adodb.connection") cnn.Open "driver={sql serve ...
python切片操作
序列类型是其元素被顺序放置的一种数据结构类型,这种方式允许通过下标的方式来获得某一个数据元素,或者通过指定下标范围来获得一组序列的元素.这种访问序列的方式叫做切片.字符串也可以使用切片操作.切片操作符 ...
iOS内存管理
iOS内存管理的方式是引用计数机制.分为MRC(人式引用计数)和ARC(自动引用计数). 为什么要学习内存管理? 内存管理方式是引用计数机制,通过控制对象的引用计数来实现操作对象的功能.一个对象的生命 ...
formValidator表单验证示例
<script type="text/javascript">$(document).ready(function(){ $.formValidator.initCon ...
js判断页面是pc打开还是手机打开
<script type="text/javascript"> function browserRedirect() { var sUserAgent = naviga ...
PV IP UV的概念介绍
IP(独立IP):指独立IP数,不同的IP地址的计算机访问网站的总次数,这个是网站流量分析的一个重要指标.00:00-24:00内相同的IP地址只被计算一次假如说:赶集网的日独立IP300W,则至少 ...

[转载]Matlab生成Word报告

[转载]Matlab生成Word报告的更多相关文章

随机推荐

热门专题