Option Explicit
Sub Mirror_ByWords()
Dim rngWord As Word.Range
Set rngWord = ThisDocument.Content.Words(1)
Do Until rngWord Is Nothing
Call rngWord.MoveEndWhile(" " & vbCrLf, wdBackward)
If rngWord.Characters.Count > 1 Then
Call MirrorThat(rngWord)
End If
Set rngWord = rngWord.Next(wdWord)
Loop
End Sub
Sub Mirror_All()
Dim rngAll As Word.Range
Set rngAll = ThisDocument.Content
Call rngAll.MoveEndWhile(" " & vbCrLf, wdBackward)
If rngAll.Characters.Count > 1 Then
Call MirrorThat(rngAll)
End If
End Sub
Private Sub MirrorThat(ByVal Range As Word.Range)
Dim char As String * 1
Dim n As Long
Dim i As Long
Dim j As Long
i = 1
j = Range.Characters.Count
Do While i < j
char = Range.Characters(i).Text
Range.Characters(i).Text = Range.Characters(j).Text
Range.Characters(j).Text = char
i = i + 1
j = j - 1
Loop
End Sub