matlab 生成 word 表格,Matlab生成Word表格范例代码

filespec = 'C:\Documents and Settings\Administrator\桌面\xiezh.doc'; try;

Word=actxGetRunningServer('Word.Application');

catch;

Word = actxserver('Word.Application');

end;

set(Word, 'Visible', 1);

documents = Word.Documents;

if exist(filespec,'file')

document = invoke(documents,'Open',filespec);

else

document = invoke(documents, 'Add');

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, 'Start',0);

title='试卷分析';

set(content, 'Text',title);

set(paragraphformat, 'Alignment','wdAlignParagraphCenter');

rr=document.Range(0,10);

rr.Font.Size=16;

rr.Font.Bold=4;

end_of_doc = get(content,'end');

set(selection,'Start',end_of_doc);

selection.TypeParagraph;

set(selection, 'Text','(20 —20 学年第学期)'); selection.Font.Size=12;

selection.MoveDown;

set(paragraphformat, 'Alignment','wdAlignParagraphCenter');