Reversing text

[Dimsok]

I have a script for reversing letters in words

Sub ReverseWords()
Dim i As Long
Dim OldString As Variant


Dim RevText As Variant
OldString = Split(Selection.Text, " ")
For i = 0 To UBound(OldString)
OldString(i) = StrReverse(OldString(i))
Next
RevText = Join(OldString, " ")
MsgBox RevText
End Sub

But the result just show in message window. Is that possible to change that code that reversed text replaced marked text?

[macropod]

Replace:
MsgBox RevText
with:
Selection.Text = RevText

[Dimsok]

Thanks. Is that possible to do something for reversing order of words in the sentence?

[macropod]

You could use something like:

Sub Reverse()
Dim i As Long
Dim OldString As Variant
Dim RevText As Variant
OldString = Split(Selection.Text, " ")
For i = 0 To UBound(OldString)
  RevText = OldString(i) & " " & RevText
Next
Selection.Text = RevText
 End Sub

[Dimsok]

Thanks a lot