Question

word中vba填充table中cell的数值

Do While cyc <= n + 4
myTable.Cell(cyc + 1, 1) = myTable.Cell(cyc, 1) + 1
cyc1 = cyc1 + 1
Loop
excel中cells().value行 word不行
改成.range.text也不行

Answer 1

table是只有cell没有cells，cell也没有value，range.text是对的，下面是可以用的代码

Dim myTab As Table
Set myTab = Documents(1).Tables(1)
myTab.Cell(1, 1).Range.Text = 1123123

Answer 2

VBA示例
在新文档中创建一个 3x3 表格，并在表格的第一个和最后一个单元格中插入文本。

Dim docNew As Document
Dim tableNew As Table
Set docNew = Documents.Add
Set tableNew = docNew.Tables.Add(Selection.Range, 3, 3)
With tableNew
.Cell(1,1).Range.InsertAfter "First cell"
.Cell(tableNew.Rows.Count, _
tableNew.Columns.Count).Range.InsertAfter "Last Cell"
End With