word中vba填充table中cell的数值
DoWhilecyc<=n+4myTable.Cell(cyc+1,1)=myTable.Cell(cyc,1)+1cyc1=cyc1+1Loopexcel中cells(...
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也不行 展开
myTable.Cell(cyc + 1, 1) = myTable.Cell(cyc, 1) + 1
cyc1 = cyc1 + 1
Loop
excel中cells().value行 word不行
改成.range.text也不行 展开
2个回答
展开全部
table是只有cell没有cells,cell也没有value,range.text是对的,下面是可以用的代码
Dim myTab As Table
Set myTab = Documents(1).Tables(1)
myTab.Cell(1, 1).Range.Text = 1123123
Dim myTab As Table
Set myTab = Documents(1).Tables(1)
myTab.Cell(1, 1).Range.Text = 1123123
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
在新文档中创建一个 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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询