Question : Macro pour fusionner des colonnes dans des tables de mot

Merci de votre help.

I voudrait fusionner des colonnes, mais pas rame dans diverses tables que j'ai produites dans Microsoft Word.  Je me demande si n'importe qui peut me fournir un macro qui accomplira ceci.  Je dois fusionner différentes colonnes selon la table.  Plus, je ne veux pas fusionner les colonnes dans la première rangée de la table (barre de titre).  Il serait idéal d'avoir un macro qui fusionnerait juste (à travers des colonnes) quelque cellules j'aie selected. class= de

Réponse : Macro pour fusionner des colonnes dans des tables de mot

Ce macro est conçu pour faire cela

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 :

MergeSelectedCells secondaire () Faible tbl comme Tableau Faible rng comme gamme Faible lCol comme nombre entier Faible tRow comme nombre entier Faible rCol comme nombre entier Faible front comme nombre entier Faible r comme nombre entier Placer le tbl = le Selection.Range.Tables (1) tRow = Selection.Cells (1).RowIndex front = Selection.Cells (Selection.Cells.Count) .RowIndex lCol = Selection.Cells (1).ColumnIndex rCol = Selection.Cells (Selection.Cells.Count) .ColumnIndex Pour r = tRow au front Placer le rng = le tbl. Cellule (r, lCol). Gamme rng. Extrémité = tbl. Cellule (r, rCol). Range.End rng. Cells.Merge Prochain r