如果要访问绘制表格中单独的行或列,而该表格又不统一,则会产生一个运行时错误。例如,如果活动文档中第一张表格的每列中具有不同数量的行,则使用下列指令将导致出错。
Sub RemoveTableBorders() ActiveDocument.Tables(1).Rows(1).Borders.Enable = False End Sub
|
要避免这种错误,可首先使用 SelectColumn 或 SelectRow 方法选定一列或一行中的单元格。选定单元格后,再使用 Selection 对象的 Cells 属性。下列示例选定第一张文档表格中的第一行。Cells 属性用于访问选定的单元格(第一行中的所有单元格)以删除边框。
Sub RemoveTableBorders() ActiveDocument.Tables(1).Cell(1, 1).Select With Selection .SelectRow .Cells.Borders.Enable = False End With End Sub
|
下列示例选定第一张文档表格的第一列。For Each...Next 循环语句用于在所选内容(第一列中的所有单元格)的每个单元格中添加文字。
Sub AddTextToTableCells() Dim intCell As Integer Dim oCell As Cell ActiveDocument.Tables(1).Cell(1, 1).Select Selection.SelectColumn intCell = 1 For Each oCell In Selection.Cells oCell.Range.Text = "Cell " & intCell intCell = intCell + 1 Next oCell End Sub 再如: Sub Example() Dim i As Cell For Each i In Me.Tables(1).Range.Cells If i.RowIndex = 1 Then MsgBox i.Range.Text'取得第一行的所有单元格的文本(此处带有段落标记) Next End Sub
|
阅读(373) | 评论(0) | 转发(0) |