With ActiveDocument.Tables(1)

                'содержимое ... таблицы активного документа сделать сортировку по возрастанию
        'wdSortOrderAscending = 0
        'ExcludeHeader:=False - указывем, что у таблицы нет заголовка, Exclude header - исключить заголовок
        .Range.Sort SortOrder:=wdSortOrderAscending, ExcludeHeader:=False

        'содержимое ... таблицы активного документа сделать прописными, то есть маленькими буквами
        'wdLowerCase = 0
        .Range.Case = wdLowerCase
               
        'конец With ActiveDocument.Tables(1)
    End With

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