利用MATLAB生成Word文档.docVIP

function ceshi_Word %利用MATLAB生成Word文档 % ceshi_Word % % Copyright 2009 - 2010 xiezhh. % $Revision: 1.0.0.0 $ $Date: 2009/12/14 12:37:00 $ % 设定测试Word文件名和路径 filespec_user = [pwd \测试.doc]; % 判断Word是否已经打开，若已打开，就在打开的Word中进行操作，否则就打开Word try % 若Word服务器已经打开，返回其句柄Word Word = actxGetRunningServer(Word.Application); catch % 创建一个Microsoft Word服务器，返回句柄Word Word = actxserver(Word.Application); end; % 设置Word属性为可见 Word.Visible = 1; % 或set(Word, Visible, 1); % 若测试文件存在，打开该测试文件，否则，新建一个文件，并保存，文件名为测试.doc if exist(filespec_user,file); Document = Word.Documents.Open(filespec_user); % Document = invoke(Word.Documents,Open,filespec_user); else Document = Word.Documents.Add; % Document = invoke(Word.Documents, Add); Document.SaveAs(filespec_user); end Content = Document.Content; % 返回Content接口句柄 Selection = Word.Selection; % 返回Selection接口句柄 Paragraphformat = Selection.ParagraphFormat; % 返回ParagraphFormat接口句柄 % 页面设置 Document.PageSetup.TopMargin = 60; % 上边距60磅 Document.PageSetup.BottomMargin = 45; % 下边距45磅 Document.PageSetup.LeftMargin = 45; % 左边距45磅 Document.PageSetup.RightMargin = 45; % 右边距45磅 % 设定文档内容的起始位置和标题 Content.Start = 0; % 设置文档内容的起始位置 title = 试 卷 分 析; Content.Text = title; % 输入文字内容 Content.Font.Size = 16 ; % 设置字号为16 Content.Font.Bold = 4 ; % 字体加粗 Content.Paragraphs.Alignment = wdAlignParagraphCenter; % 居中对齐 Selection.Start = Content.end; % 设定下面内容的起始位置 Selection.TypeParagraph; % 回车，另起一段 xueqi = （ 2009 — 2010 学年 第一学期）; Selection.Text = xueqi; % 在当前位置输入文字内容 Selection.Font.Size = 12; % 设置字号为12 Selection.Font.Bold = 0; % 字体不加粗 Selection.MoveDown; % 光标下移（取消选中） paragraphformat.Alignment = wdAlignParagraphCenter; % 居中对齐 Selection.TypeParagraph; % 回车，另起一段 Selection.TypeParagraph; % 回车，另起一段 Selection.Font.Size = 10.5; % 设置字号为10.5 % 在光标所在位置插入一个12行9列的表格 Tables = Document.Tables.Add(Selection.Range,12,9); % 返回第1个表格的句柄 DTI = Document.Tables.Item(1); % 或D