新增行列 | ExcelOffice【微信公众号：水星Excel】

在word 表格中可以插入行列。

如果要用vba给word表格插入行或者列，可以使用如下的代码：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    Dim oRow As Row
    Dim oColumn As Column
    With oDoc
            Set oT = .Tables(1)
            With oT
                '设置要在第几行前面插入行，这里是第2行
                Set oRow = .Rows(2)
                '在第2行前面插入行
                .Rows.Add oRow
                Set oColumn = .Columns(3)
                '在第3列左边插入一个空列
                .Columns.Add oColumn
            End With
    End With
End Sub

Sub exceloffice()

'作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oT As Table

Dim oRow As Row

Dim oColumn As Column

With oDoc

Set oT = .Tables(1)

With oT

'设置要在第几行前面插入行，这里是第2行

Set oRow = .Rows(2)

'在第2行前面插入行

.Rows.Add oRow

Set oColumn = .Columns(3)

'在第3列左边插入一个空列

.Columns.Add oColumn

End With

End Sub

其中Rows.Add方法和Colu[……]

阅读全文>>>

如何用vba给word表格新增插入行列？

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号