"无法访问此集合中单独的行，因为表格有纵向合并的单元格。"

JerryMM

在C#程序中，我这样访问word中的最后一行，表头没有合并什么的不会有问题，可有合并就出现异常了，说：

"无法访问此集合中单独的行，因为表格有纵向合并的单元格。"

object row=oWordDoc.Tables[tableID].Rows[oWordDoc.Tables[tableID].Rows.Count]; object row=oWordDoc.Tables[tableID].Rows.Last;

有其它的方法可以访问行吗？

守柔

欢迎 JerryMM 的到来！

访问表格行或列时产生的错误

请参阅 特性

如果要访问绘制表格中单独的行或列，而该表格又不统一，则会产生一个运行时错误。例如，如果活动文档中第一张表格的每列中具有不同数量的行，则使用下列指令将导致出错。

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

JerryMM

谢谢老大，我先试试

JerryMM

[em06]找来找去在C#中没找到cell的selectrow类似的属性，怎么办好？

我其实就是想实现填充数据到表格中，表格行列不够可以程序添加进行列，然后写入文本

守柔

能写出你的思路吗？我觉得你可以参考一下我的最后一个例子，另外，可以使用CELL（rowindex,columnindex)来进行。

如果数据数目与当前行或列的单元格数目不等，则进行添加行或列。

C#我是不懂的，以上思路仅供参考。

JerryMM

嗯，在word中有一个表格，表头是已经有了，我的程序首先找到这个表格的最后一行，然后对我的数据进行循环处理，有一行数据就在表格中添一行，然后向cell写文本。

刚才我也在考虑是不是添加单元格好一些，我自己也试会，C#中操作word就是没有VB来的方便，真是[em06]

JerryMM

天哪，忘了当初就是cell加不来才换成加row加column的，[em06]

table连cells属性都没有的，只有rows和columns，如何办办呢？

[em04]

JerryMM

发现range有cells