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

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

它的语法如下：

expression.Add (Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)

其中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