向word里绘制表格并往表格里面放数据???????

[flashasp]

下面是正确的代码放表格可以,
只是但往里面填充数据好象没用,麻烦给我大家看看,谢谢


Dim wd As New Word.Application
'插入一个3列6行的表格
wd.Documents.Add DocumentType:=wdNewBlankDocument
wd.ActiveDocument.Tables.Add Range:=wd.Selection.Range, NumRows:=6, NumColumns _
:=3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

'给每行表格插入数据
Set oDoc = Word.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

[flashasp]

自己调试好了^_^

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

[hanshufan]

向楼主学习!
哈哈!