通过vb给word文档加一个表头

Question

通过vb程序打开一个word文档，并将得到的记录集导出到这个word文档当中，我是这样处理的，但我想给这个加个表头，但怎么也不行，它给放到下面去了，怎么处理一下呀，我查了很长时间资料也没做成，谢谢各位了，帮个大忙吧！

Answer 1

Set doc = wrd.ActiveDocument
    doc.Content.InsertAfter "学员信息表"
    doc.Paragraphs.Alignment = wdAlignParagraphCenter
    Set t = doc.Tables.Add(Range:=doc.Paragraphs(1).Range, NumRows:=Rs.RecordCount - 1, NumColumns:=4)

Answer 2

呵呵，具我的了解，好像word里的表格是没有“表头”的。

Answer 3

当然可以
Set doc = wrd.ActiveDocument
    doc.Paragraphs.Add
    doc.Paragraphs(1).Text="学生信息表"
    doc.Paragraphs.Alignment = wdAlignParagraphCenter
    doc.Tables.Add Range:=doc.Paragraphs(2).Range, NumRows:=Rs.RecordCount,NumColumns:=4
    with doc.tables(1)
        .Cell(1, 1).Range ="栏1表头"
        .Cell(1, 2).Range ="栏2表头"
    end with