Rows-Objekt (Publisher)
Eine Auflistung von Zeile Objekte, die die Zeilen in einer Tabelle darstellen.
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).
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
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.