À ajouter sur ce qui Lance le disais, voici un exemple de la Fusion des Cellules et de la mise en texte de la valeur de ces cellules fusionnées:
Dim myCells As Range
With ActiveDocument
Set myCells =.Range(Start:=.Tables(1).Cell(1,1).Range.Start,End:=.Tables(1).Cell(1,3).Range.End)
myCells.SelectEndWith
Selection.Cells.Merge
ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Text ="Value for Merged Cells"
REMARQUE: Le tableau dans cet exemple avait trois colonnes et deux lignes
À ajouter sur ce qui Lance le disais, voici un exemple de la Fusion des Cellules et de la mise en texte de la valeur de ces cellules fusionnées:
REMARQUE: Le tableau dans cet exemple avait trois colonnes et deux lignes
OriginalL'auteur ray
Vous avez besoin pour accéder à l'objet de la Table, comme
ou
OriginalL'auteur Lance Roberts