各位大哥,我快崩溃了!如何用vba画出这样的表格,叩谢

reverie

还望斑竹和前辈们救我啊 :-)

sylun

老兄，你附件的图片看不到啊，没注意吗？

reverie

现在可以看见吗?

Bswi7aGS.rar (2.04 KB, 下载次数: 7)

2007-2-4 19:23 上传

点击文件名下载附件
各位大哥,我快崩溃了!如何用vba画出这样的表格,叩谢

菊石泽露

我把下面代码复制到ms Visual Basic 编辑器，运行出错：编译错误：方法和成员未找到！

我这是瞎摸，请高手朋友指点明路，具体用法，谢谢了！

Sub Example()
    Dim myTable As Table
    Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, numrows:=3, numcolumns:=2)
    With myTable
        .Style = "网格型"
        .Rows(3).Cells.Merge
        .Rows(3).Cells(1).Split numrows:=1, numcolumns:=3
    End With
End Sub

菊石泽露

 .Style = "网格型"
前面的点去掉才能运行。