Word编程对象模型PPT课件.ppt

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