高分求!能用程序创建WORD表格并写入数据的方法,该怎么处理

高分求!!!!!!!!能用程序创建WORD表格并写入数据的方法
要把数据写入一个WORD表格.但表格并不规则.如何能创建表格并确定位置写入数据呢??表格样式如下:
    A                     B                             C                     D
┌──┬──────┬──────┬───┐
├──┴──────┴──────┴───┤
├──┬──────┬──────┬───┤
│　　├──────┴──────┴───┤
└──┴─────────────────┘
希望能顺便告知控制页眉页脚的方法．谢谢!编写环境VB2005+OFFICE2000


------解决方案--------------------
'插入表格
Public Sub InsertTable(ByRef table As DataTable)
Dim oTable As Word.Table
Dim rowIndex, colIndex, NumRows, NumColumns As Integer
rowIndex = 1
colIndex = 0
If (table.Rows.Count = 0) Then
Exit Sub
End If

NumRows = table.Rows.Count + 1
NumColumns = table.Columns.Count
oTable = oDocument.Tables.Add(oWordApplic.Selection.Range(), NumRows, NumColumns)


'初始化列
Dim Row As DataRow
Dim Col As DataColumn
'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.Rows(1).Delete()
oTable.AllowAutoFit = True
oTable.ApplyStyleFirstColumn = True
oTable.ApplyStyleHeadingRows = True

End Sub
'插入表格(修改为在原有表格的基础上添加数据)
Public Sub InsertTable2(ByRef table As DataTable, ByVal strbmerge As String, ByVal totalrow As Integer)
Dim oTable As Word.Table
Dim rowIndex, colIndex, NumRows, NumColumns As Integer
Dim strm() As String
Dim i As Integer
rowIndex = 1
colIndex = 0

If (table.Rows.Count = 0) Then
Exit Sub
End If

NumRows = table.Rows.Count + 1
NumColumns = table.Columns.Count
'oTable = oDocument.Tables.Add(oWordApplic.Selection.Range(), NumRows, NumColumns)


'初始化列
Dim Row As DataRow
Dim Col As DataColumn
'For Each Col In table.Columns
' colIndex = colIndex + 1
' oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName)
'Next

'将行添入表格
For Each Row In table.Rows
colIndex = 0
GotoRightCell()
oWordApplic.Selection.InsertRows(1)
For Each Col In table.Columns
GotoRightCell()
colIndex = colIndex + 1
Try
oWordApplic.Selection.TypeText(Row(Col.ColumnName))
Catch ex As Exception
oWordApplic.Selection.TypeText( " ")
End Try
'oWordApplic.Selection.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName))
Next
Next
'如果strbmerge不为空.则要合并相应的行和列
If strbmerge.Trim().Length <> 0 Then
strm = strbmerge.Split( "; ")
For i = 1 To strm.Length - 1
If strm(i).Split( ", ").Length = 2 Then
MergeDouble(totalrow, strm(0), strm(i).Split( ", ")(1), strm(i).Split( ", ")(0))
End If
MergeSingle(totalrow, strm(0), strm(i))