matlab编辑word基本函数

%表格的绘制 %输入 第几个表格 路径文件名 内容矩阵 function TableEdi(num, strOutPutName, B) %首先定义文件路径fp fp = [pwd strOutPutName]; %矩阵纬度 iSize=size(B); yLen=iSize(1,1); xLen=iSize(1,2); try Word = actxGetRunningServer('Word.Application'); %WORD应用打开，则获得其句柄 catch Word = actxserver('Word.Application'); %WORD应用未打开，则打开并获得句柄 end; Word.Visible = 1; %WORD文件设置为可见? if exist(fp,'file'); Document = Word.Documents.Open(fp); %fp文件存在，则打开并获得句柄? else Document = Word.Documents.Add; Document.SaveAs(fp); %fp文件不存在，则创建并保存为fp，同时获得其句柄?。这里的SaveAs2需要强调一 %下 end Content = Document.Content; Selection = Word.Selection; Selection.Start = Content.end; % 设定下面内容的起始位置 Document.Save; % 保存文档 Selection.Start = Content.end; % 设定下面内容的起始位置 %Selection.TypeParagraph; % 回车，另起一段 Document.Save;%保存文档 Tables=Document.Tables.Add(Selection.Range,yLen+1,xLen+1); %设置边框 %选定要编辑第几个表格 DTI=Document.Tables.Item(num); DTI.Borders.OutsideLineStyle='wdLineStyleSingle'; DTI.Borders.OutsideLineWidth='wdLineWidth100pt'; DTI.Borders.InsideLineStyle='wdLineStyleSingle'; DTI.Borders.InsideLineWidth='wdLineWidth100pt'; DTI.Rows.Alignment='wdAlignRowCenter'; % 设置列宽，单位为磅 for i = 1:xLen+1 DTI.Columns.Item(i).Width = 130; end % 设置行高 for i = 1:yLen+1 DTI.Rows.Item(i).Height = 28.5849; end %顺次填入内容 for i=1:yLen for j=1:xLen DTI.Cell(i+1, j+1).Range.Text = num2str(B(i,j)); %元素中对齐 DTI.Cell(i+1,j+1).Range.ParagraphFormat.Alignment = 'wdAlignParagraphCenter'; end end %顺次对齐 for i=1:yLen+1 for j=1:xLen+1 DTI.Cell(i,j).Range.ParagraphFormat.Alignment = 'wdAlignParagraphCenter'; end end %删除图形句柄会导致后续WORD换行失败，原因不明，所以不建议删除 Document.Save; %保存文档 Selection.Start = Content.end; %设定下面内容的起始位置 Document.Save;%保存文档 %Word?.Quit; %关闭WORD end