Auf Englisch lesen

Freigeben über


Row-Objekt (Publisher)

Stellt eine Zeile in einer Tabelle dar. Das Row -Objekt ist ein Element der Zeilen Auflistung. Die Rows -Auflistung enthält alle Zeilen in einer angegebenen Tabelle.

Hinweise

Verwenden Sie Rows (Index), wobei index die Zeilennummer 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).

Verwenden Sie die Item -Methode eine Zeilen Auflistung, um ein Row -Objekt zurückzugeben.

Verwenden Sie die Hinzufügen Methode, um eine Tabelle eine Zeile hinzuzufügen.

Verwenden Sie das Löschen Methode, um eine Zeile aus einer Tabelle zu löschen.

Beispiel

In diesem Beispiel wird die erste Zeile in der ersten Form auf der zweiten Seite der aktiven Publikation ausgewählt. In diesem Beispiel wird davon ausgegangen, dass es sich bei der angegebenen Form um eine Tabelle und nicht um einen anderen Formtyp handelt.

Sub SelectRow() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(1).Cells.Select 
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

In diesem Beispiel wird der angegebenen Tabelle auf der zweiten Seite der aktiven Publikation eine Zeile hinzugefügt, und klicken Sie dann legt eine gleiche Breite, verbindet die Zellen und legt die Füllfarbe fest. In diesem Beispiel wird davon ausgegangen, dass es sich bei der ersten Form um eine Tabelle und nicht um einen anderen Formtyp handelt.

Sub NewRow() 
 Dim rowNew As Row 
 
 Set rowNew = ActiveDocument.Pages(2).Shapes(1).Table.Rows _ 
 .Add(BeforeRow:=3) 
 With rowNew 
 .Height = 2 
 .Cells.Merge 
 .Cells(1).Fill.ForeColor.RGB = RGB(Red:=0, Green:=0, Blue:=0) 
 End With 
End Sub

In diesem Beispiel wird die zeile gelöscht, die im vorherigen Beispiel hinzugefügt wurde.

Sub DeleteRow() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(3).Delete 
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.