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.
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.
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
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.