批量删除表格中空白行

cjf1302

word中存在大量表格，需要对表格中空白行进行删除

但是表格格式可能存在合并单元格，包括行合并和列合并

写了一个代码，但是执行到同时有行合并和列合并就会报错，该怎么修改

gwjkkkkk

Option Explicit
Sub test()
    Dim n&, strReplace$, objTable As Table

    For Each objTable In ActiveDocument.Tables
        With objTable.Range
            n = .Cells.Count
            Do While n > 0
                With .Cells(n).Range
                    .Expand wdRow
                    n = n - .Cells.Count
                    strReplace = ReplaceEmptyTxt(.Text)
                    If strReplace = "" Then
                        .Rows.Delete
                    End If
                End With
            Loop
        End With
    Next
End Sub
Function ReplaceEmptyTxt(EmptyTxt$) As String
    With CreateObject("VBScript.RegExp")
        .Global = True
        .IgnoreCase = True
        .Pattern = "[\u0007\u0001\u0009\u000a\u000b\u000d\u001c-\u0020\u007f-\u00fe]"
        ReplaceEmptyTxt = .Replace(EmptyTxt, "")
    End With
End Function

batmanbbs

查一下以前的帖子，我记得至少有4种方法的代码

gwjkkkkk

请参考附件。。。