reverse text direction - type right to left

[quarrithbrakka]

I am needing to type using Ancient Hebrew font. Hebrew reads from right to
left, so I need to either type right to left, or highlight the text and then
click something to change text direction after typing.

 

[macropod]

Hi quarrithbrakka,

Here's a macro that reverses the selected text.

Sub Reverse()
Selection.TypeText Reversed(Selection)
End Sub

Function Reversed(Selection As String) As String
If (Len(Selection) > 1) Then
Reversed = Reversed(Mid$(Selection, 2)) + Left$(Selection, 1)
Else
Reversed = Selection
End If
End Function

Cheers