Word编程对象模型

1、Word编程对象模型 Application 对象。Application 对象代表微软Word 应用程序， 它是所有其他Word 对象的最顶层对象。Application对象包含可返回最高级对象的属性和方法， 通过使用这些属性和方法可以控制整个Word 环境。在程序中必须要通过这个对象启动Word， 才可以实现对Word 程序的控制; 进而可以打开Word 文档， 实现对其他对象的控制。Document 对象。Document 对象代表一篇Word 文档，这个对象是Word 程序设计的重点。Document 对象是Documents集合中的一个元素， Documents 集合包含Word 当

2、前打开的所有Document 对象。在应用程序中当打开一个已有的Word 文档或者建立一个新的Word 文档时， 就建立了一个新的Document 对象并将其加入Documents 集合。因此， 一般都可以通过Documents 集合对象来访问具体的Document 对象。Selection 对象。Selection 对象代表窗口或窗格中的当前所选定的内容; 若文档中没有所选内容， 则代表插入点。每个文档窗格只能有一个活动的Selection 对象， 并且整个应用程序中只能有一个活动的Selection 对象。Range 对象。Range 对象代表文档中的一个连续范围， 每一个Range 对象

3、由一个起始和一个终止字符位置定义。注意， Range 对象和Selection 对象是不同的： 可定义和复制一个范围而不需改变所选内容; 还可在文档中定义多个范围，但每一个窗格中只能有一个所选内容。另外， Range 对象只在定义该对象的过程正在运行时才存在。Bookmark 对象。Bookmark 对象代表单个书签， 它和Range 对象有点类似： 也是用于代表文档中的一个连续范围，也是由一个起始和一个终止字符位置定义。但是Bookmarks 对象和Range 对象主要的不同点在于： Bookmarks 对象可以同所在的文档一起保存， 也就是说即使建立Bookmarks 对象的程序停止运行甚

4、至是Bookmarks 对象所在的对象关闭了， Bookmarks对象也不会自动消失。而指定的选定内容、区域或文档中的所有书签则组成了Bookmarks 对象; 一般也都可以通过Bookmarks 集合对象来访问具体的Bookmark 对象。VB中访问Word的方法 新建一个VB的标准EXE工程 工程-引用-勾中Microsoft word 12.0 Object Library（12.0是word 2007的版本，如果电脑上安装的版本不同，这个版本号可能不一样） 然后进行编程。 本例要新建一个word文件，在里面插入两行文字，然后以mytest.docx文件名保存于D盘或（C盘）界面设计 在

5、窗体上添加一个命令按钮，在属性窗口中将其caption属性值改为“建立”。代码编写（1） 双击命令按钮，会弹出代码窗口，代码窗口中显示如下两行代码，不要改动，将光标移到这两条代码之间，编写代码代码编写（2）运行 保存工程，系统会提示先后保存窗体和工程文件。 然后点击“运行”-“启动” 在窗体中点击“建立”的命令按钮。 到D盘下查看mytest.docx文件。以模版方式新建word文档 启动word，新建一个模板，另存为模板文件 重建和上个实验相同的VB工程 代码改为 Set doc=wrdapp.documents.add(“模板名称”)Excel和Word混合编程 完成“授课通知书” 读取E

6、xcel的数据，填写到对应的Word文档中，每条记录对应的文档保存为一个word文件。操作步骤 创建word文档（已经建好） 在需要填写内容的地方创建书签 点击“插入”-“链接”-“书签” 输入书签名称（本例依次从a1编到a7），点击“添加” 将修改后的文档以book.dotx（模板类型）保存。操作步骤 启动VB程序 新建工程 引用Excel和word类库（方法同前） 在界面上添加命令按钮，设置界面，并编写代码，完成任务要求段落 Paragraphs 段落 编号从1开始，最大的段编号是Paragraphs.count 使用序号为i的某一段（i在1到Paragraphs.count之间）： Pa

7、ragraphs(i)段落格式 使用Paragraphs(i).range来设置段落格式 如果设置的格式很多，可用 with 文档名. Paragraphs(i).range 设置格式 end with 形式来设置段落字体 Paragraphs(i).range.font Paragraphs(i).=“字体名称” Paragraphs(i).range.font.bold=true(加粗） Paragraphs(i).range.font.bold=false(取消加粗） Paragraphs(i).range.font.size=(磅值）(字号） Paragr

8、aphs(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 居中 1 wdAlignParagraphDistribute 分散对齐 4 wdAlignParag

9、raphJustify 等同效果左对齐 3 wdAlignParagraphJustifyHi 等同效果左对齐 7 wdAlignParagraphJustifyLow 等同效果左对齐 8 wdAlignParagraphJustifyMed 等同效果左对齐 5 wdAlignParagraphLeft 左对齐(两端对齐) 0 wdAlignParagraphRight 右对齐 2 wdAlignParagraphThaiJustify 等同效果左对齐 9段落格式 Paragraphs(i).range. ParagraphFormat.SpaceAfter 段后间距 值为磅值 Paragra

10、phs(i).range. ParagraphFormat.Spacebefore 段前间距 值为磅值首字下沉 Paragraphs(i). DropCap Paragraphs(i). DropCap.Position = wdDropNormal （下沉状态，正常） Paragraphs(i).DropCap.Position = wdDropNone (取消下沉 Paragraphs(i).DropCap.LinesToDrop = 3 （下沉的行数）复制段落格式 利用selection对象 将要复制格式的段落选定 Paragraphs(i).Range.Select 此时selecti

11、on就代表这个选定的段落 Wrdapp.selection.copyformat (复制其格式） 选定其它要应用此格式的段落 Wrdapp.selection.pasteformat (应用其格式）插入文件 指定要插入文件的位置 用insertfile 文件名 的方法插入文件判断一个文件是否存在使用scripting类库判断一个文件是否存在Dim fso As New FileSystemObject If fso.FileExists(要检测的文件名（包括路径) =true Then fso.DeleteFile 文件 （删除此文件） End If新建VB工程练习上述内容 引入word类库和

12、scripting类库 添加一个命令按钮，在命令按钮的单击事件中写代码段落 Paragraphs 段落 编号从1开始，最大的段编号是Paragraphs.count 使用序号为i的某一段（i在1到Paragraphs.count之间）： Paragraphs(i)段落格式 使用Paragraphs(i).range来设置段落格式 如果设置的格式很多，可用 with 文档名. Paragraphs(i).range 设置格式 end with 形式来设置段落字体 Paragraphs(i).range.font Paragraphs(i).=“字体名称” Parag

13、raphs(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).ra

14、nge. ParagraphFormat.Alignment 段落对齐 常量 名称描述 赋值 wdAlignParagraphCenter 居中 1 wdAlignParagraphDistribute 分散对齐 4 wdAlignParagraphJustify 等同效果左对齐 3 wdAlignParagraphJustifyHi 等同效果左对齐 7 wdAlignParagraphJustifyLow 等同效果左对齐 8 wdAlignParagraphJustifyMed 等同效果左对齐 5 wdAlignParagraphLeft 左对齐(两端对齐) 0 wdAlignParagra

15、phRight 右对齐 2 wdAlignParagraphThaiJustify 等同效果左对齐 9段落格式 Paragraphs(i).range. ParagraphFormat.SpaceAfter 段后间距 值为磅值 Paragraphs(i).range. ParagraphFormat.Spacebefore 段前间距 值为磅值首字下沉 Paragraphs(i). DropCap Paragraphs(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.pastefor