通过

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。