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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : tout au long de 2024, nous allons éliminer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d'informations, consultez :Envoyer et afficher des commentaires pour