把dataset中的数据按照一定格式倒入到word文档中

Question

以前没做过windows程序，不知从何下手阿
请问如何把dataset中的数据倒入到word文档中
倒入后的根是如下：
                 *****************
***************
        ************************************
      *************
　　　＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
这是一条记录，怎样才能控制倒入ｗｏｒｄ文档时，有三条记录就要使ｗｏｒｄ文档分页呢真的很急啊，谢谢

Answer 1

Private Function CreaTable() As DataTable
        Dim dt As New DataTable()
        dt.Columns.Add("列1", GetType(String))
        dt.Columns.Add("列2", GetType(Integer))
        dt.Columns.Add("列3", GetType(String))
        dt.Columns.Add("列4", GetType(String))
        Dim row, row1 As DataRow
        row = dt.NewRow()
        row!列1 = "行1"
        row!列2 = 1
        row!列3 = "d"
        row!列4 = "a"
        dt.Rows.Add(row)
        row1 = dt.NewRow()
        row1!列1 = "行2"
        row1!列2 = 12
        row1!列3 = "b"
        row1!列4 = "c"
        dt.Rows.Add(row1)
        Return dt
    End Function

Answer 2

导出到word
Dim wordApp As New Word.Application()
                Dim myDoc As Word.Document
                Dim oTable As Word.Table                Dim rowIndex, colIndex As Integer
                rowIndex = 1
                colIndex = 0                wordApp.Documents.Add()
                myDoc = wordApp.ActiveDocument                Dim Table As New DataTable()
                Table = CreaTable()                oTable = myDoc.Tables.Add(Range:=myDoc.Range(Start:=0, End:=0), NumRows:=Table.Rows.Count + 1, NumColumns:=Table.Columns.Count)                '将所得到的表的列名,赋值给单元格
                Dim Col As DataColumn
                Dim Row As DataRow
                For Each Col In Table.Columns
                    colIndex = colIndex + 1
                    oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName)
                Next                '得到的表所有行,赋值给单元格
                For Each Row In Table.Rows
                    rowIndex = rowIndex + 1
                    colIndex = 0
                    For Each Col In Table.Columns
                        colIndex = colIndex + 1
                        oTable.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName))
                    Next
                Next                oTable.Borders.InsideLineStyle = 1   
                oTable.Borders.OutsideLineStyle = 1                wordApp.Visible = True
分页不太清楚.

Answer 3

http://community.csdn.net/Expert/topic/3824/3824593.xml?temp=.1270868
----------------
格式用word对象编程控制
分页用分页符插入

Answer 4

http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/dv_wrcore/html/wrgrfwordobjects.asp
------------
word对象