Questione : Macro per fondere le colonne in tabelle di parola

Grazie per il vostro help.

I vorrebbe fondere le colonne, ma non rema in varie tabelle che ho prodotto in Microsoft Word.  Sto domandandomi se chiunque può fornirmi una macro che compirà questa.  Devo fondere le colonne differenti secondo la tabella.  Più, non voglio fondere le colonne nella prima fila della tabella (barra di titolo).  Sarebbe ideale avere una macro che si sarebbe fusa appena (attraverso le colonne) che cosa cellula selected.
class= del

Risposta : Macro per fondere le colonne in tabelle di parola

Questa macro è destinata per fare quella
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
MergeSelectedCells secondario ()
    Tbl fioco come Tabella
    Rng fioco come gamma
    lCol fioco come numero intero
    tRow fioco come numero intero
    rCol fioco come numero intero
    Fronte fioca come numero intero
    R fioca come numero intero
    
    Regolare il tbl = Selection.Range.Tables (1)
    tRow = Selection.Cells (1).RowIndex
    fronte = Selection.Cells (Selection.Cells.Count) .RowIndex
    lCol = Selection.Cells (1).ColumnIndex
    rCol = Selection.Cells (Selection.Cells.Count) .ColumnIndex
    Per r = tRow alla fronte
        Regolare il rng = il tbl. Cellula (r, lCol). Gamma
        rng. Estremità = tbl. Cellula (r, rCol). Range.End
        rng. Cells.Merge
    R seguente
Altre soluzioni  
 
programming4us programming4us