《第五章 Word VBA常用对象与应用案例》由会员分享，可在线阅读，更多相关《第五章 Word VBA常用对象与应用案例（106页珍藏版）》请在金锄头文库上搜索。
1、第二章 Word VBA常用对象与应用 案例 计算中心编制上海大学上海大学 Shanghai University对对象的概念和对对象变变量的定义义对象的概念对象（object）是一些相关的变量和方法的集合。Office VBA是 一种面向对象的编程语言。对象是VBA的结构基础，VBA应用程序 就是由许多对象组成。在Office中，VBA对象可分为集合对象和独立对象两种。独立对 象代表一个Office中的一个元素，如Word中的一个文档、一个段落 、一个书签或单独的字符。集合也是一个对象，该对象包含多个其 他对象，通常这些对象属于相同的类型；例如，在Word中，一个 Documents集合对象
2、中可包含文档中的所有Document对象。修改 与对象相关的方法或属性就可以定制对象，也可修改整个的对象集 合。在VBA中，有一个变量的数据类型是Object，即对象型变量。 使用对象变量代替一个对象是指：不直接引用该对象，而使用对象 变量访问其代表的对象2计算中心编制上海大学上海大学 Shanghai University对对象的概念和对对象变变量的定义义例如，一段程序同时处理三个打开的Word文档，从一个文档中将一些文本复制到另外两个文档中去。如果仅仅打开了这三个文档，就 可以分别引用，如写成Documents(1)、Documents(2)、 Documents(3)，因为这些文档在Do
3、cuments集合中占有前三个位置。然而，如果程序改变了文档的顺序，关闭一个或多个文档，或者生成一个和多个新的文档，情况立刻就会变得混乱起来。但是如果 使用了对象变量（例如，命名为Words1、Words2、Words3）去 引用这些文档，情况就简单得多。这是因为不论在Documents集合 中哪个文档处在第一的位置，总可以用对象变量Wordsl3进行引用，并了解将要使用的文档。 3计算中心编制上海大学上海大学 Shanghai University对对象的概念和对对象变变量的定义义对象变量的定义Dim MyObject1 As ObjectSet objectvariable=express
4、ion|nothing例如，下面的语句声明MyObject1变量，并赋值为Excel的当前工作簿：Dim exObject1 As ObjectSet exObject1=ActiveDocument而下面的语句使用Nothing关键字，则释放exObject1对象变量占用的内存空间：Set exObject1=Nothing4计算中心编制上海大学上海大学 Shanghai UniversityWord中的常用对对象Word中常用的对象有：Application对象、Document 对象、Range对象、Selection对象、Paragraph对象、 Sentences对象、Words对象
5、、Characters对象、Find 与Replacement对象、Table（包括Column、Row和 Cell）对象等。其中，Application对象是Word中最高级别的对象， 它就是Word应用程序本身。5计算中心编制上海大学上海大学 Shanghai UniversityWord中的常用对对象Application对象用户启动一个Word时的同时，也创建了一个Application对象。 Application对象位于对象模型的最高级，它代表整个Word应用程序，而且此对象的属性和方法独立于所有文档之外，全部针对的是 Word应用程序本身。用户可以使用Application对象的
6、属性或方法来控制或返回应用程序范围内的特性、控制应用程序窗口的外观等 。可以使用Application属性来返回Word Application对象。如，以下的语句表示从视图状态切换到打印预览状态。Application.PrintPreview = True 6计算中心编制上海大学上海大学 Shanghai UniversityWord中的常用对对象Sub application1()With Application.WindowState = wdWindowStateNormal.Height = 450.Width = 600End WithEnd Sub属性说明Application
7、.Act iveDocument当前文档，也可直接使用 ActiveDocument Application.Act ivePrinter获取当前打印机 Application.Act iveWindows当前窗口Application.Hei ght当前应用程序文档的高度 Application.Wi dth当前应用程序文档的宽度 Application.Bui ld获取Word版本号和编译 序号 Application.Ca ption当前应用程序名 7计算中心编制上海大学上海大学 Shanghai UniversityWord中的常用对对象属性说明 Application.Default
8、SaveFormat返回空字符串，表示Word文档 Application.DisplayRecentFiles返回是否显示最近使用的文档的状态 Application.Documents.Count返回当前打开的文档数 Application.FontNames.Count返回当前可用的字体数 Application.Left返回当前文档的水平位置 Application.MacroContainer.FullNam e返回当前文档名，包括所在路径 Application.NormalTemplate.FullNam e返回文档标准模板名称及所在位置 Application.Path显示活动
9、文档的路径和文件名 Application.RecentFiles.Count返回最近打开的文档数目 Application.System.FreeDiskSpace返回应用程序所在磁盘可用空间 Application.Templates.Count返回应用程序所使用的模板数 Application.UserName返回应用程序用户名 Application.Version返回应用程序的版本号 8计算中心编制上海大学上海大学 Shanghai UniversityWord中的常用对对象Application.Activate 方法激活指定的对象。Application.Move方 法设置任务窗
10、口或活动文档窗口的位置。Application.GoForw ard方法将插入点在活动文档中进行编辑的最后三个位置之 间向前移动。Application.PrintOut 方法该方法可打印指定文档的全部或部分。Application.Resize 方法调整Word窗口大小。如果该窗口被最大化或最小化 ，将导致出错。Application.Quit方法退出Microsoft Word，并可选择保存或传送打开的 文档。9计算中心编制上海大学上海大学 Shanghai UniversityWord中的常用对对象用户可以用以下的代码检查Documents集合的Count属性来确认是否有文档 是打开的。
11、 Sub application2()If Documents.Count = 0 ThenIf MsgBox(“没有文档被打开！“ & vbCr & vbCr & _ “你希望创建一个空白文档吗?“, _ vbYesNo + vbExclamation, “No Doccnnent Is Open“) = vbYes ThenDocuments.AddElseEndEnd IfEnd If End Sub 10计算中心编制上海大学上海大学 Shanghai UniversityWord中的常用对对象如果对正在使用哪个文档进行操作存在疑问，则应声明一个 Document对象变量，并使用这个对象
12、变量来工作，而不是使用 ActiveDocument对象来工作。例如，下述语句声明一个Document 对象，并将ActiveDocument对象指派给它，所以以后的代码可以针 对这Document对象工作。Dim myDocument As DocumentSet myDocument = ActiveDocumentWith myDocument.PageSetup.RightMargin = InchesToPoints(1) 右页边距设置为 1 英寸（72 磅）End With11计算中心编制上海大学上海大学 Shanghai UniversityWord中的常用对对象Applicat
13、ion对象应用举例 下面代码显示活动文档的路径和文件名。MsgBox ActiveDocument.Path & Application.PathSeparator & ActiveDocument.Name下面代码显示活动文档的名称，如果没有打开的文档，则显示 一条消息。 If Application.Documents.Count = 1 ThenMsgBox ActiveDocument.Name ElseMsgBox “没有文档被打开！“ End If12计算中心编制上海大学上海大学 Shanghai UniversityWord中的常用对对象下面代码将所选内容为插入点，然后创建一个区
14、域，包括选定内容的后面 五个字符。 Dim rngTemp As Range Selection.Collapse Direction:=wdCollapseStart Set rngTemp = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start + 5) 下面代码在活动文档的开头插入文本，然后打印该文档。 Dim rngTemp As Range Set rngTemp = ActiveDocument.Range(Start:=0, End:=0) With rngTemp.InsertBefore “公司报
15、告“.Font.Name = “Arial“.Font.Size = 24.InsertParagraphAfter End With ActiveDocument.PrintOut13计算中心编制上海大学上海大学 Shanghai UniversityWord中的常用对对象将插入点移至曾经进行过编辑的下一个位置。 Application.GoForward打印活动文档的当前页面。 ActiveDocument.PrintOut Range:=wdPrintCurrentPage打印当前文件夹中的所有文档。 adoc = Dir(“*.DOC“) Dir 函数用于返回所有扩展名为“.doc”的
16、文件名。 Do While adoc = 1 ThenMsgBox Documents.Item(1).NameEnd If End Sub 以只读方式打开文档MyDoc.doc。 Sub OpenDoc()Documents.Open FileName:=“C:MyFilesMyDoc.doc“, ReadOnly:=True End Sub 如果活动文档在上次保存后进行了修改，则保存活动文档。 If ActiveDocument.Saved = False Then ActiveDocument.Save20计算中心编制上海大学上海大学 Shanghai UniversityWord中的常用对对象保存Documents集合中的每一文档，但在保存文档前不提示用户 。Documents.Save NoPrompt:=True, _OriginalFormat:=wdOriginalDocumentFormat(5)以下代
