Compartilhar via


Retornando um objeto de uma coleção (Word)

O método Item retorna um único objeto de uma coleção. O exemplo a seguir define a docFirst variável como um objeto Document que representa o primeiro documento na coleção Documentos .

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

O método Item é o método padrão para a maioria das coleções, de forma que você pode escrever a mesma instrução de maneira abreviada omitindo a palavra-chave Item.

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

Objetos nomeados

Ainda que em geral você possa especificar um valor inteiro com o método Item, pode ser mais conveniente retornar um objeto pelo nome. O exemplo a seguir transfere o foco para um documento chamado Sales.doc.

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

O exemplo a seguir retorna o texto associado ao primeiro indicador do documento ativo.

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

Nem todas as coleções podem ser indexadas por nome. Para determinar os valores válidos de índice das coleções, consulte o tópico referente ao objeto da coleção.

Valores de índice predefinidos

Algumas coleções têm valores de índice predefinidos que você pode usar para retornar objetos individuais. Cada valor de índice predefinido é representado por uma constante. Por exemplo, você especifica uma constante WdBorderType com a propriedade Borders para retornar um único objeto Border .

O exemplo a seguir adiciona uma única borda de 0,75 pontos abaixo do primeiro parágrafo na seleção.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.