以下是一個(gè)簡單的VBA代碼示例，用于在Word文檔的末尾插入一個(gè)3行4列的表格：

Sub InsertTableInWord()
    Dim wdDoc As Document
    Dim wdTable As Table
    
    ' 獲取當(dāng)前活動(dòng)的Word文檔
    Set wdDoc = ActiveDocument
    
    ' 在文檔末尾插入一個(gè)表格
    Set wdTable = wdDoc.Tables.Add(Range:=wdDoc.Content.End, NumRows:=3, NumColumns:=4)
    
    ' 可選：對(duì)表格進(jìn)行格式化
    ' 例如，設(shè)置表格邊框、調(diào)整列寬等
    ' wdTable.Borders.Enable = True
    ' wdTable.Columns(1).Width = wdDoc.InchesToPoints(1)
    ' 可以對(duì)單元格進(jìn)行賦值 wdTable.Cell(i, j).Range.Text
    ' i,j分別為單元格行號(hào)和列號(hào)
    
    ' 釋放對(duì)象
    Set wdTable = Nothing
    Set wdDoc = Nothing
End Sub

在這段代碼中，我們使用了wdDoc.Tables.Add方法來插入表格。Range:=wdDoc.Content.End指定了在文檔的末尾插入表格，NumRows:=3和NumColumns:=4分別指定了表格的行數(shù)和列數(shù)。

你可以根據(jù)需要修改這段代碼，例如更改表格的行數(shù)、列數(shù)，或者在文檔的其他位置插入表格。