Auf Englisch lesen

Freigeben über


Rows-Objekt (Publisher)

Eine Auflistung von Zeile Objekte, die die Zeilen in einer Tabelle darstellen.

Hinweise

Verwenden Sie die Zeilen -Eigenschaft der Tabelle Objekt, das die Rows -Auflistung zurückzugeben.

Verwenden Sie Rows (Index), wobei index die Indexnummer ist, um ein einzelnes Row-Objekt zurückzugeben. Die Indexnummer stellt die Position der Zeile in der Rows -Auflistung (von links nach rechts gezählt).

Beispiel

Im folgenden Beispiel wird die Anzahl von Row -Objekten in der Rows -Auflistung für die erste Tabelle im aktiven Dokument angezeigt.

Sub CountRows() 
 MsgBox ActiveDocument.Pages(2).Shapes(1).Table.Rows.Count 
End Sub

In diesem Beispiel wird die Füllung für alle Zeilen mit gerader Nummer festgelegt und die Füllung für alle ungeraden Zeilen in der angegebenen Tabelle gelöscht. In diesem Beispiel wird davon ausgegangen, dass es sich bei der angegebenen Form um eine Tabelle und nicht um einen anderen Formtyp handelt.

Sub FillCellsByRow() 
 Dim shpTable As Shape 
 Dim rowTable As Row 
 Dim celTable As Cell 
 
 Set shpTable = ActiveDocument.Pages(2).Shapes(1) 
 For Each rowTable In shpTable.Table.Rows 
 For Each celTable In rowTable.Cells 
 If celTable.Row Mod 2 = 0 Then 
 celTable.Fill.ForeColor.RGB = RGB _ 
 (Red:=180, Green:=180, Blue:=180) 
 Else 
 celTable.Fill.ForeColor.RGB = RGB _ 
 (Red:=255, Green:=255, Blue:=255) 
 End If 
 Next celTable 
 Next rowTable 
 
End Sub

Im folgenden Beispiel wird die dritte Zeile in der angegebenen Tabelle markiert.

Sub SelectRows() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(3).Cells.Select 
End Sub

Methoden

Eigenschaften

Siehe auch

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.