Sub Macro2()
    '改变边线设置
    With Options
        .DefaultBorderLineStyle = wdLineStyleDouble
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
    Options.DefaultBorderLineWidth = wdLineWidth300pt
    
    
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
        3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    Selection.SelectCell
    Selection.SelectColumn
    Selection.Cells.Merge '合并列
    Selection.SelectRow
    Selection.Cells.Merge '合并行
End Sub
这是我录制的一个宏.先设置了表格边线的样式宽度,再添加了几个单元格,然后合并.你也可以这样做.