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

Формулировка задачи:

Вся сложность в том, что имеется 6 столбцов, в 1 м номер по порядку, надо отсортировать данные 2 го столбца, но при этом все данные со строки, то есть с 3, 4, 5, 6 ячейки должны переместиться вместе с данными со 2 й ячейки. В Экселе всё просто, а как в Ворде?? Есть у кого код, спасибо

Решение задачи: «Сортировка по столбцу таблицы Ворд»

textual
                            Листинг программы 
                        

                            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
                        