【一步一步学习VBA】WORD 创建表格并合并表格

最新推荐文章于 2024-08-17 08:50:36 发布

gocpplua

最新推荐文章于 2024-08-17 08:50:36 发布

阅读量5.9k

点赞数 2

分类专栏： VBA 一步一步学习VBA 文章标签： WORD 创建表格并合并表格一步一步学习VBA Merge ActiveDocument 独立开发者er

本文链接：https://blog.csdn.net/chenqiai0/article/details/52141265

版权

VBA 同时被 2 个专栏收录

15 篇文章 5 订阅

订阅专栏

一步一步学习VBA

15 篇文章 19 订阅

订阅专栏

vba代码向word文档中插入表格并合并单元格，代码如下：

Sub mergeCell()
Dim Tbl As Table
Set Tbl = ActiveDocument.Tables.Add(ActiveDocument.Range(0, 0), numrows:=2, numcolumns:=4) '在文档开头插入一个两行四列的表格
With Tbl
    With .Borders   '设置表格边框线为单实线
        .InsideLineStyle = wdLineStyleSingle
        .OutsideLineStyle = wdLineStyleSingle
    End With
    ActiveDocument.Range(.Cell(1, 1).Range.Start, .Cell(1, 2).Range.End).Cells.Merge    '合并第一行前两个格
End With
End Sub

实现结果如下图：