Объект Row (publisher)
Представляет строку в таблице. Объект Row является членом коллекции Rows . Коллекция Rows включает все строки в указанной таблице.
Используйте rows (index), где index — это номер строки, чтобы вернуть один объект Row . Номер индекса представляет позицию строки в коллекции Rows (подсчет слева направо).
Используйте метод Item коллекции Rows , чтобы вернуть объект Row .
Используйте метод Add для добавления строки в таблицу.
Используйте метод Delete для удаления строки из таблицы.
В этом примере выбирается первая строка в первой фигуре на второй странице активной публикации. В этом примере предполагается, что указанная фигура является таблицей, а не другим типом фигуры.
Sub SelectRow()
ActiveDocument.Pages(2).Shapes(1).Table.Rows(1).Cells.Select
End Sub
В этом примере задается заливка для всех четных строк и очищается заливка для всех нечетных строк в указанной таблице. В этом примере предполагается, что указанная фигура является таблицей, а не другим типом фигуры.
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
В этом примере добавляется строка в указанную таблицу на второй странице активной публикации, а затем изменяет ширину, объединяет ячейки и задает цвет заливки. В этом примере предполагается, что первая фигура является таблицей, а не другим типом фигуры.
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
В этом примере удаляется строка, добавленная в предыдущем примере.
Sub DeleteRow()
ActiveDocument.Pages(2).Shapes(1).Table.Rows(3).Delete
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.