Прочитать на английском

Поделиться через


Объект 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 и обратная связь.