Word VBA教程:Cells集合对象

   
多种对象
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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号