word中的matlab的代码如何插入_matlab创建word文档的一个简单实例

%用Matlab生成Word文档

%用Matlab编了一段程序，可以生成Word文档，文档中含有表格，代码如下：

filespec = ['自动测试报告' datestr(now,30) '.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 = 40;

document.PageSetup.RightMargin = 40;

set(content, 'Start',0);

title='XXX-1B自动化测试数据报告';

set(content, 'Text',title);

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

rr=document.Range(0,16);%选择文本

rr.Font.Size=20;%设置文本字体

rr.Font.Bold=4;%设置文本字体

end_of_doc = get(content,'end');

set(selection,'Start',end_of_doc);

selection.Font.Size=10;

selection.MoveDown;

selection.TypeParagraph;

selection.TypeParagraph;

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

selection.Font.Size=10.5;

Tables=document.Tables.Add(selection.Range,7,12);

%设置边框

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';

end_of_doc = get(content,'end');

set(selection,'Start',end_of_doc);

selection.TypeParagraph;

set(selection, 'Text','主管签字：            年    月    日');

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

end_of_doc = get(content,'end');

set(selection,'Start',end_of_doc);

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

column_width=[60, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45];

row_height=[20, 30, 30, 40, 400, 40, 40];

for i = 1 : 12

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

end

for i=1:7

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

end

for i = 1 : 7

for j = 1 : 12

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

end

end

DTI.Cell(1, 2).Merge(DTI.Cell(1, 12));

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

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

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

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

DTI.Cell(1, 1).Range.Text = '测试时间';

DTI.Cell(1, 2).Range.Text = datestr(now, 31);

DTI.Cell(2, 1).Range.Text = '所有项目';

DTI.Cell(2, 2).Range.Text = '点火 单检';

DTI.Cell(2, 3).Range.Text = '油门 行程';

DTI.Cell(2, 4).Range.Text = '假开 车';

DTI.Cell(2, 5).Range.Text = '冷转';

DTI.Cell(2, 6).Range.Text = '补氧 检查';

DTI.Cell(2, 7).Range.Text = '综合 测试';

DTI.Cell(2, 8).Range.Text = '80% 开车';

DTI.Cell(2, 9).Range.Text = '95% 开车';

DTI.Cell(2, 10).Range.Text = '98.5%开车';

DTI.Cell(2, 11).Range.Text = '无级 调速';

DTI.Cell(2, 12).Range.Text = '空中 开车';

DTI.Cell(3, 1).Range.Text = '测试项目';

DTI.Cell(4,1).Range.Text = '自动化测试报告:';

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

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

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

DTI.Cell(6, 1).Range.Text = '   测试员签字 :                        年    月    日';

DTI.Cell(6, 1).Range.ParagraphFormat.Alignment='wdAlignParagraphCenter';

DTI.Cell(7, 1).Range.Text = '    审阅意见:';

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