Frage : Makro, zum der Spalten in den Worttabellen zu vermischen

Für Ihr help.

I danke möchte Spalten vermischen, aber nicht rudert in den verschiedenen Tabellen, die ich in Microsoft Word produziert habe.  Ich wundere mich, wenn jedermann mich mit einem Makro versehen kann, das dieses vollendet.  Ich muss verschiedene Spalten abhängig von Tabelle vermischen.  Plus, möchte ich nicht die Spalten in der ersten Reihe der Tabelle (Titelstab) vermischen.  Es würde ideal sein, ein Makro zu haben, das gerade vermischen würde (über Spalten) was Zellen ich selected. habe

Antwort : Makro, zum der Spalten in den Worttabellen zu vermischen

Dieses Makro ist entworfen, um das zu tun
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

VorMergeSelectedCells ()
    Schwaches tbl als Tabelle
    Schwaches rng als Strecke
    Schwaches lCol als ganze Zahl
    Schwaches tRow als ganze Zahl
    Schwaches rCol als ganze Zahl
    Schwache Braue als ganze Zahl
    Schwaches r als ganze Zahl
    
    Tbl = Selection.Range.Tables einstellen (1)
    tRow = Selection.Cells (1).RowIndex
    Braue = Selection.Cells (Selection.Cells.Count) .RowIndex
    lCol = Selection.Cells (1).ColumnIndex
    rCol = Selection.Cells (Selection.Cells.Count) .ColumnIndex
    Für r = tRow zur Braue
        Rng = tbl einstellen. Zelle (r, lCol). Strecke
        rng. Ende = tbl. Zelle (r, rCol). Range.End
        rng. Cells.Merge
    Folgendes r
Weitere Lösungen  
 
programming4us programming4us