Partager via

Renvoi d'un objet à partir d'une collection

  • Article

The Item method returns a single object from a collection. The following example sets the docFirst variable to a Document object that represents the first document in the Documents collection.

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

La méthode Item est la méthode par défaut pour la plupart des collections ; vous pouvez donc écrire la même instruction de manière plus concise en omettant le mot clé Item.

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

Objets nommés

Bien que vous puissiez généralement utiliser un nombre entier avec la méthode Item, il est parfois plus simple de renvoyer un objet à partir de son nom. Cet exemple montre comment sélectionner un document nommé Sales.doc :

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

Cet exemple montre comment sélectionner le texte marqué par le premier signet du document actif :

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

Certaines collections ne peuvent pas être indexées par nom. Pour connaître quelles sont les valeurs d'index valides, consultez les rubriques relatives aux collections.

Valeurs d'index prédéfinies

Certaines collections disposent de valeurs d'index prédéfinies que vous pouvez utiliser pour renvoyer des objets. Chaque valeur d'index prédéfinie est représentée par une constante. Par exemple, la constante WdBorderType peut être affectée à la propriété Borders de façon à renvoyer un objet Border.

L'exemple ci-dessous montre comment ajouter une bordure de 0,75 point au-dessous du premier paragraphe de la sélection.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.