如何判断word 的 一个cell 是不是合并的呢

骷髅头

以下是引用[I]守柔[/I]在2006-2-28 7:15:59的发言：
表格可以判断，单元格也许无解。

不知，表格是怎么判断有合并得，我这个，总觉得不好，不知有没有好的方法，共同探讨 Private Sub CkeckCellsMerge(ByVal aDoc As Word.Document) '启动错误处理 On Error Resume Next ' 定义表格的总行，总列 Dim intColumns As Integer, intRows As Integer ' 定义表格的行内总列，列内总行(正常) Dim intColumnsRows As Integer, intRowColumns As Integer Dim intLoop As Integer intColumns = aDoc.Tables(1).Columns.Count intRows = aDoc.Tables(1).Rows.Count 'intColumnsRows = For intLoop = 1 To intColumns If intRows <> aDoc.Tables(1).Columns.Item(intLoop).Cells.Count Then Debug.Print "Columns (" & intLoop & ") " & "Is CellsMerge" Debug.Print Err.Description Else End If Next For intLoop = 1 To intRows If intColumns <> aDoc.Tables(1).Rows.Item(intLoop).Range.Columns.Count Then Debug.Print "Cells (" & intLoop & ") " & "Is CellsMerge" Debug.Print Err.Description Else End If Next End Sub

[此贴子已经被作者于2006-3-4 19:41:20编辑过]

nanhoo

这段delphi 我有看过 横我现在可以了，判断是否合并了 思路是取一个表格中的没有被猜分过的行做为标准 进行对比就可以了

我也想用同样的方法判断行 但是现在遇到的问题是上下格合并后，height就没办法读到了都是999999

骷髅头

以下是引用[I]nanhoo[/I]在2006-3-6 16:10:01的发言：[BR]

这段delphi 我有看过 横我现在可以了，判断是否合并了 思路是取一个表格中的没有被猜分过的行做为标准 进行对比就可以了

我也想用同样的方法判断行 但是现在遇到的问题是上下格合并后，height就没办法读到了都是999999

能否把delphi代码粘出来给我看看，谢谢

nanhoo

我已经搞定纵横合并问题

横合并用对比发:取一个没有被合并的行为标准 对就可以得到行的合并数

纵合并用出错法:读下一行同一列看是不是会出错，出错则有合并,并进行递归,取得列合并数