在Word中如何对表格进行操作

[henyzhang]

现已有一个画有表格的模板，如何取得表格的单元格，并添加文本。

[lxcc]

activedocument.table(1).cell(i,j)=text

[henyzhang]

Dim word As Object
Dim newRange As Object
Set word = CreateObject("word.application")
word.Documents.Add Template:="d:\wf\wf.dot", NewTemplate:=False
word.ActiveDocument.Table(1).Cell(1, 1) = "zzfei"
word.Visible = True
这样有错误吗，为什么系统提示不支持该方法。

[henyzhang]

怎么没有人知道啊，就小弟一把，老板要我做这个，比较急。

[Amberilee]

是不是还应添加对document的引用？
dim wrdDoc as word.document
set wrdDoc=new word.document
应该就可以了吧~~~~

[luping]

Dim w as word.Application

Set mydoc = w.ActiveDocument
mydoc.Activate
'下面两句可以参考Word的帮助, 插入3行4列的表
Set myRange:=myDoc.Range(Start:=0, End:=0)
myDoc.Tables.Add (myRange, NumRows:=3, NumColumns:=4)
'下面是对单元格操作
With objdoc.Tables(1)
for i=1 to 3
for j=1 to 4
.Cell(1, 2).Range.Text = "a"
next j
next i
End With

[luping]

对不起上面对单元格操作程序中的 objdoc 应该为 myDoc

[linchuanzai]

应该为：

word.ActiveDocument.Table(1).Cell(1, 1).range.text = "zzfei"

而不是给cell对象赋值