主题：数据表导出到WORD模板文件

WORD模板文件，能不能指定位置插入程序的某个临时表？如果可以能否指定导出临时表的哪些列？只导出的临时表中有内容的行。

先生成模板，然后使用vba插入表格，类似：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70762&skin=0

请问下面怎们修改，能够指定插入表在WORD模板文件中的位置？

Dim app As New MSWord.Application

app.Documents.Open("c:\foxtable\Development\CaseStudy\Attachments\统计成绩.doc")

 

try

    Dim doc = app.Documents.Open("c:\foxtable\Development\CaseStudy\Attachments\统计成绩.doc")

    Dim dt As DataTable = DataTables("统计表")

    doc.Tables.Add(Range:=app.Selection.Range,NumRows:=3, NumColumns:= dt.DataCols.Count)

    With app.Selection.Tables(1)

        .ApplyStyleHeadingRows = True

        .ApplyStyleLastRow = True

        .ApplyStyleFirstColumn = True

        .ApplyStyleLastColumn = True

    End With

    For Each dc As DataCol In dt.DataCols

        app.Selection.TypeText(Text:=dc.Name)

        app.Selection.MoveRight(Unit:=12)

    Next

    For Each dr As DataRow In dt.DataRows

        For Each dc As DataCol In dt.DataCols

            app.Selection.TypeText(Text:=dr(dc.Name))

            app.Selection.MoveRight(Unit:=12)

        Next

    Next

    app.Visible = True

catch ex As exception

    msgbox(ex.message)

    app.Quit

finally

  

End try

 

位置查找参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=126389

谢谢