Доработать код, замена слов.

[mpfraer]

Всем привет. Изначально я сделал код: например, "Привет как дела." и слово "дела" переносится в начало предложения. Вот как сделать так, чтобы выделенная область из двух слов менялась местами. Например: "Привет как дела." ----> "Привет дела как." ?
Dim d As Range
Dim i As Integer, q As Integer
i = Selection.Paragraphs(1).Range.Sente nces.Count
For Each d In Selection.Paragraphs(1).Range.Sente nces
q = q + 1
If q < i Then
d.InsertBefore d.Words(d.Words.Count - 1) + " "
d.Words(d.Words.Count - 1).Delete
End If
If q = i Then
d.InsertBefore d.Words(d.Words.Count - 2) + " "
d.Words(d.Words.Count - 2).Delete
End If
Next
End Sub

[mpfraer]

Всё, тема закрыта, код сделан.