使用VBA在Word表格里插入空行

【问题描述】使用VBA，如何在Word表格里插入空行？

【小千解析】使用Rows.Add方法，举例如下：

初始表格：

【1】在末行下方插行

Sub xqoffice1()
    ThisDocument.Tables(1).Rows.Add
End Sub

效果：

【2】在末行上方插行

Sub xqoffice2()
    With ThisDocument.Tables(1).Rows
        .Add .Last
    End With
End Sub

效果：

【3】在第2行上方插行

Sub xqoffice3()
    With ThisDocument.Tables(1).Rows
        .Add .Item(2)
    End With
End Sub

效果：

【4】在倒数第2行上方插行

Sub xqoffice4()
    With ThisDocument.Tables(1).Rows
        .Add .Item(.Count - 1)
    End With
End Sub

效果：

打赏码.png

【参考资料】

xqoffice