Word编程对象模型.ppt

Word编程对象模型,Application对象。Application对象代表微软Word应用程序，它是所有其他Word对象的最顶层对象。Application对象包含可返回最高级对象的属性和方法，通过使用这些属性和方法可以控制整个Word环境。在程序中必须要通过这个对象启动Word，才可以实现对Word程序的控制;进而可以打开Word文档，实现对其他对象的控制。,Document对象。Document对象代表一篇Word文档，这个对象是Word程序设计的重点。Document对象是Documents集合中的一个元素，Documents集合包含Word当前打开的所有Document对象。在应用程序中当打开一个已有的Word文档或者建立一个新的Word文档时，就建立了一个新的Document对象并将其加入Documents集合。因此，一般都可以通过Documents集合对象来访问具体的Document对象。,Selection对象。Selection对象代表窗口或窗格中的当前所选定的内容;若文档中没有所选内容，则代表插入点。每个文档窗格只能有一个活动的Selection对象，并且整个应用程序中只能有一个活动的Selection对象。,Range对象。Range对象代表文档中的一个连续范围，每一个Range对象由一个起始和一个终止字符位置定义。注意，Range对象和Selection对象是不同的：可定义和复制一个范围而不需改变所选内容;还可在文档中定义多个范围，但每一个窗格中只能有一个所选内容。另外，Range对象只在定义该对象的过程正在运行时才存在。,Bookmark对象。Bookmark对象代表单个书签，它和Range对象有点类似：也是用于代表文档中的一个连续范围，也是由一个起始和一个终止字符位置定义。但是Bookmarks对象和Range对象主要的不同点在于：Bookmarks对象可以同所在的文档一起保存，也就是说即使建立Bookmarks对象的程序停止运行甚至是Bookmarks对象所在的对象关闭了，Bookmarks对象也不会自动消失。而指定的选定内容、区域或文档中的所有书签则组成了Bookmarks对象;一般也都可以通过Bookmarks集合对象来访问具体的Bookmark对象。,VB中访问Word的方法,新建一个VB的标准EXE工程工程-引用-勾中Microsoftword12.0ObjectLibrary（12.0是word2007的版本，如果电脑上安装的版本不同，这个版本号可能不一样）然后进行编程。本例要新建一个word文件，在里面插入两行文字，然后以mytest.docx文件名保存于D盘或（C盘）,界面设计,在窗体上添加一个命令按钮，在属性窗口中将其caption属性值改为“建立”。,代码编写（1）,双击命令按钮，会弹出代码窗口，代码窗口中显示如下两行代码，不要改动，将光标移到这两条代码之间，编写代码,代码编写（2）,运行,保存工程，系统会提示先后保存窗体和工程文件。然后点击“运行”-“启动”在窗体中点击“建立”的命令按钮。到D盘下查看mytest.docx文件。,以模版方式新建word文档,启动word，新建一个模板，另存为模板文件重建和上个实验相同的VB工程代码改为Setdoc=wrdapp.documents.add(“模板名称”),Excel和Word混合编程,完成“授课通知书”读取Excel的数据，填写到对应的Word文档中，每条记录对应的文档保存为一个word文件。,操作步骤,创建word文档（已经建好）在需要填写内容的地方创建书签点击“插入”-“链接”-“书签”输入书签名称（本例依次从a1编到a7），点击“添加”将修改后的文档以book.dotx（模板类型）保存。,操作步骤,启动VB程序新建工程引用Excel和word类库（方法同前）在界面上添加命令按钮，设置界面，并编写代码，完成任务要求,段落,Paragraphs段落编号从1开始，最大的段编号是Paragraphs.count使用序号为i的某一段（i在1到Paragraphs.count之间）：Paragraphs(i),段落格式,使用Paragraphs(i).range来设置段落格式如果设置的格式很多，可用with文档名.Paragraphs(i).range设置格式endwith形式来设置,段落字体,Paragraphs(i).range.fontParagraphs(i).=“字体名称”Paragraphs(i).range.font.bold=true(加粗）Paragraphs(i).range.font.bold=false(取消加粗）Paragraphs(i).range.font.size=(磅值）(字号）Paragraphs(i).range.font.color=颜色的常量Paragraphs(i).range.font.italic=true设置斜体Paragraphs(i).range.font.italic=false取消斜体,段落字体,Paragraphs(i).range.font.underline下划线,段落格式,Paragraphs(i).range.ParagraphFormat.Alignment段落对齐常量名称描述赋值wdAlignParagraphCenter居中1wdAlignParagraphDistribute分散对齐4wdAlignParagraphJustify等同效果左对齐3wdAlignParagraphJustifyHi等同效果左对齐7wdAlignParagraphJustifyLow等同效果左对齐8wdAlignParagraphJustifyMed等同效果左对齐5wdAlignParagraphLeft左对齐(两端对齐)0wdAlignParagraphRight右对齐2wdAlignParagraphThaiJustify等同效果左对齐9,段落格式,Paragraphs(i).range.ParagraphFormat.SpaceAfter段后间距值为磅值Paragraphs(i).range.ParagraphFormat.Spacebefore段前间距值为磅值,首字下沉,Paragraphs(i).DropCapParagraphs(i).DropCap.Position=wdDropNormal（下沉状态，正常）Paragraphs(i).DropCap.Position=wdDropNone(取消下沉Paragraphs(i).DropCap.LinesToDrop=3（下沉的行数）,复制段落格式,利用selection对象将要复制格式的段落选定Paragraphs(i).Range.Select此时selection就代表这个选定的段落Wrdapp.selection.copyformat(复制其格式）选定其它要应用此格式的段落Wrdapp.selection.pasteformat(应用其格式）,插入文件,指定要插入文件的位置用insertfile文件名的方法插入文件,判断一个文件是否存在,使用scripting类库,判断一个文件是否存在,DimfsoAsNewFileSystemObject,Iffso.FileExists(要检测的文件名（包括路径)=trueThenfso.DeleteFile文件（删除此文件）EndIf,新建VB工程练习上述内容,引入word类库和scripting类库添加一个命令按钮，在命令按钮的单击事件中写代码,段落,Paragraphs段落编号从1开始，最大的段编号是Paragraphs.count使用序号为i的某一段（i在1到Paragraphs.count之间）：Paragraphs(i),段落格式,使用Paragraphs(i).range来设置段落格式如果设置的格式很多，可用with文档名.Paragraphs(i).range设置格式endwith形式来设置,段落字体,Paragraphs(i).range.fontParagraphs(i).=“字体名称”Paragraphs(i).range.font.bold=true(加粗）Paragraphs(i).range.font.bold=false(取消加粗）Paragraphs(i).range.font.size=(磅值）(字号）Paragraphs(i).range.font.color=颜色的常量Paragraphs(i).range.font.italic=true设置斜体Paragraphs(i).range.font.italic=false取消斜体,段落字体,Paragraphs(i).range.font.underline下划线,段落格式,Paragraphs(i).range.ParagraphFormat.Alignment段落对齐常量名称描述赋值wdAlignParagraphCenter居中1wdAlignParagraphDistribute分散对齐4wdAlignParagraphJustify等同效果左对齐3wdAlignParagraphJustifyHi等同效果左对齐7wdAlignParagraphJustifyLow等同效果左对齐8wdAlignParagraphJustifyMed等同效果左对齐5wdAlignParagraphLeft左对齐(两端对齐)0wdAlignParagraphRight右对齐2wdAlignParagraphThaiJustify等同效果左对齐9,段落格式,Paragraphs(i).range.ParagraphFormat.SpaceAfter段后间距值为磅值Paragraphs(i).range.ParagraphFormat.Spacebefore段前间距值为磅值,首字下沉,Paragraphs(i).DropCapParagraphs(i).DropCap.Position=wdDropNormal（下沉状态，正常）Paragraphs(i).DropCap.Position=wdDropNone(取消下沉Paragraphs(i).DropCap.LinesToDrop=3（下沉的行数）,复制段落格式,利用selection对象将要复制格式的段落选定Paragraphs(i).Range.Select此时selection就代表这个选定的段落Wrdapp.selection.copyformat(复制其格式）选定其它要应用此格式的段落Wrdapp.selection.pasteforma