'зеркальное отражение текста функция StrReverse$, изначально текст должен быть выделенным после чего
'перевёрнутый текст появляется на месте выделенного текста
Dim parArr() As String
Dim myArr() As String
Dim par As Integer
Dim i As Integer

'Ниже:разбиваем текст на параграфы
parArr = Split(Selection.Text, vbCr)

For par =  0  To UBound(parArr)
'Ниже:текст параграфа бьём на слова
myArr = Split(parArr(par), " ")

'Ниже:переворачиваем каждое слово
For i =  0  To UBound(myArr)
myArr(i) = StrReverse$(myArr(i))
Next i

'Ниже:собираем параграф назад
parArr(par) = Join(myArr, " ")
Next par

'Ниже:собираем весь текст
Selection.Text = Join(parArr, vbCr)

'Ниже:переворачиваем каждое слово
For i =  0  To UBound(myArr)
myArr(i) = StrReverse$(myArr(i))
Next i

'Ниже:переворачиваем каждое слово
For i =  1  To UBound(myArr), Step  1 
myArr(i) = StrReverse$(myArr(i))
Next i