Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Возвращает объект Row , представляющий строку, добавленную в таблицу.
Синтаксис
expression. Добавить ( _BeforeRow_ )
выражение (обязательно). Переменная, представляющая объект Rows .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| BeforeRow | Необязательный | Variant | Объект 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 и обратная связь.