Сортировка слов по возрастанию

[Студент1000]

Помогите пожалуйста. В тексте найти самое длинное предложение и Отсортировать входящие в него слова по возрастанию.

[Sasha_Smirnov]

Sub предложение_в_набор_слов()
Dim Nmax As Long 'номер наиболее длинного предложения
Dim temp As Long 'длина наиболее длинного предложения

yourtext = ActiveDocument.Content.Text
'yourtext = yourtext & " " 'добавили в конце пробел


With ActiveDocument.Content.Sentences
    For N = 1 To .Count
    .Item(N).Select         'выделили N-е предложение (как это видит Word)
    If Len(Selection.Text) >= temp Then temp = Len(Selection.Text): Nmax = N
    Next
'здесь имеем номер Nmax и длину temp ПОСЛЕДНЕГО предл. с наиб. кол-вом знаков
'(практически их бывает несколько одинаковых)
    yoursent = .Item(Nmax).Text 'текст искомого предложения
End With

MsgBox yoursent
yoursent = Replace(yoursent, " ", Chr(13)) 'меняем в нём пробелы на абзацы
MsgBox yoursent

ActiveDocument.Content.Text = yourtext & yoursent
'осталось добавленный текст выделить и выполнить команду Selection.Sort
End Sub

Теперь, очевидно, осталось помочь выделить добавленный текст.

[Студент1000]

спасибо большое