Cuestión : Macro para combinar columnas en tablas de la palabra

Gracias por su help.

I quisiera combinar columnas, pero no rema en varias tablas que he producido en Microsoft Word.  Me estoy preguntando si cualquier persona puede proveer de mí una macro que logre esto.  Tengo que combinar diversas columnas dependiendo de la tabla.  Más, no quiero combinar las columnas en la primera fila de la tabla (barra de título).  Sería ideal tener una macro que acaba de combinarse (a través de columnas) cualesquiera células tengo selected. class= del

Respuesta : Macro para combinar columnas en tablas de la palabra

Esta macro se diseña para hacer eso
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

MergeSelectedCells secundario ()
    Tbl dévil como tabla
    Rng dévil como gama
    lCol dévil como número entero
    tRow dévil como número entero
    rCol dévil como número entero
    Frente dévil como número entero
    R dévil como número entero
    
    Fijar el tbl = Selection.Range.Tables (1)
    tRow = Selection.Cells (1).RowIndex
    frente = Selection.Cells (Selection.Cells.Count) .RowIndex
    lCol = Selection.Cells (1).ColumnIndex
    rCol = Selection.Cells (Selection.Cells.Count) .ColumnIndex
    Para r = tRow a la frente
        Fijar el rng = el tbl. Célula (r, lCol). Gama
        rng. Extremo = tbl. Célula (r, rCol). Range.End
        rng. Cells.Merge
    R siguiente
Otras soluciones  
 
programming4us programming4us