从集合中返回对象 (Word)

Item 方法可以从集合中返回单独的对象。 以下示例将 docFirst 变量设置为 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。