如何用代码改变一个表格的行数（或增加行数）

我想当然写rows=3，可是是只读的，该如何写法？

你的表述有些模糊
能具体点儿吗？

文档中只有一个表格tables(1)（索引是从1开始的吗，先不管它了），3列的，我想把它变成指定的行数，如5行。

还是不清楚你的要求。是不选择5行

Sub 表格控制在5行()

On Error Resume Next
Do While ActiveDocument.Tables(1).Rows.Count <> 5
If ActiveDocument.Tables(1).Rows.Count < 5 Then
   ActiveDocument.Tables(1).Rows.Add
   End If
   If ActiveDocument.Tables(1).Rows.Count > 5 Then
   ActiveDocument.Tables(1).Rows(ActiveDocument.Tables(1).Rows.Count).Delete '大于5行自下而上删除
   End If
   Loop
End Sub

个人感觉没什么实际意义哦，删除了行，信息也删除了

[ 本帖最后由 sqhsqhli 于 2011-2-20 12:39 编辑 ]