Question

多种对象 Cells 多种对象

是由表格列、表格行、选定内容或区域中的 Cell 对象组成的集合。

使用 Cells 对象

用 Cells 属性可返回 Cells 集合。下列示例将活动文档中表格 1 第一行的单元格宽度设置为 30 磅。

ActiveDocument.Tables(1).Rows(1).Cells.Width = 30

下列示例返回当前行的单元格数。

num = Selection.Rows(1).Cells.Count

用 Add 方法可在 Cells 集合中添加 Cell 对象。也可用 Selection 对象的 InsertCells 方法插入新单元格。下列示例在myTable 的第一个单元格之前插入一个新单元格。

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

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

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

下列示例给第一行的第一个单元格加底纹。

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

说明

使用带 Rows 或 Columns 集合的 Add 方法添加一行或一列单元格。下面示例向活动文档的第一个表格添加一列，再向第一列插入数字。

Set myTable = ActiveDocument.Tables(1)
Set aColumn = myTable.Columns.Add(BeforeColumn:=myTable.Columns(1))
For Each aCell In aColumn.Cells
 aCell.Range.Delete
 aCell.Range.InsertAfter num + 1
 num = num + 1
Next aCell