wordvba增加表格的函数

在Word VBA中，增加表格通常涉及到使用`ActiveDocument.Tables.Add()`方法。这个函数允许你在Word文档的指定位置插入新的表格。以下是创建表格的一些常用函数和步骤：

Sub AddTableToWord()
    ' 设置表的位置和大小
    Dim StartCell As Range
    Set StartCell = ActiveDocument.Content.WordprocessingCanvas.InsertionPoint
    
    ' 插入新表格
    Dim NewTable As Table
    With NewTable
        .Columns.Count = 3 ' 可以更改列数
        .Rows.Count = 5 ' 可以更改行数
        '.PreferredWidth = wdPreferredWidthPercent ' 如果需要设置宽度百分比
        '.PreferredHeight = wdPreferredHeightExactly ' 如果需要设置高度像素
        .Location = StartCell.Range ' 在StartCell处插入
        .Select
    End With
    
    ' 调整样式（如果需要）
    With ActiveTable
        .Borders.ColorIndex = wdColorBlack ' 更改边框颜色
        .Style = "Table Grid" ' 或者自定义表格样式
    End With
    
    ' 避免立即选中表格（如果你不想的话）
    ' NewTable.Select = False
End Sub

在这个例子中，你可以通过修改`Columns.Count`和`.Rows.Count`的值来调整新插入的表格的尺寸。此外，还可以设置表格的宽度和高度，以及应用所需的边框和样式。

如果你想在运行宏时让用户选择插入表格的位置，可以添加一个用户交互环节，比如使用`Application.InputBox`获取起点。