Question

多种对象 Cell 多种对象

代表单个表格单元格。Cell 对象是 Cells 集合中的元素。Cells 集合代表指定对象中所有的单元格。

使用 Cell 对象

用 Cell(row, column) 或 Cells(index)可返回 Cell 对象，其中row 为行号，column 为列号，index 为索引序号。下列示例给第一行的第二个单元格加底纹。

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 方法可在 Cells 集合中添加 Cell 对象。也可用 Selection 对象的 InsertCells 方法插入新单元格。下列示例在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

说明

使用带 Rows 或 Columns 集合的 Add 方法添加一行或一列单元格。

使用 Selection 对象的 Information 属性返回当前行号和列号。下面的示例改变选中部分第一个单元格的宽度，再显示单元格的行号和列号。

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