在WORD中，用VBA检测表格中合并的单元格，再进行折分

zhangdabai1

已于 2023-07-22 15:09:50 修改

阅读量645

点赞数 2

分类专栏： wordVBA 文章标签：程序人生

于 2023-07-22 11:56:54 首次发布

本文链接：https://blog.csdn.net/zhangdabai1/article/details/131866024

版权

wordVBA 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

运行代码前的表格：

运行代码后

代码如下:

Option Explicit


Sub 找出合并单元格且合并()
    Dim tbl As Table
    Dim cell As cell
    Dim i, j, errorCount, 开始错误的行号, zonghang, zonglie As Integer
    Dim a As Double
    
    Set tbl = ActiveDocument.Tables(1)
    
    zonghang = ActiveDocument.Tables(1).Rows.count
    zonglie = ActiveDocument.Tables(1).Rows.count
    For j = 1 To zonglie
        On Error Resume Next ' 启用错误处理

        For i = 1 To zonghang
            tbl.cell(i, j).Select

            If Err.Number <> 0 Then
                If errorCount = 0 Then
                    开始错误的行号 = i - 1
                End If
                ' 错误计数器 +1
                errorCount = errorCount + 1
                ' 清除错误
                Err.Clear
            End If
        Next i

        On Error GoTo 0 ' 禁用错误处理

        If 开始错误的行号 <> 0 Then
            MsgBox ("合并的单元格在：第1个表格的第" & 开始错误的行号 & "行第" & j & "列,而且合并了" & errorCount + 1 & "行")
            tbl.cell(开始错误的行号, j).Select

            Call 拆分单元格(errorCount + 1, 1)

'            MsgBox ("已经合并：第1个表格的第" & 开始错误的行号 & "行第" & j & "列,合并了" & errorCount + 1 & "行")
        Else
'            MsgBox ("在第" & j & "列中未找到合并的单元格")
        End If
        errorCount = 0
    Next j

End Sub
Function 拆分单元格(Rows, Coluns)
    Selection.Cells.Split NumRows:=Rows, NumColumns:=Coluns, MergeBeforeSplit:=False
End Function