WordVBA---对象、属性和方法

《WordVBA---对象、属性和方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、WordVBA---对象、属性和方法对象是VisualBasic的基本构建基块；您在VisualBasic中执行的所有操作几乎都涉及到修改对象。MicrosoftWord的每一个元素，如文档、表、段落、书签和域（字段）等，都可以用VisualBasic中的一个对象来表示。什么是对象和集合？对象表示一个Word元素，如文档、段落、书签或单个字符。集合是包含多个其他对象（通常为相同类型的对象）的总称。例如，文档中的所有书签对象都包含在一个集合对象中。通过使用属性和方法，可以修改单个对象或整个对象集合。下面语句将活动文档第

2、2段第1个字符修改为红色:ActiveDocument.Paragraphs(2).Range.Characters(1).Font.Color=wdColorRed在Word的VBA中，大多数对象都是通过Application来访问，但有几个可以直接访问：如activedocumnet、documents等，当然通过application对象也行，但无疑后者更简略。什么是属性？属性是指对象的特性或其行为的一个方面。例如，文档的属性包括其名称、其内容及其保存状态，以及修订（变更跟踪）是否已打开。若要更改对象的特征，请

3、更改其属性的值。属性的设置格式：对象名.属性名=属性值下面的示例在名为“MyDoc.doc”的文档中启用了“变更跟踪”（修订）。SubTrackChanges()Documents("Sales.doc").TrackRevisions=TrueEndSub在此示例中，Documents引用的是打开的文档集合，名称“Sales.doc”标示该集合中的单个文档。为该单个文档设置了TrackRevisions属性。有些属性无法设置（只读）。属性的帮助主题标识了属性是否可以设置（读/写）还是只能读取（只读）。5/5可通过返

4、回其某个属性值返回有关对象的信息。以下示例返回活动文档的名称。SubGetDocumentName()DimstrDocNameAsStringstrDocName=ActiveDocument.NameMsgBoxstrDocNameEndSub在此示例中，ActiveDocument指Word的活动窗口中的文档。该文档（指Word的活动窗口中的文档）的名称分配给变量。该文档的名称已分配给变量strDocName。注释每个属性的帮助主题指示您是能够设置属性（可读写），只能读取属性（只读）还是只能编写属性（只写）。此

5、外，当选定属性时，VisualBasic编辑器中的对象浏览器会在浏览器窗口底部显示读/写状态。什么是方法？方法是对象可执行的操作。例如，文档可以打印，Document对象就具有PrintOut方法。方法通常都带有参数，以限定如何执行操作。以下示例将打印活动文档的前三页。SubPrintThreePages()ActiveDocument.PrintOutRange:=wdPrintRangeOfPages,Pages:="1-3"EndSub大多数情况下，方法是操作，属性是性质。使用方法将导致对对象执行操作，而使用属

6、性则将返回有关对象的信息或导致对象的性质发生改变。返回对象大多数对象均可从集合中返回单个对象。例如，Documents集合包含打开的Word文档。可使用Application对象（Word对象层次结构顶端的对象）的Documents属性返回5/5Documents集合。访问集合后，您可以使用括号内的索引值返回单个对象（这与在数组中类似）。索引值通常是一个数字或名称。以下示例使用Documents属性访问Documents集合。Documents(1)返回Documents集合中的第一个文档，Close方法应用到Doc

7、ument(1)对象以关闭Documents集合中的第一个文档。SubCloseDocument()Documents(1).CloseEndSub需要注意的是：当打开、关闭一个文档时，索引序号在变。以下示例使用文件名（字符串）标识Documents集合内的Document对象。SubCloseSalesDoc()Documents("Sales.doc").CloseEndSub集合对象的方法和属性可以用来修改整个对象集合。Documents对象具有Save方法，可将在集合中所有文档全部保存。以下示例通过应用Sav

8、e方法保存打开的所有文档。SubSaveAllOpenDocuments()Documents.SaveEndSubDocument对象还具有可用于保存单个文档的Save方法。以下示例保存名为Sales.doc的文档。SubSaveSalesDoc()Documents("Sales.doc").SaveEndSub5/5要返回Word对象层次