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

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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号