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
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。