• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Matlab生成Word--xdd

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
摘自《MATLAB统计分析与应用:40个案例分析》(谢中华老师著)P452页
function CreatWord
%利用Matlab生成word filespec_user = [pwd '\测试.docx']; %生成word % 判断Word是否已经打开,若已打开,就在打开的Word中进行操作,否则就打开Word try Word = actxGetRunningServer('Word.Application'); catch Word = actxserver('Word.Application'); end; Word.Visible = 1; if exist(filespec_user,'file'); Document = Word.Documents.Open(filespec_user); % Document = invoke(Word.Documents,'Open',filespec_user); else Document = Word.Documents.Add; try Document.SaveAs(filespec_user); catch Document.SaveAs2(filespec_user); end end Content = Document.Content; Selection = Word.Selection; Paragraphformat = Selection.ParagraphFormat; % 页面设置 Document.PageSetup.TopMargin = 60;%上边距为60磅 Document.PageSetup.BottomMargin = 45; Document.PageSetup.LeftMargin = 45; Document.PageSetup.RightMargin = 45; % 设定文档内容的起始位置和标题 Content.Start = 0; %设文章起始位置为0 headline = '试 卷 分 析';%字符串 Content.Text = headline; Content.Font.Size = 16 ;%字号 Content.Font.Bold = 4 ;%加粗 Content.Paragraphs.Alignment = 'wdAlignParagraphCenter';%居中对齐 %'wdAlignParagraphLeft' %左对齐 Selection.Start = Content.end;%设置选定区域为文章末尾,即,将光标移到最后 Selection.TypeParagraph;%回车,另起一段 xueqi = '( 2009 — 2010 学年 第一学期)'; Selection.Text = xueqi; Selection.Font.Size = 12; Selection.Font.Bold = 0; Selection.MoveDown;%光标移至所选区域最后,并取消文字选中状态 Paragraphformat.Alignment = 'wdAlignParagraphCenter'; Selection.TypeParagraph;%回车 Selection.TypeParagraph; Selection.Font.Size = 10.5; % 在光标所在位置插入一个12行9列的表格 Tables = Document.Tables.Add(Selection.Range,12,9); DTI = Document.Tables.Item(1); % 或DTI = Tables;%获取第一个表格的句柄%全选表格 % 设置表格边框 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';%上1,左2,下3,右4,内横5,内竖6,左上斜7,右上斜9 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]; %9列 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]; %12行 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 end % 合并单元格 DTI.Cell(1, 4).Merge(DTI.Cell(1, 5));%%从 第1行第四列 到 第一行第五列 合并为一个单元格 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)); 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'; %取消(9,2)的左边框 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; end; % 产生正态分布随机数,画直方图,并设置图形属性 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]); rng('default'); data = normrnd(75,6,1000,1); hist(data); grid on; xlabel('考试成绩'); ylabel('人数'); % options.Fotmat='jpeg'; % hgexport(gcf,'D:\xie.jpeg',options); % 将图形复制到粘贴板 hgexport(zft, '-clipboard'); delete(zft); % Selection.Range.PasteSpecial; DTI.Cell(8,1).Range.Paragraphs.Item(1).Range.PasteSpecial; % Shape.Item(1).WrapFormat.Type =1; %%外部图片才可以设置文字环绕方式,内部的不行 % Shape.Item(1).ZOrder('msoBringInFrontOfText'); Document.ActiveWindow.ActivePane.View.Type = 'wdPrintView'; Document.Save;

 在Word里面的表格某一单元格粘贴图片

1 DTI.Cell(3,4).Range.Select;    %选中这个单元格,DTI是表格号
2 DTI.Cell(3,4).Range.Text = ' ';%将光标移到这里
3 filename = ['D:\收款.jpg'];      %选择图片 Selection.InlineShapes.AddPicture(filename) %粘贴进去

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi插件下载地址发布时间:2022-07-18
下一篇:
数字滤波FIR -基于matlab模拟在DSP中实现-1发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap