Rows.Add 方法 (Word)
返回一个 Row 对象,该对象代表添加到表中的行。
表达式。添加 ( _BeforeRow_
)
expression 是必需的。 一个代表 Rows 对象的变量。
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
BeforeRow | 可选 | Variant | 代表将显示在新行正下方的行的 Row 对象。 |
Row
本示例在选定内容的第一行之前插入一个新行。
Sub AddARow()
If Selection.Information(wdWithInTable) = True Then
Selection.Rows.Add BeforeRow:=Selection.Rows(1)
End If
End Sub
本示例在第一张表中添加一行,然后将文本 Cell 插入该行。
Sub CountCells()
Dim tblNew As Table
Dim rowNew As Row
Dim celTable As Cell
Dim intCount As Integer
intCount = 1
Set tblNew = ActiveDocument.Tables(1)
Set rowNew = tblNew.Rows.Add(BeforeRow:=tblNew.Rows(1))
For Each celTable In rowNew.Cells
celTable.Range.InsertAfter Text:="Cell " & intCount
intCount = intCount + 1
Next celTable
End Sub
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。