利用MATLAB生成Word文檔

1、利用matlab生成word文檔function ceshi_word%利用matlab生成word文檔% ceshi_word% copyright 2009 - 2010 xiezhh. % $revision: $ $date: 2009/12/14 12:37:00 $% 設(shè)定測試word文件名和路徑filespec_user = pwd '測試.doc'% 判斷word是否已經(jīng)打開，若已打開，就在打開的word中進(jìn)行操作，否則就打開wordtry % 若word服務(wù)器已經(jīng)打開，返回其句柄word word = actxgetrunningserver('

2、9;);catch % 創(chuàng)建一個(gè)microsoft word服務(wù)器，返回句柄word word = actxserver(''); end;% 設(shè)置word屬性為可見 = 1; % 或set(word, 'visible', 1);% 若測試文件存在，打開該測試文件，否則，新建一個(gè)文件，并保存，文件名為測試.docif exist(filespec_user,'file'); document = % document = invoke,'open',filespec_user);else document = % documen

3、t = invoke, 'add'); (filespec_user);endcontent = ; % 返回content接口句柄selection = ; % 返回selection接口句柄paragraphformat = ; % 返回paragraphformat接口句柄% 頁面設(shè)置 = 60; % 上邊距60磅 = 45; % 下邊距45磅 = 45; % 左邊距45磅 = 45; % 右邊距45磅% 設(shè)定文檔內(nèi)容的起始位置和標(biāo)題 = 0; % 設(shè)置文檔內(nèi)容的起始位置title = '試 卷 分 析' = title; % 輸入文字內(nèi)容 = 16 ;

4、% 設(shè)置字號為16 = 4 ; % 字體加粗 = 'wdalignparagraphcenter' % 居中對齊 = ; % 設(shè)定下面內(nèi)容的起始位置; % 回車，另起一段xueqi = '（ 2009 2010 學(xué)年 第一學(xué)期）' = xueqi; % 在當(dāng)前位置輸入文字內(nèi)容 = 12; % 設(shè)置字號為12 = 0; % 字體不加粗; % 光標(biāo)下移（取消選中） = 'wdalignparagraphcenter' % 居中對齊; % 回車，另起一段; % 回車，另起一段 = ; % 設(shè)置字號為% 在光標(biāo)所在位置插入一個(gè)12行9列的表格tables

5、 = % 返回第1個(gè)表格的句柄dti = % 或dti = tables;% 設(shè)置表格邊框 = 'wdlinestylesingle' = 'wdlinewidth150pt' = 'wdlinestylesingle' = 'wdlinewidth150pt' = 'wdalignrowcenter' = 'wdlinestylenone' = 'wdlinestylenone' = 'wdlinestylenone' = 'wdlinestylenone&

6、#39;% 設(shè)置表格列寬和行高column_width = ,. ,; % 定義列寬向量row_height = ,. ,; % 定義行高向量% 通過循環(huán)設(shè)置表格每列的列寬for i = 1:9 = column_width(i);end% 通過循環(huán)設(shè)置表格每行的行高for i = 1:12 = row_height(i);end% 通過循環(huán)設(shè)置每個(gè)單元格的垂直對齊方式for i = 1:12 for j = 1:9 (i,j).verticalalignment = 'wdcellalignverticalcenter' endend% 合并單元格(1, 4).merge(1

7、, 5);(2, 4).merge(2, 5);(3, 4).merge(3, 5);(4, 4).merge(4, 5);(5, 2).merge(5, 5);(5, 3).merge(5, 6);(6, 2).merge(6, 5);(6, 3).merge(6, 6);(5, 1).merge(6, 1);(7, 1).merge(7, 9);(8, 1).merge(8, 9);(9, 1).merge(9, 3);(9, 2).merge(9, 3);(9, 3).merge(9, 4);(9, 4).merge(9, 5);(10, 1).merge(10, 9);(11, 5).

8、merge(11, 9);(12, 5).merge(12, 9);(11, 1).merge(12, 4); = ; % 設(shè)置光標(biāo)位置在文檔內(nèi)容的結(jié)尾; % 回車，另起一段 = '主管院長簽字： 年 月 日' % 輸入文字內(nèi)容 = 'wdalignparagraphright' % 右對齊; % 光標(biāo)下移% 寫入表格內(nèi)容(1,1). = '課程名稱'(1,3). = '課程號'(1,5). = '任課教師學(xué)院'(1,7). = '任課教師'(2,1). = '授課班級'(2,3).

9、 = '考試日期'(2,5). = '應(yīng)考人數(shù)'(2,7). = '實(shí)考人數(shù)'(3,1). = '出卷方式'(3,3). = '閱卷方式'(3,5). = '選用試卷a/b'(3,7). = '考試時(shí)間'(4,1). = '考試方式'(4,3). = '平均分'(4,5). = '不及格人數(shù)'(4,7). = '及格率'(5,1). = '成績分布'(5,2). = '90分以上 人占 %'

10、;(5,3). = '80-89分 人占 %'(6,2). = '70-79分 人占 %'(6,3). = '60-69分 人占 %'(7,1). = '試卷分析（含是否符合教學(xué)大綱、難度、知識覆'. '蓋面、班級分?jǐn)?shù)分布分析、學(xué)生答題存在的共性問題與知識掌握情況、教學(xué)中'. '存在的問題及改進(jìn)措施等內(nèi)容）'(7,1). = 'wdalignparagraphleft'(9,2). = '簽字 :'(9,4). = '年 月 日'(10,1). = &

11、#39;教研室審閱意見：'(10,1). = 'wdalignparagraphleft'(10,1).verticalalignment = 'wdcellalignverticaltop'(11,2). = '教研室主任（簽字）: 年 月 日'(11,2). = 'wdalignparagraphleft'(8,1). = 'wdalignparagraphleft'(8,1).verticalalignment = 'wdcellalignverticaltop'(9,2).(2).l

12、inestyle = 'wdlinestylenone'(9,2).(4).linestyle = 'wdlinestylenone'(9,3).(4).linestyle = 'wdlinestylenone'(11,1).(4).linestyle = 'wdlinestylenone'% 如果當(dāng)前工作文檔中有圖形存在，通過循環(huán)將圖形全部刪除shape = ; % 返回shapes接口的句柄shapecount = ; % 返回文檔中shape對象的個(gè)數(shù)if shapecount = 0; for i = 1:shapecou

13、nt; (1).delete; % 刪除第1個(gè)shape對象 end;end;% 產(chǎn)生標(biāo)準(zhǔn)正態(tài)分布隨機(jī)數(shù)，畫直方圖，并設(shè)置圖形屬性zft = figure('units','normalized','position',. ,'visible','off'); % 新建圖形窗口，設(shè)為不可見set(gca,'position', ); % 設(shè)置坐標(biāo)系的位置和大小data = normrnd(0,1,1000,1); % 產(chǎn)生標(biāo)準(zhǔn)正態(tài)分布隨機(jī)數(shù)hist(data); % 繪制標(biāo)準(zhǔn)正態(tài)分布隨機(jī)數(shù)的頻數(shù)直方圖grid on; % 添加參考網(wǎng)格xlabel('考試成績'); % 為x軸加標(biāo)簽ylabel('人數(shù)'); % 為y軸加標(biāo)簽% 將圖形復(fù)制到粘貼板hgex