Question

我想将Word文档中的表拆分为多个表，每个表只有一行。

我获得了用于拆分向上移动的表格的代码。它首先打破最后一行然后向上移动直到它到达表的第一行。

我创建的代码尝试向下分割表格，但它只会破坏第一行并停止。

这是我创建的代码：

Dim i As Integer

i = ActiveDocument.Tables.count
Set lasttbl = ActiveDocument.Tables(i)

    Do While lasttbl.Rows.count > 1

        lasttbl.Cell(2, 1).Range.Select
        Selection.InsertBreak Type:=wdColumnBreak ' or Selection.SplitTable

    Loop

End Sub

Answer 1

我自己找到了解决方案。在循环内再次使用lasttbl重新计算表格。

Dim i As Integer

i = ActiveDocument.Tables.count
Set lasttbl = ActiveDocument.Tables(i)

    Do While lasttbl.Rows.count > 1

        lasttbl.Cell(2, 1).Range.Select
        Selection.InsertBreak Type:=wdColumnBreak ' or Selection.SplitTable

        Set lasttbl = ActiveDocument.Tables(ActiveDocument.Tables.count)
    Loop

End Sub

向下分割表格（每行一行）

1 个答案: