Freigeben über

Zurückgeben eines Objekts aus einer Auflistung (Word)

  • Artikel

Die Item-Methode gibt ein einzelnes Objekt aus einer Auflistung zurück. Im folgenden Beispiel wird die docFirst-Variable auf ein Document - Objekt festgelegt, das das erste Dokument in der Documents -Auflistung darstellt.

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

Bei den meisten Auflistungen ist die Item-Methode die Standardmethode der Auflistung, sodass dieselbe Anweisung durch Auslassung des Item-Schlüsselworts knapper geschrieben werden kann.

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

Benannte Objekte

Obwohl Sie in der Regel einen ganzzahligen Wert mit der Item-Methode angeben können, kann es praktischer sein, ein Objekt anhand des Namens zurückzugeben. Im folgenden Beispiel wird der Fokus auf ein Dokument mit dem Namen Sales.doc.

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

Im folgenden Beispiel wird der Text markiert, der durch die erste Textmarke im aktiven Dokument gekennzeichnet ist.

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

Nicht in allen Auflistungen kann ein Objekt über den Namen angesprochen werden. Informationen zu den zulässigen Auflistungsindexwerten finden Sie im Auflistungsobjektthema.

Vordefinierte Indexwerte

Manche Auflistungen besitzen vordefinierte Indexwerte, die Sie zur Zurückgabe einzelner Objekte verwenden können. Jeder vordefinierte Indexwert wird durch eine Konstante dargestellt. Beispielsweise geben Sie eine WdBorderType-Konstante mit der Borders-Eigenschaft an, um ein einzelnes Border-Objekt zurückzugeben.

Im folgenden Beispiel wird unter dem ersten Absatz in der Markierung ein einzelner 0,75 Punkt starker Rahmen hinzugefügt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.