![数理统计及其在数学建模中的实践(使用MATLAB)](https://wfqqreader-1252317822.image.myqcloud.com/cover/996/30762996/b_30762996.jpg)
1.8 利用MATLAB生成Word文档
1.8.1 创建Microsoft Word服务器
1.创建Microsoft Word服务器
创建Microsoft Word服务器的代码如下:
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-118.jpg?sign=1739100591-12qGy6dkuQkwAz91gtJhpm3FtqS6LEen-0-731c89b2f2fab569eb6cb32069750225)
2.设置对象属性
%设置Word服务器为可见状态
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-119.jpg?sign=1739100591-EbPRw33m1yT2VZBS2IKA67ODReZ4J0Bk-0-8c3f9b8284e8bc5d86d3f630fc918eff)
1.8.2 建立Word文本文档
1.新建空白文档
%调用Add方法建立一个空白文档,并返回其句柄Document.
>>Document=Word.Documents.Add;
2.页面设置
查看PageSetup接口的所有属性
>>Document.PageSetup.get
页面设置
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-120.jpg?sign=1739100591-SsjhDwSBeJRl5pFdjhyi2c0hOZ1NQdG6-0-801c60ee4514b31ff2ee882b8f539e92)
查看枚举类型属性VerticalAlignment的属性值
>>Document.PageSetup.set( VerticalAlignment
)
3.写入文字内容
(1)Content接口
利用Document的Content接口可以在文档指定位置写入一段文字.Content接口有很多属性和方法,读者可通过Content.get和Content.methodsview命令查看.其中Start属性用来获取或设定文字内容的起始位置,End属性用来获取或设定文字内容的终止位置,Text属性用来写入文字内容,Font属性用于字体设置,Paragraphs属性用于段落设置.%返回Document的Content接口的句柄
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-123.jpg?sign=1739100591-gTZrbFVYe34im3pg0HatpNGFqbpJEklD-0-35a8fc2df0730529d50416cf4ca54610)
(2)Selection接口
利用Word服务器的Selection接口可以在文档中选定一个区域,并对所选区域进行相关操作.
%返回Word服务器的Selection接口的句柄>>Selection=Word.Selection;
%设置选定区域的起始位置为文档内容的末尾
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-124.jpg?sign=1739100591-6tKoQsLYl5UNAvqWK6XGwjnfVnlCfaNN-0-7cd3c0fd565b960cbd51a44d1b5b9ed9)
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-125.jpg?sign=1739100591-DMLzm8Ng2ygk0heYFzhf4JzHoMqqvoPu-0-728d26a3e28d7327dd3d7635113682c6)
(3)Paragraphs接口
Word服务器的很多接口下都有Paragraphs接口,其作用类似都是用来进行段落设置的.%返回Document的Paragraphs接口的句柄
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-126.jpg?sign=1739100591-aIM375YytNoeRNVYHdOTqaQ1vw9lSvKR-0-31e35eca84e14028a129d74403be0fc8)
%在当前自然段的后面插入一个新的自然段
>>DPI1.Range.InsertParagraphAfter;
%第2自然段首行缩进25磅
>>DP.Item(2).FirstLineIndent=25;
1.8.3 插入表格
1.插入表格
Document接口下有一个Tables接口,实际上Word和Document的很多接口下都有Tables接口,比如Word.ActiveDocument、Word.Selection、Document.Paragraphs.Item(1).Range和Document.Content接口等.这些Tables接口的作用是相同的,用来在文档中插入表格.其格式为:
>>Table=Document.Tables.Add(handle,m,n);
例如:
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-127.jpg?sign=1739100591-wNqydNpabT8mFpgOpI0ZuCr0cyh26QJY-0-4c8cfd666f8311737a4e5b64af84925f)
2.设置表格边框
表格句柄下有一个Borders属性,它其实也是一个接口,用来设置表格边框.
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-128.jpg?sign=1739100591-bPbw7q4Pdz8k2nnN98pOZ9MYGYqdehgN-0-0259c9c27116803231857520a271bc12)
一个表格有8种线(注意不是线型),分别对应上边框、左边框、下边框、右边框、内横线、内竖线、左上至右下内斜线和左下至右上内斜线.
3.设置表格行高和列宽
表格句柄Table的Rows属性(也是一个接口)是指向表格各行的接口,Columns属性(也是一个接口)是指向表格各列的接口,通过这两个接口来设置表格的行高、列宽和对齐方式等.为行句柄下的Height属性和列句柄下的Width属性分别赋值,即可完成行高和列宽的设置.
%在光标所在位置插入一个12行9列的表格
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-129.jpg?sign=1739100591-NK6VRa99UpbSzh594en3JCd4PxMGUwK4-0-c3e7800ec825996033a26edfa5fb9f86)
4.设置表格对齐方式1
(1)整体设置
Rows接口的Alignment属性用来设置整个表格的水平对齐方式.
%查看Alignment属性的属性值
>>DTI.Rows.set( Alignment
)
%设置表格整体居中
>>Table.Rows.Alignment= wdAlignRowCenter
;
(2)按单元格分别设置
%设置表格的第1个单元格水平对齐方式
>>DTI.Cell(1,1).Range.Paragraphs.Alignment=属性值
%设置表格的第1个单元格垂直对齐方式
>>DTI.Cell(1,1).VerticalAlignment=属性值;
%在光标所在位置插入一个12行9列的表格
>>Tab=Document.Tables.Add(Selection.Range,12,9);
%定义表格列宽向量和行高向量
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-134.jpg?sign=1739100591-nZF53H373oap5d9RhofG8Cf906okx1Pr-0-eb4def24358d7f672742a0d0beaa7afc)
%通过循环设置表格每列的列宽
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-135.jpg?sign=1739100591-PlGp5DRS83dIgZaSaYXoiBk4ZAqYSFR9-0-39d8efc254d97a8bd8a8981d4e4a6321)
%通过循环设置表格每行的行高
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-136.jpg?sign=1739100591-3SlHKklyxvjicy9mBFRBEEQt2rBCl4ua-0-adb7c5d49268e305593187f7e4e26b5b)
5.设置表格对齐方式2
(1)整体设置
Rows接口的Alignment属性用来设置整个表格的水平对齐方式.
%查看Alignment属性的属性值
>>DTI.Rows.set( Alignment
)
%设置表格整体居中
>>Table.Rows.Alignment= wdAlignRowCenter
;
(2)按单元格分别设置
%设置表格的第1个单元格水平对齐方式
>>DTI.Cell(1,1).Range.Paragraphs.Alignment=属性值
%设置表格的第1个单元格垂直对齐方式
>>DTI.Cell(1,1).VerticalAlignment=属性值;
6.合并单元格
>>Table.Cell(i1,j1).Merge(Table.Cell(i2,j2));
7.输入单元格内容
>>Table.Cell(i,j).Range.Text=单元格内容;例如:
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-141.jpg?sign=1739100591-kQCCjuoLodHpMIX2EBjmj7zhcKLa1zFR-0-c4ba30da4535519dbeab86b4b7a60be0)
1.8.4 插入图片
Document接口下有InlineShapes和Shapes属性,它们也都是接口.利用这两个接口可以在Word文档中插入图片.由InlineShapes接口插入的图片是InlineShape对象;由Shapes接口插入的图像是Shape对象.
InlineShape对象可以是嵌入式OLE对象、链接式OLE对象、嵌入式图片、OLE控件对象和水平线等.Word文档中一幅版式为嵌入式的图片就是一个InlineShape对象.可以将In-lineShape对象理解为代表文档文字层的对象,InlineShape对象被视为字符,可将其像字符一样放置于一行文本中.
也可以将Shape对象理解为代表图形层的对象,诸如自选图形、任意多边形、OLE对象、ActiveX控件、图片等.Shape对象锁定于文本范围内,但是能够任意移动,使用户可以将它们定位于页面的任何位置.Word文档中一幅版式为四周型、紧密型、衬于文字下方或浮于文字上方的图片就是一个Shape对象.
1.InlineShapes接口和InlineShape对象
%返回InlineShapes接口的句柄
>>InlineShapes=Document.InlineShapes;
%查看InlineShape对象的类型
>>InlineShapes.Item(1).set( Type
)
2.Shapes接口和Shape对象
%返回Shapes接口的句柄
>>Shapes=Document.Shapes;
%查看Shape对象的类型
>>Shapes.Item(1).set( Type
);
3.插入外部图片
(1)插入InlineShape对象
>>handle=Document.InlineShapes.AddPicture( 外部图片所在路径
);
>>handle=Selection.InlineShapes.AddPicture( 外部图片所在路径
);
第1条命令在整个文档的左上角(默认描点位置)插入一幅外部图片.
第2条命令在当前光标位置插入一幅外部图片,两条命令均返回当前InlineShape对象(刚插入的图片)的句柄handle.
(2)插入Shape对象
>>handle=Document.Shapes.AddPicture( 外部图片所在路径
);
>>handle=Document.Shapes.AddPicture( 图片路径
,LinkToFile,…
SaveWithDocument,Left,Top,Width,Height,Anchor)
第1条命令在整个文档的左上角(默认描点位置)插入一幅外部图片.
第2条命令的作用是指定描点位置,并在距离描点一定位置处插入一幅外部图片.后7个参数不是必需的,可以为空或从后向前忽略某些参数.需要注意的是,参数LinkToFile和SaveWithDocument的值不能同时为0或 False
,但可以同时为空.
例如:
%图片完整路径
>>filename=[matlabroot \toolbox\images\imdemos\football.jpg
];
%在光标位置处插入一幅图片,版式为嵌入式
>>handle1=Selection.InlineShapes.AddPicture(filename);
%在指定位置处加入一幅图片,版式为浮于文字上方
>>handle2=Document.Shapes.AddPicture(filename,[],[],180,50,200,170);
插入图片的效果如图1-24所示.
4.插入内部图片
Word服务器下的很多接口都有Paste和PasteSpecial方法,它们的作用就是将复制到剪贴板的内容粘贴到Word文档中,这里的内容可以是文字、公式、表格和图片等,也可以是外部文件.也就是说只要是能复制到剪贴板的内容,都可以通过Paste和PasteSpecial方法,把它们插入到Word文档中.
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-158.jpg?sign=1739100591-w9DzAnWTE0JQvJvYrEHOKxiHMYzey4AE-0-d1b79fc8f9fc214d45e5fabfbc3bd0fa)
图 1-24
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-159.jpg?sign=1739100591-1mwR0Z4LYUPuS0uCenygBDKqFF7VBzUa-0-85f7f786be4746a167bb6b8fa23d842a)
例1-23 调用normrnd函数生成1000个服从标准正态分布的随机数,作出频数直方图,并把它插入到Word文档中.
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-160.jpg?sign=1739100591-Z00Iq6J8j6G68P7BnETRBft6hwFskNQb-0-a211a33299bdfdc2c5147a8c2d9bdb0f)
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-161.jpg?sign=1739100591-3KUvtYgS3qxJLlGvxB9wJmZCd8nlGn0m-0-7e071dcf0b1cfee6ddcdf6793055724d)
5.设置图片的版式
对于作为Shape对象的图片,可以设置其版式,即文字环绕方向,而对于作为Inline-Shape对象的图片,却不能直接利用MATLAB进行版式设置.需要首先获取某个Shape对象的句柄,它的WrapFormat接口下有一个枚举类型的属性Type,其可能的取值及说明见表1-1.可按如下方式修改Type的属性值:
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-162.jpg?sign=1739100591-KQfI1SZvsK4AGgnwM6aLfkPFkNLGBW6l-0-59aee9bf78754e700e27076710988c13)
表1-1 WrapFormat.Type属性及说明
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-163.jpg?sign=1739100591-Upo052JbL1K0aEt4Rn9NnPd6VG3IvbmY-0-d57a59a94d9b297e2833c97ddea853d5)
6.设置图片叠放次序
对于Shape对象的图片,还可以设置图片的叠放次序.这要用到Shape对象的ZOrder方法,该方法的调用方式为:
>>Document.Shapes.Item(i).ZOrder(MsoZOrderCmd);
该方法的输入参数及说明见表1-2.
表1-2 ZOrder方法的输入参数及其说明
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-164.jpg?sign=1739100591-Ea2oZX3PGsTceRh4ofapCA4BfKHZNBsL-0-721016a84d78ada97fbf7433c0996107)
1.8.5 插入页眉、页码
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-165.jpg?sign=1739100591-vNU2pBybvkZ6IWBDriL3XsWos86qxJv7-0-0da8691dc1d6e057c26a9effde8b9b68)
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-166.jpg?sign=1739100591-wR59ZXNInip0L6ZuqbEeUUjDNn4KpTXn-0-7899affa1b1d662853fa53d55b496061)
1.8.6 保存文档
当整个Word文档设计完成之后,需要把它保存到硬盘上,这要用到Document接口下的SaveAs方法和Save方法,它们的调用方法为
>>Document.SaveAs( FilenameAndPath
);
>>Document.Save;
其中FilenameAndPath字符串用来指定文件名及保存路径.文档第1次保存时,若用Save方法,会弹出一个保存文档的界面,让用户指定文件名和选择保存路径.若用SaveAs方法,默认保存到“我的文档”文件夹.当不指定文件名和路径时,文档被自动命名并保存到“我的文档”文件夹,而只指定路径不指定文件名时,会出现错误.
1.8.7 MATLAB生成Word文档实例
1.用MATLAB生成带有图片的Word文档
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-169.jpg?sign=1739100591-i3ixEhgVM78twihMNiarj5KLQgzyHU4I-0-1eeb58a155fc32fbcca559b0242becfe)
set(Word, Visible
,1);
%返回Word文件句柄
documents=Word.Documents;
%若测试文件存在则打开该测试文件,否则,新建一个文件并保存,文件名为“测试.doc”
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-172.jpg?sign=1739100591-ZpRZDSft9GNiBmYBONUpURoQ75LZzuUh-0-e2a69d0293ea923e4cb8dfbe4b46c25a)
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-173.jpg?sign=1739100591-fFGQUJ0gEcvU7ybYtHmAcc4VlVmlrXxv-0-a250849109a4cc5b4127a9b106bbccce)
2.用MATLAB生成带有表格的Word文档
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-174.jpg?sign=1739100591-Gl0aEEeH6p0OaxbVFISb5624P9Sk50Om-0-d2cc63cf0c0c4424ce79e667c5916626)
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-175.jpg?sign=1739100591-udD0do14L3UwV8NGGmJa2iTFjmlin8T0-0-92bb8997df0425febab0bdd7b6a700a2)
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-176.jpg?sign=1739100591-WeIeHoE4k7c4nxFQTQkO0rMTR0qqZos7-0-3400f990a85f4bfc1f0d012cb659be46)
![](https://epubservercos.yuewen.com/19D965/16741087904971906/epubprivate/OEBPS/Images/978-7-111-43176-3-Chapter01-177.jpg?sign=1739100591-ggbtbLCGYhPZ4db7HWMWQORWdByUCr25-0-1cac42147eb2b5872a3580b23430e2f2)