Sub InsertTable() '插入表格 ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:=3 End Sub

这是一个插入表格的 VBA 代码，它会在当前光标位置插入一个 3 行 3 列的表格。可以根据需要修改行列数和插入位置。

如果需要插入更复杂的表格，可以使用更多的参数来控制表格的样式和格式。例如：

Sub InsertTableWithStyle()
    '插入带格式的表格
    Dim tbl As Table
    Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=3, NumColumns:=3)
    With tbl
        '设置表格样式
        .Style = "Table Grid"
        '设置表格边框宽度
        .Borders.InsideLineWidth = wdLineWidth150pt
        .Borders.OutsideLineWidth = wdLineWidth150pt
        '设置表格对齐方式
        .Rows.Alignment = wdAlignRowCenter
        .Columns.Alignment = wdAlignColumnCenter
        '设置表格内容
        .Cell(1, 1).Range.Text = "Header 1"
        .Cell(1, 2).Range.Text = "Header 2"
        .Cell(1, 3).Range.Text = "Header 3"
        .Cell(2, 1).Range.Text = "Row 1, Column 1"
        .Cell(2, 2).Range.Text = "Row 1, Column 2"
        .Cell(2, 3).Range.Text = "Row 1, Column 3"
        .Cell(3, 1).Range.Text = "Row 2, Column 1"
        .Cell(3, 2).Range.Text = "Row 2, Column 2"
        .Cell(3, 3).Range.Text = "Row 2, Column 3"
    End With
End Sub

这个代码会插入一个样式为 "Table Grid" 的表格，设置表格的边框宽度为 1.5 磅，设置表格内容和对齐方式。可以根据需要进行修改和调整。