如何用vba给word新增、插入表格?

要用vba 给word文档插入表格,可以用Tables对象的Add方法。

它的语法如下:

expression.Add (RangeNumRowsNumColumnsDefaultTableBehaviorAutoFitBehavior)

其中Range参数为要插入表格的位置。

以下示例代码可以在当前的word文档中插入一个3×3的表格,表格的样式套用“网格型”:

Sub QQ1722187970()
     '作者QQ:1722187970,微信:xycgenius,微信公众号exceloffice
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    With oDoc
        Set oT = .Tables.Add(.Range(0, 0), 3, 3)
        With oT
            .Style = "网格型"
        End With
    End With
    Set oT = Nothing
    Set oDoc = Nothing
End Sub

在很多时候,我们不是要插入一个新的空白的表格,而是要拷贝某个已经存在的表格,然后再粘贴插入,这时候可以使用如下的vba代码:

Sub exceloffice()
    '作者QQ:1722187970,微信:xycgenius,微信公众号exceloffice
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    With oDoc
      '要复制的表格
       Set oT = .Tables(1)
       oT.Range.Copy
       '插入复制的表格
       .Range(oT.Range.End + 1, oT.Range.End + 1).Paste
    End With
End Sub
       

发表评论