将Excel指定的数据插入到word模板书签处，并删除生成的word文档表格的空白行

zhsh1128

描述：使用VBA将Excel指定单元格数据插入到Word模板指定书签处。word模板中存在大量合并单元格的表格，数据插入完成后，生成的word文档有大量空行，如何删除这些空行？


    With word
        For Each oT In .Tables
            With oT
                iRow = .Rows.Count
                iCol = .Columns.Count
                For i = iRow To 1 Step -1
                    n = 0
                    For j = iCol To 1 Step -1
                        On Error Resume Next
                        Set oCell = .Cell(i, j)
                        If oCell.Range.Text = Chr(13) & Chr(7) Then
                            n = n + 1
                        End If
                    Next j
                    If n = iCol Then
                        Set oCell = ActiveDocument.oT.Cell(i, j)
                        word.Range(oCell.Range.Start, oCell.Range.End - 1).Select
                        Selection.Cells.Delete ShiftCells:=wdDeleteCellsEntireRow  
                        End If
                Next i
            End With
        Next
    End With




Selection.Cells.Delete ShiftCells:=wdDeleteCellsEntireRow
1、我测试过了，这一句的前面一句的运行结果是能选中的。运行到这一句，无法删除空白行。是不是操作word文档的Selection状态和当前excel表格有冲突？
2、合并单元格因为是固定格式，所以无法取消。
3、代码都是从网上搬运的，正好可以解决工作中的一个问题。

恳请高手帮忙给分析下是怎么回事？

taller

zhsh1128

taller 发表于 2024-2-27 02:00

解决了，感谢。