用VB向WORD中插入一個3列6行的表格,並給每行表格插入資料^_^

'必須點擊菜單   "工程/引用/Microsoft   Word   9.0   Object   Library"  
Dim wd     As New Word.Application
'插入一個3列6行的表格,並給每行表格插入資料
wd.Documents.Add DocumentType:=wdNewBlankDocument
Set oDoc = wd.ActiveDocument
    Set oTable = oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows:=6, NumColumns:=3)
    iCount = 1
    For Each oCell In oTable.Range.Cells
    oCell.Range.InsertAfter "第 " & iCount & "儲存格"
    iCount = iCount + 1
    Next oCell
    oTable.AutoFormat Format:=wdTableFormatColorful2, ApplyBorders:=True, ApplyFont:=True, ApplyColor:=True
'將游標移到最後
wd.Selection.EndKey Unit:=wdStory
'插入分頁符
wd.Selection.InsertBreak Type:=wdPageBreak
wd.Visible = True
wd.ShowMe
Set wd = Nothing