VBA关于word的问题

[tzxlgh]

Private Sub Command1_Click()
Dim docDocument As Document
Dim NumRows As Integer
Dim docTable As Word.Table
Dim iCount As Integer
Dim docRange As Word.Range
Dim docCell As Word.Cell

Set docApp = CreateObject("Word.Application")
'Dim docWord As Object
'Set docWord = CreateObject("Word.Basic")

Set docDocument = docApp.Documents.Add
Set docDocument = docApp.ActiveDocument

'Set docTable = docDocument.Tables \'--->类型不匹配???
'Set docRange = docTable.Range
'
docApp.Visible = True
Set docTable = docDocument.Tables.Add(docDocument.Range(2, 2), 5, 6) '---》=。数值超出范围???
For Each oCell In docTable.Range.Cells

oCell.Range.InsertAfter "第 " & iCount & "单元格"
iCount = iCount + 1

Next

docDocument.SaveAs App.Path & "\\123.doc"
docApp.Quit
Set docApp = Nothing

以下这两个问题怎么解决呀？很急人

数值超出范围???


--->类型不匹配???

[faysky2]

'Set docTable = docDocument.Tables \'--->类型不匹配???
----------------------------------------
Set docTable = docDocument.Tables(1) '取第1个表
Set docTable = docDocument.Tables(2) '取第2个表
Set docTable = docDocument.Tables(3) '取第3个表

[faysky2]

Set docTable = docDocument.Tables.Add(docDocument.Range(2, 2), 5, 6) '---》=。数值超出范
------------------------------------
Set docTable = docDocument.Tables.Add(docDocument.Range(0, 0), 5, 6)

[tzxlgh]

谢谢你了，还有一个问题就是数值超出范围，我真的不知道怎么解决了，谢谢你！

[tzxlgh]

谢谢faysky2，调好了。能给一个你的联系方式给我吗？感激不尽！！！！

[cxianfa]

牛人。学习哦