用Matlab生成Word文档

xiezhh

应bainhome版主要求，把我编的一段生成word文档的Matlab程序贴出来，生成的文档中含有表格，代码如下：

1. filespec = 'C:\Documents and Settings\Administrator\桌面\xiezh.doc';
   
2. try;
   
3.     Word=actxGetRunningServer('Word.Application');
   
4. catch;
   
5.     Word = actxserver('Word.Application');
   
6. end;
   
7. 
   
8. set(Word, 'Visible', 1);
   
9. documents = Word.Documents;
   
10. if exist(filespec,'file')
    
11.     document = invoke(documents,'Open',filespec);   
    
12. else
    
13.     document = invoke(documents, 'Add');
    
14.     document.SaveAs(filespec);
    
15. end
    
16. 
    
17. content = document.Content;
    
18. duplicate = content.Duplicate;
    
19. inlineshapes = content.InlineShapes;
    
20. selection = Word.Selection;
    
21. paragraphformat = selection.ParagraphFormat;
    
22. 
    
23. %页面设置
    
24. document.PageSetup.TopMargin = 60;
    
25. document.PageSetup.BottomMargin = 45;
    
26. document.PageSetup.LeftMargin = 45;
    
27. document.PageSetup.RightMargin = 45;
    
28. 
    
29. set(content, 'Start',0);
    
30. title='试  卷  分  析';
    
31. set(content, 'Text',title);
    
32. set(paragraphformat, 'Alignment','wdAlignParagraphCenter');
    
33. rr=document.Range(0,10);
    
34. rr.Font.Size=16;
    
35. rr.Font.Bold=4;
    
36. 
    
37. end_of_doc = get(content,'end');
    
38. set(selection,'Start',end_of_doc);
    
39. 
    
40. selection.TypeParagraph;
    
41. set(selection, 'Text','（20     —20     学年 第     学期）');
    
42. selection.Font.Size=12;
    
43. selection.MoveDown;
    
44. set(paragraphformat, 'Alignment','wdAlignParagraphCenter');
    
45. 
    
46. selection.TypeParagraph;
    
47. selection.TypeParagraph;
    
48. selection.Font.Size=10.5;
    
49. Tables=document.Tables.Add(selection.Range,12,9);
    
50. 
    
51. 
    
52. %设置边框
    
53. DTI=document.Tables.Item(1);
    
54. DTI.Borders.OutsideLineStyle='wdLineStyleSingle';
    
55. DTI.Borders.OutsideLineWidth='wdLineWidth150pt';
    
56. DTI.Borders.InsideLineStyle='wdLineStyleSingle';
    
57. DTI.Borders.InsideLineWidth='wdLineWidth150pt';
    
58. DTI.Rows.Alignment='wdAlignRowCenter';
    
59. DTI.Rows.Item(8).Borders.Item(1).LineStyle='wdLineStyleNone';
    
60. DTI.Rows.Item(8).Borders.Item(3).LineStyle='wdLineStyleNone';
    
61. DTI.Rows.Item(11).Borders.Item(1).LineStyle='wdLineStyleNone';
    
62. DTI.Rows.Item(11).Borders.Item(3).LineStyle='wdLineStyleNone';
    
63. 
    
64. column_width=[53.7736,80.9434,53.7736,29.0094,29.0094,76.6981,55.1887,52.9245,54.9057];
    
65. row_height=[28.5849,28.5849,28.5849,28.5849,25.4717,25.4717,32.8302,312.1698,17.8302,49.2453,14.1509,18.6792];
    
66. for i=1:9
    
67.     DTI.Columns.Item(i).Width =column_width(i);
    
68. end
    
69. for i=1:12
    
70.     DTI.Rows.Item(i).Height =row_height(i);
    
71. end
    
72. for i=1:12
    
73.     for j=1:9
    
74.         DTI.Cell(i,j).VerticalAlignment='wdCellAlignVerticalCenter';
    
75.     end
    
76. end
    
77. 
    
78. DTI.Cell(1, 4).Merge(DTI.Cell(1, 5));
    
79. DTI.Cell(2, 4).Merge(DTI.Cell(2, 5));
    
80. DTI.Cell(3, 4).Merge(DTI.Cell(3, 5));
    
81. DTI.Cell(4, 4).Merge(DTI.Cell(4, 5));
    
82. DTI.Cell(5, 2).Merge(DTI.Cell(5, 5));
    
83. DTI.Cell(5, 3).Merge(DTI.Cell(5, 6));
    
84. DTI.Cell(6, 2).Merge(DTI.Cell(6, 5));
    
85. DTI.Cell(6, 3).Merge(DTI.Cell(6, 6));
    
86. DTI.Cell(5, 1).Merge(DTI.Cell(6, 1));
    
87. DTI.Cell(7, 1).Merge(DTI.Cell(7, 9));
    
88. DTI.Cell(8, 1).Merge(DTI.Cell(8, 9));
    
89. DTI.Cell(9, 1).Merge(DTI.Cell(9, 3));
    
90. DTI.Cell(9, 2).Merge(DTI.Cell(9, 3));
    
91. DTI.Cell(9, 3).Merge(DTI.Cell(9, 4));
    
92. DTI.Cell(9, 4).Merge(DTI.Cell(9, 5));
    
93. DTI.Cell(10, 1).Merge(DTI.Cell(10, 9));
    
94. DTI.Cell(11, 5).Merge(DTI.Cell(11, 9));
    
95. DTI.Cell(12, 5).Merge(DTI.Cell(12, 9));
    
