在word中表格可以拆分。
在vba中,要拆分word表格,可以使用表格对象Table的Split方法。
比如要在一个表格的第3行开始拆分表格,也就是第3行开始成为新的表格的第一行,可以使用如下的代码:
Sub exceloffice() '作者QQ:1722187970,微信:xycgenius,微信公众号exceloffice Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim oT As Table Dim oT1 As Table With oDoc '要拆分的表格 Set oT = .Tables(1) With oT '返回拆分后下面的表格,从第3行开始分离表格 Set oT1 = .Split(3) Debug.Print oT1.Range.Text End With End With End Sub
发表评论