Отменить разбивку на страницы в документе Ворда

[Ципихович Эндрю]

Здравствуйте, как? код какой?
В этом коде

With ActiveDocument.Tables(1)
.Range.Sort SortOrder:=wdSortOrderAscending, ExcludeHeader:=False
.Range.Case = wdLowerCase
End With

сколько раз уместно это применить?? раз или два??
как узнать с каким количеством строк в таблице Ворда ВБА сможет потянуть сортировку??
Спасибо

[Скрипт]

Ципихович Эндрю, можно попробовать запускать макрос в режиме "Черновик" (Word 2010) или режиме "Обычный режим" (Word 2003).

Ещё проверка правописания может тормозить работу.

[Ципихович Эндрю]

в режим "Обычный режим" (Word 2003) и обратно кодом можно уйти вернуться?

[Скрипт]

Sub Procedure_1()

    Dim myView As Long
    
    '1. Запоминаем режим до запуска макроса.
    myView = ActiveWindow.View.Type
    
    '2. Переходим в режим "Обычный режим" (Word 2003).
    ActiveWindow.View.Type = wdNormalView
    
    '3. Здесь макрос делает действия.
    
    '4. Возвращаемся в режим, который был у пользователя.
    ActiveWindow.View.Type = myView

End Sub

[Ципихович Эндрю]

спасибо, а по поводу длины таблицы в курсе?

[Скрипт]

Ципихович Эндрю: а по поводу длины таблицы в курсе?

если в справке по команде "Sort" не написано, сколько в таблице должно быть строк, то ограничение может быть связано с возможностью компьютера: мощность процессора, количество оперативной памяти.