Question

多种对象 Columns (Column) 多种对象

由 Column 对象所组成的集合，该集合中的对象代表表格中的列。

使用 Columns 集合

用 Columns 属性可返回 Columns 集合。下列示例显示活动文档的第一张表格的 Columns 集合中 Column 对象的个数。

MsgBox ActiveDocument.Tables(1).Columns.Count

下列示例创建一张三行六列的表格，并设置每列的底纹格式为递增百分比（越来越深）。

Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _
 NumRows:=3, NumColumns:=6)
For Each col In myTable.Columns
 col.Shading.Texture = 2 + i
 i = i + 1
Next col

用 Add 方法可在表格中添加一列。下列示例为活动文档的第一张表格中添加一列，然后将列宽设置为相等。

If ActiveDocument.Tables.Count >= 1 Then
 Set myTable = ActiveDocument.Tables(1)
 myTable.Columns.Add BeforeColumn:=myTable.Columns(1)
 myTable.Columns.DistributeWidth
End If

用 Columns(index) 可返回单个 Column 对象，其中index 是索引序号。索引序号代表该列在 Columns 集合中的位置（从左至右计算）。下列示例选定第一张表格的首列。

ActiveDocument.Tables(1).Columns(1).Select