Вопрос : Макрос для того чтобы слить колонки в таблицах слова

Вы для вашего help.

I хотел был слить колонки, но не гребет в различных таблицах, котор я производил в Мичрософт Шорд.  Я интересую если любое может обеспечить меня с макросом, то выполнит это.  Я должен слить по-разному колонки в зависимости от таблицы.  Положительная величина, я не хочу слить колонки в первом рядке таблицы (адвокатского сословия названия).  Было бы идеально иметь макрос как раз слил бы (через колонки) любым клеткам я имею selected. class=

Ответ : Макрос для того чтобы слить колонки в таблицах слова

Этот макрос конструирован для того чтобы сделать то

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

Sub MergeSelectedCells () Тусклое tbl как таблица Тусклое rng как ряд Тусклое lCol как интежер Тусклое tRow как интежер Тусклое rCol как интежер Тусклое чело как интежер Тусклый r как интежер Установите tbl = Selection.Range.Tables (1) tRow = Selection.Cells (1).RowIndex чело = Selection.Cells (Selection.Cells.Count) .RowIndex lCol = Selection.Cells (1).ColumnIndex rCol = Selection.Cells (Selection.Cells.Count) .ColumnIndex Для r = tRow к челу Установите rng = tbl. Клетка (r, lCol). Ряд rng. Конец = tbl. Клетка (r, rCol). Range.End rng. Cells.Merge Следующий r