[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