Макрос для таблиц

[andrew__86]

Всем привет. Нужно написать макрос который бутет сортировать по алффавиту слова в любом столбце таблицы.

[Казанский]

Запишите это действие макрорекордером.

[andrew__86]

Когда записываю макрорекордером, то потом макрос может отсортировать в других таблицах только тот столбец по счёту, в котором он был написан.

[Казанский]

А в каком надо? Вы задавали вопрос про первый столбец.

[andrew__86]

Извиняюсь. Исправил. Нужно чтобы сортировка выполнялась в любом столбце таблицы.

[Казанский]

Ну допустим, сортировка будет выполняться в том столбце, в котором находится курсор. Теперь вопрос: будет сортироваться ТАБЛИЦА по столбцу (т.е. строки целиком поменяются местами, в других столбцах произойдут изменения), или только СТОЛБЕЦ (другие столбцы не изменятся)?

[andrew__86]

Нужна такая сортировка: вместе с отсортированным столбцом (первый или второй или сотый не важно) должна меняться вся таблица, тоесть строки должны остаться без изменений, только переместиться в алфавитном порядке. И чтобы эту сортировку можно было применять ко всем столбцам любой таблицы.

[Казанский]

Пробуйте - записано рекордером в русском 2007, слегка подправлено:

Sub Макрос1()
If Selection.Information(wdWithInTable) Then
Selection.Sort ExcludeHeader:=False, FieldNumber:="столбцам " & Selection.Information(wdStartOfRangeColumnNumber), _
    SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _
    FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
    wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
    wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
    wdSortSeparateByCommas, SortColumn:=False, CaseSensitive:=False, _
    LanguageID:=wdEnglishUS, SubFieldNumber:="абзацам", SubFieldNumber2:= _
    "абзацам", SubFieldNumber3:="абзацам"
Else: MsgBox "Начало выделения не находится в таблице!", vbExclamation
End If
End Sub

[andrew__86]

Большое спасибо!!! Всё отлично работает!!!