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