[решено] Макрос для слова в обратном порядке

[romashkooff]

Столкнулся с задачей повернуть заданное слово задом наперёд с помощью макроса(Пример:*курсором тыкаю куда-то в центр любого слова и нажимаю сочетание клавиш макроса и слово пишется задом наперёд* *Пример*-*ремирП*). Макрос не должен быть написан с помощью VBA. Уважаемые знатоки, как это можно осуществить?

[Iska]

Макрос не должен быть написан с помощью VBA. »
Простите — а с помощью чего он должен быть написан?! Учитывая, что VBA — это единственный язык макросов в Microsoft Office (если не вспоминать про макросы Microsoft Excel 4.0).

[romashkooff]

Я говорю про кнопку "Запись макроса", а не написание его вручную. Т.е. макрос должен повторять действия записаные ранее.

[Iska]

romashkooff, так результатом как раз и будет VBA :). Внезапно.

[a_axe]

romashkooff, попробуйте код ниже. Предполагаю, что речь идет о Word. Про макросы, кнопку запись и написание вручную не понял решительно ничего.
Sub StringReverse()

MsgBox StrReverse(Selection.Words.Item(1))

End Sub

[Iska]

Назначайте комбинацию клавиш и пользуйте:
Option Explicit

Sub RevertWord()
With Selection.Range
.Expand wdWord

If Right(.Text, 1) = " " Then
.MoveEnd Unit:=wdCharacter, Count:=-1
End If

.Text = StrReverse(.Text)
End With
End Sub

[romashkooff]

В поставленной задаче нельзя открывать консоль VBA, только через запись действий, проделанных, нажав на кнопку "Запись макроса"

[Vadikan]

Поставленная задача бессмысленная. Блажь какая-то. Помечаю тему решенной и закрываю.