原创力文档- 1、本文档共33页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
matlab结果生成表格
matlab结果生成表格
篇一：Matlab生成Word表格范例代码
filespec = #39;C:\Documents and Settings\Administrator\桌面\xiezh.doc#39;;
try;
Word=actxGetRunningServer(#39;Word.Application#39;);
catch;
Word = actxserver(#39;Word.Application#39;);
end;
set(Word, #39;Visible#39;, 1);
documents = Word.Documents;
if exist(filespec,#39;file#39;)
document = invoke(documents,#39;Open#39;,filespec);
else
document = invoke(documents, #39;Add#39;);
document.SaveAs(filespec);
end
content = document.Content;
duplicate = content.Duplicate;
inlineshapes = content.InlineShapes;
selection = Word.Selection;
paragraphformat = selection.ParagraphFormat;
%页面设置
document.PageSetup.TopMargin = 60;
document.PageSetup.BottomMargin = 45;
document.PageSetup.LeftMargin = 45;
document.PageSetup.RightMargin = 45;
set(content, #39;Start#39;,0);
title=#39;试 卷 分 析#39;;
set(content, #39;Text#39;,title);
set(paragraphformat, #39;Alignment#39;,#39;wdAlignParagraphCenter#39;);
rr=document.Range(0,10);
rr.Font.Size=16;
rr.Font.Bold=4;
end_of_doc = get(content,#39;end#39;);
set(selection,#39;Start#39;,end_of_doc);
selection.TypeParagraph;
set(selection, #39;Text#39;,#39;（20 —20 学年 第 学期）#39;);
selection.Font.Size=12;
selection.MoveDown;
set(paragraphformat, #39;Alignment#39;,#39;wdAlignParagraphCenter#39;);
selection.TypeParagraph;
selection.TypeParagraph;
selection.Font.Size=10.5;
Tables=document.Tables.Add(selection.Range,12,9);
%设置边框
DTI=document.Tables.Item(1);
DTI.Borders.OutsideLineStyle=#39;wdLineStyleSingle#39;;
DTI.Borders.OutsideLineWidth=#39;wdLineWidth150pt#39;;
DTI.Borders.InsideLineStyle=#39;wdLineStyleSingle#39;;
DTI.Borders.InsideLineWidth=#39;wdLineWidth150pt#39;;
DTI.Rows.Alignment=#39;wdAlignRowCenter#39;;
DTI.Rows.Item(8).Borders.Item(1).LineStyle=#39;wdLineStyleNone#39;;
DTI.Rows.Item(8).Borders.Item(3).LineStyle=#39;wdLineStyleNone#39;;
DTI.Rows.Item(11).Borders.Item(1).LineStyle=#39;wdLineStyleNone#39;;
DTI.Rows.Item(11).Borders.Item(3).LineStyl
文档评论（0）