Зеркальные образы букв

[user4]

Скажите, пожалуйста, можно ли в Word зеркально отражать буквы?

[Sasha_Smirnov]

Да легко! Когда они в виде картинок (Shape).

Держишь Shift или Control и тянешь рисунок буквы за один из восьми маркеров.

[user4]

Извините, не понял. Что значит "в виде картинок"?

[viter.alex]

Стандартными методами зеркалить буквы нельзя

[Sasha_Smirnov]

Ну, например, в виде рисунков WordArt

[Ципихович Эндрю]

про это речь?

Option Explicit

Sub Зеркальное_отражение_текста()

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

'разбиваем текст на параграфы
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)