Word) (Cell 对象

代表单个表格单元格。 单元格 对象所在的 单元格 集合。 单元格 集合表示在指定的对象中的所有单元格。

备注

使用 Cell (行、列) （其中 row 为行号，列为列号）或 单元格 (索引) （其中 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

使用 添加 方法将 单元格 对象添加到 单元格 集合。 您还可以使用 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

说明

可将 Add 方法与 Rows 或 Columns 集合配合使用，添加一行或一列单元格。

使用 信息 属性返回当前行号和列号的 选择 对象。 下面的示例更改选定内容中的第一个单元格的宽度，然后显示该单元格的行号和列号。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。