全部显示

返回集合中的对象

Item 方法可以从集合中返回单独的对象。下列示例将 firstDoc 变量设为一个 Document 对象，该对象代表 Documents 集合中的第一篇文档。

Sub SetFirstDoc()
    Dim docFirst As Document
    Set docFirst = Documents.Item(1)
End Sub

Item 方法是大多数集合的默认方法，因此可以通过省略 Item 关键字使相同的语句更紧凑。

Sub SetFirstDoc()
    Dim docFirst As Document
    Set docFirst = Documents(1)
End Sub

命名对象

虽然通常可使用 Item 方法及指定一整数值返回对象，但使用名称可能更加方便。下列示例将焦点切换到名为 Sales.doc 的文档。

Sub ActivateDocument()
    Documents("Sales.doc").Activate
    MsgBox ActiveDocument.Name
End Sub

下列示例选定活动文档中第一个书签标记的文本。

Sub SelectBookmark()
    ActiveDocument.Bookmarks(1).Select
    MsgBox Selection.Text
End Sub

并非所有的集合都可用名称进行索引。若要确定有效的集合索引值，请参阅该集合对象的主题。

预定义的索引值

一些集合具有预定义的索引值，可用于返回单独的对象。每个预定义的索引值由一个常量代表。例如，可指定具有 Borders 属性的 WdBorderType 常量来返回一个单独的 Border 对象。

下列示例在所选内容的第一段下方添加一条单线型、宽 0.75 磅的边框。

Sub AddBorderToFirstParagraphInSelection()
    With Selection.Paragraphs(1).Borders(wdBorderBottom)
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth300pt
        .Color = wdColorBlue
    End With
End Sub