Сортировка таблицы word vba

With ActiveDocument.Tables(cursor_table)
    
     Debug.Print cursor_table '5
    Debug.Print cursor_row '1
     Debug.Print cursor_column_cell '2
 
        'выделить в документе промежуток ...
        ActiveDocument.Range( _
                Start:=.Rows(cursor_row + 1).Cells(1).Range.Start, _
                End:=.Rows(.Rows.Count).Cells(.Columns.Count).Range.End).Select
 
        'оператор для отлова ошибок, указывает, что при возникновении ошибки нужно переходить к следующей строке кода
        On Error Resume Next
 
        Selection.Sort ExcludeHeader:=False, FieldNumber:="столбцам " & cursor_column_cell, _
                       SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _
                       FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
                       wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
                       wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
                       wdSortSeparateByCommas, SortColumn:=False, CaseSensitive:=False, _
                       LanguageID:=wdRussian, SubFieldNumber:="абзацам", SubFieldNumber2:= _
                       "абзацам", SubFieldNumber3:="абзацам"
 
        'ошибка 5280 - "Не найдены записи для сортировки"
        If Err.Number = 5280 Then
            MsgBox$ _
                    "Программа не может быть продолжена, не найдены записи для сортировки", vbOKOnly, _
                    "Внимание"
            GoTo Конец
        End If
 
        'требуется, чтобы в нужном месте отключить действие строки 1) On Error GoTo ... 2) либо действие строки On Error Resume Next
        On Error GoTo 0

Here is an alternative that avoids the word find and replace. It also uses the more general Sort method which replicates the dialog box you get when doing the sort in word. This might be helpful if you want to sort on multiple columns.

Option Explicit

Sub test()
    SortTables_WithKey "Step"
End Sub

Sub SortTables_WithKey(this_key As String)

Dim myIndex                            As Long
Dim myLastTable                        As Long

    myLastTable = ActiveDocument.Tables.Count
    Application.ScreenUpdating = False
    Application.Options.Pagination = False

    For myIndex = 1 To myLastTable
        ' MS have deprecated the use of statusbar so if this line
        ' but it still appears to work in Word 2016
        Application.StatusBar = "Table " & CStr(myIndex) & " of " & CStr(myLastTable)

        If InStr(ActiveDocument.Tables(myIndex).Range.text, this_key) > 0 Then
            ' https://learn.microsoft.com/en-us/office/vba/api/word.table.sort
            ' Replicates the type of sort when done using Word
            ActiveDocument.Tables(myIndex).Sort _
                excludeheader:=True, _
                fieldnumber:=1, _
                sortfieldtype:=wdSortFieldAlphanumeric, _
                sortorder:=wdSortOrderAscending

        End If

        DoEvents
    Next

    Application.ScreenUpdating = True
    Application.Options.Pagination = True

End Sub

Edited to revise the sub to include the recommendations about screen updating, events and pagination (others beat me to it). I’ve also included code to put a message in the status bar (bottom left corner of the word window) which will show progress (Table x of y). I tested the above on a document I have with 125 tables and (without sorting the tables) it completed in around 5 seconds.

I also corrected one error I made

sortorder:=wdSortAscending

should have been

sortorder:=wdSortOrderAscending

Hence the addition of ‘option explicit’ at the start of the code.

The following function uses Selection.Sort, you can try alternative methods if selection is not possible / permissible

Function SortTable()

ActiveDocument.Tables(1).Select()

Selection.Sort(ExcludeHeader:=True, FieldNumber:=«Column 1», SortFieldType _

:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _

:=«», SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _

wdSortOrderAscending, FieldNumber3:=«», SortFieldType3:= _

wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _

wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _

:=wdEnglishUS)

Selection.MoveRight(Unit:=wdCharacter, Count:=1)

End Function

The above uses as three column table. Please customize it for your use

See also:

How to use .Net Array.Sort Function in VBA

Case in-sensitive comparison

Привет всем.

В вордовом документе етсь таблица, там 2 колонки. Надо совершить сортировку по первому стобцу — он строковый. Помогите плиз написать программу, или может ссылочку дайте на код. В VBA, очень плохо рулю. Поиск не работает.

Заранее благодарен.

Здравствуйте, Amor, Вы писали:

A>В вордовом документе етсь таблица, там 2 колонки. Надо совершить сортировку по первому стобцу — он строковый. Помогите плиз написать программу, или может ссылочку дайте на код. В VBA, очень плохо рулю. Поиск не работает.

Создаем таблицу из двух колонок.

Сервис > Макрос > Начать запись
Таблица > Сортировка, задаем параметры
Остановить запись

Получаем:

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 21.05.2004 nzeemin
'
    Selection.Sort ExcludeHeader:=True, FieldNumber:="столбцам 1", _
        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:="абзацам"
End Sub

Дальше встаем на слово Sort и нажимаем F1.

A>Заранее благодарен.
На RSDN благодарность выражается с помощью оценок.

… << RSDN@Home 1.1.2 stable >>

Здравствуйте, Amor, Вы писали:

A>Привет всем.

A>В вордовом документе етсь таблица, там 2 колонки. Надо совершить сортировку по первому стобцу — он строковый. Помогите плиз написать программу, или может ссылочку дайте на код. В VBA, очень плохо рулю. Поиск не работает.

A>Заранее благодарен.

For Each cel In myTable.Column(0).Cells
    ' сортируешь по cel.Range.Text
Next