Share via


Rows.Add, méthode (Word)

Renvoie un objet Row qui représente une ligne ajoutée à un tableau.

Syntaxe

expression. Ajouter ( _BeforeRow_ )

expression Obligatoire. Variable qui représente un objet Rows .

Parameters

Nom Requis/Facultatif Type de données Description
BeforeRow Facultatif Variant Objet Row qui représente la ligne située immédiatement sous la nouvelle ligne.

Valeur renvoyée

Ligne

Exemple

Cet exemple montre comment insérer une nouvelle ligne avant la première ligne de la sélection.

Sub AddARow() 
 If Selection.Information(wdWithInTable) = True Then 
 Selection.Rows.Add BeforeRow:=Selection.Rows(1) 
 End If 
End Sub

Cet exemple montre comment ajouter une ligne dans le premier tableau, puis insérer le texte « Cell » au niveau de cette ligne.

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

Voir aussi

Collection d'objets Rows

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.