Word VBA教程:返回集合中的对象

来源:百度文库 编辑:神马文学网 时间:2024/06/07 21:14:51
Item方法可以从集合中返回单独的对象。下列示例将firstDoc 变量设为一个Document对象,该对象代表Documents集合中的第一篇文档。
Sub SetFirstDoc()Dim docFirst As DocumentSet docFirst = Documents.Item(1)End Sub
Item方法是大多数集合的默认方法,因此可以通过省略 Item 关键字使相同的语句更紧凑。
Sub SetFirstDoc()Dim docFirst As DocumentSet docFirst = Documents(1)End Sub命名对象
虽然通常可使用 Item方法及指定一整数值返回对象,但使用名称可能更加方便。下列示例将焦点切换到名为 Sales.doc 的文档。
Sub ActivateDocument()Documents("Sales.doc").ActivateMsgBox ActiveDocument.NameEnd Sub
下列示例选定活动文档中第一个书签标记的文本。
Sub SelectBookmark()ActiveDocument.Bookmarks(1).SelectMsgBox Selection.TextEnd Sub
并非所有的集合都可用名称进行索引。若要确定有效的集合索引值,请参阅该集合对象的主题。
预定义的索引值
一些集合具有预定义的索引值,可用于返回单独的对象。每个预定义的索引值由一个常量代表。例如,可指定具有Borders属性的 WdBorderType 常量来返回一个单独的Border对象。
下列示例在所选内容的第一段下方添加一条单线型、宽 0.75 磅的边框。
Sub AddBorderToFirstParagraphInSelection()With Selection.Paragraphs(1).Borders(wdBorderBottom).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth300pt.Color = wdColorBlueEnd WithEnd Sub