1 . Задом-наперед. Текст напечатан задом наперед. Только вручную это долго делать и можно ошибиться. Как бы это автоматизировать? Последняя буква выделенного текста становится первой, предпоследняя второй и т.д.

s = Selection
For i = Len(s) To  1  Step - 1 
     Selection.TypeText Text:=Mid(s, i,  1 )
Next

Добавление от  18 . 05 . 2007   04 : 47 :

Выделенного - чтоб можно было и отдельно по словам задом-наперед делать.


s = Split(Selection, " ")
For i = UBound(s) To  0  Step - 1 
    Selection.TypeText Text:=s(i) + " "
Next