Pergunta : Macro para fundir colunas em tabelas da palavra

Obrigado para seu help.

I gostaria de fundir colunas, mas não enfileira em várias tabelas que eu produzi em Microsoft Word.  Eu estou querendo saber se qualquer um pode me fornecer um macro que realize este.  Eu tenho que fundir colunas diferentes dependendo da tabela.  Sinal de adição, eu não quero fundir as colunas na primeira fileira da tabela (barra de título).  Seria ideal ter um macro que apenas fundisse (através das colunas) o que pilhas eu tenho selected. class= do

Resposta : Macro para fundir colunas em tabelas da palavra

Este macro é projetado fazer aquele
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

MergeSelectedCells secundário ()
    Tbl não ofuscante como a tabela
    Rng não ofuscante como a escala
    lCol não ofuscante como o inteiro
    tRow não ofuscante como o inteiro
    rCol não ofuscante como o inteiro
    Testa não ofuscante como o inteiro
    R não ofuscante como o inteiro
    
    Ajustar o tbl = o Selection.Range.Tables (1)
    tRow = Selection.Cells (1) .RowIndex
    testa = Selection.Cells (Selection.Cells.Count) .RowIndex
    lCol = Selection.Cells (1) .ColumnIndex
    rCol = Selection.Cells (Selection.Cells.Count) .ColumnIndex
    Para r = tRow à testa
        Ajustar o rng = o tbl. Pilha (r, lCol). Escala
        rng. Extremidade = tbl. Pilha (r, rCol). Range.End
        rng. Cells.Merge
    R seguinte
Outras soluções  
 
programming4us programming4us