Référence à l'élément de document actif

Pour faire référence au paragraphe, à la table, au champ ou à tout autre élément de document actif, utilisez la propriété Selection pour renvoyer un objet Selection . À partir de l’objet Selection, vous pouvez accéder à tous les paragraphes de la sélection ou au premier paragraphe de la sélection. Cet exemple montre comment insérer une bordure autour du premier paragraphe de la sélection.

Sub BorderAroundFirstParagraph() 
 Selection.Paragraphs(1).Borders.Enable = True 
End Sub

Cet exemple montre comment insérer une bordure autour de chaque paragraphe de la sélection.

Sub BorderAroundSelection() 
 Selection.Paragraphs.Borders.Enable = True 
End Sub

Cet exemple montre comment appliquer une trame de fond à la première ligne du premier tableau de la sélection.

Sub ShadeTableRow() 
 Selection.Tables(1).Rows(1).Shading.Texture = wdTexture10Percent 
End Sub

Une erreur se produit si la sélection ne contient pas de tableau. Utilisez la propriété Count pour déterminer si la sélection inclut une table. Cet exemple montre comment appliquer une trame de fond à la première ligne du premier tableau de la sélection.

Sub ShadeTableRow() 
 If Selection.Tables.Count >= 1 Then 
 Selection.Tables(1).Rows(1).Shading.Texture = wdTexture25Percent 
 Else 
 MsgBox "Selection doesn't include a table" 
 End If 
End Sub

Cet exemple montre comment appliquer une trame de fond à la première ligne de tous les tableaux de la sélection. La boucle For Each...Next est utilisée pour passer dans chacun des tableaux de la sélection.

Sub ShadeAllFirstRowsInTables() 
 Dim tblTable As Table 
 If Selection.Tables.Count >= 1 Then 
 For Each tblTable In Selection.Tables 
 tblTable.Rows(1).Shading.Texture = wdTexture30Percent 
 Next tblTable 
 End If 
End Sub

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.