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

[develish151]

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

[Sasha_Smirnov]

Sub NewSel_ViceVersa()
Selection.Text = StrReverse(Selection.Text)
End Sub

А «желательно» — не обязательно. (Да и сам документ — тоже ведь форма!)

[develish151]

получилось вот что. спасибо

Private Sub Document_New()
Dim a As Single
a = InputBox("Введите текст", "Enter")
Selection.TypeText Text:="Вы ввели текст" + Str(a) + Chr(13) + Chr(10)
Selection.TypeText Text:="Перевернутый вариант" + StrReverse(a)
End Sub