96. DTI.Cell(11, 1).Merge(DTI.Cell(12, 4));
    
97. 
    
98. end_of_doc = get(content,'end');
    
99. set(selection,'Start',end_of_doc);
    
100. selection.TypeParagraph;
     
101. set(selection, 'Text','主管院长签字：            年    月    日');
     
102. set(paragraphformat, 'Alignment','wdAlignParagraphRight');
     
103. 
     
104. DTI.Cell(1,1).Range.Text = '课程名称';
     
105. DTI.Cell(1,3).Range.Text = '课程号';
     
106. DTI.Cell(1,5).Range.Text = '任课教师学院';
     
107. DTI.Cell(1,7).Range.Text = '任课教师';
     
108. DTI.Cell(2,1).Range.Text = '授课班级';
     
109. DTI.Cell(2,3).Range.Text = '考试日期';
     
110. DTI.Cell(2,5).Range.Text = '应考人数';
     
111. DTI.Cell(2,7).Range.Text = '实考人数';
     
112. DTI.Cell(3,1).Range.Text = '出卷方式';
     
113. DTI.Cell(3,3).Range.Text = '阅卷方式';
     
114. DTI.Cell(3,5).Range.Text = '选用试卷A/B';
     
115. DTI.Cell(3,7).Range.Text = '考试时间';
     
116. DTI.Cell(4,1).Range.Text = '考试方式';
     
117. DTI.Cell(4,3).Range.Text = '平均分';
     
118. DTI.Cell(4,5).Range.Text = '不及格人数';
     
119. DTI.Cell(4,7).Range.Text = '及格率';
     
120. DTI.Cell(5,1).Range.Text = '成绩分布';
     
121. DTI.Cell(5,2).Range.Text = '90分以上      人占        %';
     
122. DTI.Cell(5,3).Range.Text = '80---89分        人占        %';
     
123. DTI.Cell(6,2).Range.Text = '70--79分      人占        %';
     
124. DTI.Cell(6,3).Range.Text = '60---69分        人占        %';
     
125. DTI.Cell(7,1).Range.Text = '试卷分析（含是否符合教学大纲、难度、知识覆盖面、班级分数分布分析、学生答题存在的共性问题与知识掌握情况、教学中存在的问题及改进措施等内容）';
     
126. DTI.Cell(7,1).Range.ParagraphFormat.Alignment='wdAlignParagraphLeft';
     
127. DTI.Cell(9,2).Range.Text = '签字 :';
     
128. DTI.Cell(9,4).Range.Text = '年    月    日';
     
129. DTI.Cell(10,1).Range.Text = '教研室审阅意见：';
     
130. DTI.Cell(10,1).Range.ParagraphFormat.Alignment='wdAlignParagraphLeft';
     
131. DTI.Cell(10,1).VerticalAlignment='wdCellAlignVerticalTop';
     
132. DTI.Cell(11,2).Range.Text = '教研室主任（签字）:          年    月    日';
     
133. DTI.Cell(11,2).Range.ParagraphFormat.Alignment='wdAlignParagraphLeft';
     
134. DTI.Cell(8,1).Range.ParagraphFormat.Alignment='wdAlignParagraphLeft';
     
135. DTI.Cell(8,1).VerticalAlignment='wdCellAlignVerticalTop';
     
136. DTI.Cell(9,2).Borders.Item(2).LineStyle='wdLineStyleNone';
     
137. DTI.Cell(9,2).Borders.Item(4).LineStyle='wdLineStyleNone';
     
138. DTI.Cell(9,3).Borders.Item(4).LineStyle='wdLineStyleNone';
     
139. DTI.Cell(11,1).Borders.Item(4).LineStyle='wdLineStyleNone';

复制代码

生成的文档见附件

[ 本帖最后由 bainhome 于 2008-11-10 00:47 编辑 ]

小兰花

我试了，果然能得到一张word的“试  卷  分  析”。

MATLAB的功能真强大！
博大精深！要学的东西太多了！！

bainhome

把两个相关的帖子链接放在一起，便于查看：
链接1：
共享matlab编辑word代码
链接2：
帮忙解决一下matlab与word接口的问题

[ 本帖最后由 bainhome 于 2008-11-10 00:45 编辑 ]

abaodyb

楼主好强大！见识了啊！

龙啸

谢老师，您好，看了你的程序，非常感谢！现在我在编写一个matlab数据写入word文档的程序。word文档中有n个表格（n数值未知），现在要把数据写入到最后一个表格，怎么实现，查看word中表格的个数？？谢谢
即：53.DTI=document.Tables.Item(1);  中的1怎么替代？？？不胜感激

Augest

楼主辛苦了

zhouyanqing1981

太强了！

20052959

:D太强大了  楼主好厉害

碧海潮生

哇  ，，，，厉害强大

azdiamondback

我的matlab2011a，office2010，运行这个程序，14行出错了，好像是 找不到这个函数，

hao2927430

太厉害了，功能强大

cwit

顶一个。谢谢！

sunset

这么有意思啊，我也试试去啊

jiwenyu

楼主强大！

紫月2008

:hug:楼主太好了，正在找这个，多谢楼主啦！

hhwuai007

只是不明白，这个有什么用处啊。
只要能把数据保存在一个文件里即可，直接用word来绘制表格，更加方便。

zzz420325

厉害，楼主辛苦了！

piaoping2011

好东西，学习了!

fanxiangn

楼主太牛逼了

LuckyAngel

正在学习matlab，有些看不明白，先收藏了。谢谢谢老师分享。