Objet cell (Word)
Cet objet représente une cellule de tableau. L’objet Cell est membre de la collection Cells . La collection Cells représente toutes les cellules de l’objet spécifié.
Utilisez Cellule (ligne, colonne), où row est le numéro de ligne et column est le numéro de colonne, ou Cells (index), où index est le numéro d’index, pour renvoyer un objet Cell . L'exemple suivant montre comment appliquer une trame de fond à la deuxième cellule de la première ligne.
Set myCell = ActiveDocument.Tables(1).Cell(Row:=1, Column:=2)
myCell.Shading.Texture = wdTexture20Percent
L'exemple suivant montre comment appliquer une trame de fond à la première cellule de la première ligne.
ActiveDocument.Tables(1).Rows(1).Cells(1).Shading _
.Texture = wdTexture20Percent
Utilisez la méthode Add pour ajouter un objet Cell à la collection Cells . Vous pouvez également utiliser la méthode InsertCells de l'objet Selection pour insérer de nouvelles cellules. L'exemple suivant montre comment ajouter une cellule avant la première cellule de myTable
.
Set myTable = ActiveDocument.Tables(1)
myTable.Range.Cells.Add BeforeCell:=myTable.Cell(1, 1)
L’exemple suivant définit une plage ( myRange ) qui référence les deux premières cellules du premier tableau. Une fois la plage définie, les cellules sont combinées par la méthode Merge.
Set myTable = ActiveDocument.Tables(1)
Set myRange = ActiveDocument.Range(myTable.Cell(1, 1) _
.Range.Start, myTable.Cell(1, 2).Range.End)
myRange.Cells.Merge
Remarques
Utilisez la méthode Add avec la collection Rows ou Columns pour ajouter une ligne ou une colonne de cellules.
Utilisez la propriété Information avec un objet Selection pour renvoyer la ligne et le numéro de colonne actuels. L'exemple suivant montre comment modifier la largeur de la première cellule de la sélection et afficher le numéro de la ligne et de la colonne de la cellule.
If Selection.Information(wdWithInTable) = True Then
With Selection
.Cells(1).Width = 22
MsgBox "Cell " & .Information(wdStartOfRangeRowNumber) _
& "," & .Information(wdStartOfRangeColumnNumber)
End With
End If
Référence du modèle objet Word
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.