Сортировка по столбцу таблицы Ворд

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

  'выделить в документе промежуток ...
        ActiveDocument.Range( _
                Start:=.Rows(.Rows.Count).Cells(.Columns.Count).Range.End, _
                End:=.Rows(.Rows.Count).Cells(.Columns.Count).Range.End).Select
 
        'спуститься вниз на 1 wdLine
        Selection.MoveDown Unit:=wdLine, Count:=1
 
        'выделить в документе промежуток ...
        ActiveDocument.Range( _
                Start:=.Rows(.Rows.Count).Cells(.Columns.Count).Range.End, _
                End:=Selection.Range.End).Select

Sub Ссылка_фамилия_имя_отчество_01()
 
'расставляет номера по порядку в столбце таблицы ниже ячейки, где находится данное поле и до конца таблицы
'отключаем дёргание экрана при выполнении кода
    Application.ScreenUpdating = False
 
    Dim cursor_table As Integer
    Dim cursor_row As Integer
    Dim cursor_column_cell As Integer
 
    'выполнить функцию с именем ...
    FunctionВыясняем_нахождение_курсора_в_таблице _
            cursor_table, _
            cursor_row, _
            cursor_column_cell
 
    If cursor_table = 32767 Then
        MsgBox$ _
                "Программа не может быть продолжена, курсор должен находится в таблице", vbOKOnly, _
                "Внимание"
        GoTo Конец
    End If
 
    With ActiveDocument.Tables(cursor_table)
 
        'выделить в документе промежуток ...
        ActiveDocument.Range( _
                Start:=.Rows(.Rows.Count).Cells(.Columns.Count).Range.End, _
                End:=.Rows(.Rows.Count).Cells(.Columns.Count).Range.End).Select
 
        'спуститься вниз на 1 wdLine
        Selection.MoveDown Unit:=wdLine, Count:=1
 
        'выделить в документе промежуток ...
        ActiveDocument.Range( _
                Start:=.Rows(.Rows.Count).Cells(.Columns.Count).Range.End, _
                End:=Selection.Range.End).Select
 
        'оператор для отлова ошибок, указывает, что при возникновении ошибки нужно переходить к следующей строке кода
        On Error Resume Next
 
        Selection.Sort ExcludeHeader:=False, FieldNumber:="столбцам 2", _
                       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
 
        If .Cell(1, 1).Range.Fields.Count = 1 And cursor_row = 1 And cursor_column_cell <> 1 Then
 
            Dim w As Integer
 
            For w = 1 To .Rows.Count - cursor_row
                'расставляем номера по порядку в первом столбце таблицы
                .Rows(cursor_row + w).Cells(1).Range.Text = w
            Next
        End If
 
    End With
 
    Beep
 
Конец:
 
    'отменяем отключение дёргания экрана при выполнении кода
    Application.ScreenUpdating = True
 
End Sub

Function FunctionВыясняем_нахождение_курсора_в_таблице( _
         cursor_table, _
         cursor_row, _
         cursor_column_cell)
 
    Dim isTable As Word.Range
    Set isTable = Selection.Range
 
    'условие, если Not isTable.Information(wdWithInTable), тогда курсор находится не в таблице, тогда ...
    'cursor_table = 32767 взято в связи с тем, что переменная cursor_table имеет тип данных Integer
    'тип данных Integer может иметь максимальное значение 32767
    If Not isTable.Information(wdWithInTable) Then
        cursor_table = 32767
        'перейти к метке с именем ...
        GoTo Конец
    End If
 
    'номер таблицы в документе, где расположен курсор
    cursor_table = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count
 
    'номер строки в таблице, в документе, где расположен курсор
    cursor_row = Selection.Rows.First.Index
 
    'номер столбца, а также ячейки в таблице, в документе, где расположен курсор, даже если ширина столбца, ячейки различается
    cursor_column_cell = Selection.Cells(1).ColumnIndex
 
Конец:
 
    'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
    Set isTable = Nothing
 
End Function