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

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


Объект Cell (Word)

Представляет одну ячейку таблицы. Объект Cell является членом коллекции Cells . Коллекция Cells представляет все ячейки в указанном объекте.

Замечания

Используйте ячейку (строка, столбец), где строка — номер строки, а столбец — номер столбца, или Cells (index), где index — номер индекса, чтобы вернуть объект Cell . В следующем примере применяется затенение ко второй ячейке в первой строке.

Set myCell = ActiveDocument.Tables(1).Cell(Row:=1, Column:=2) 
myCell.Shading.Texture = wdTexture20Percent

В следующем примере применяется заливка к первой ячейке в первой строке.

ActiveDocument.Tables(1).Rows(1).Cells(1).Shading _ 
 .Texture = wdTexture20Percent

Используйте метод Add , чтобы добавить объект Cell в коллекцию Cells . Для вставки новых ячеек можно также использовать метод InsertCells объекта Selection . В следующем примере ячейка добавляется перед первой ячейкой в myTable.

Set myTable = ActiveDocument.Tables(1) 
myTable.Range.Cells.Add BeforeCell:=myTable.Cell(1, 1)

В следующем примере задается диапазон ( myRange ), который ссылается на первые две ячейки в первой таблице. После задания диапазона ячейки объединяются методом Merge .

Set myTable = ActiveDocument.Tables(1) 
Set myRange = ActiveDocument.Range(myTable.Cell(1, 1) _ 
 .Range.Start, myTable.Cell(1, 2).Range.End) 
myRange.Cells.Merge

Замечания

Используйте метод Add с коллекцией Rows или Columns , чтобы добавить строку или столбец ячеек.

Используйте свойство Information с объектом Selection , чтобы вернуть текущую строку и номер столбца. В следующем примере изменяется ширина первой ячейки в выделенном фрагменте, а затем отображается номер строки и номер столбца ячейки.

If Selection.Information(wdWithInTable) = True Then 
 With Selection 
 .Cells(1).Width = 22 
 MsgBox "Cell " & .Information(wdStartOfRangeRowNumber) _ 
 & "," & .Information(wdStartOfRangeColumnNumber) 
 End With 
End If

См. также

Справочник по объектной модели Word

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.