Как распечатать зеркальный текст в Word
По теме из базы знаний
Найденные решения
(1) Вот тебе простенький макрос для ворда, выделяешь текст, и запускаешь его, а там уж доработаешь сам (под знаки препинания, длинные строки, переводы строк) если надо, делов то
Вот -
Sub перевертыш()
'
' Макрос
'
'
Dim strStroka As String
Dim strPer As String
strStroka = Selection.Text
strPer = StrReverse(strStroka)
Selection.Text = Replace(strStroka, strStroka, strPer)
End Sub
Вот -
Sub перевертыш()
'
' Макрос
'
'
Dim strStroka As String
Dim strPer As String
strStroka = Selection.Text
strPer = StrReverse(strStroka)
Selection.Text = Replace(strStroka, strStroka, strPer)
End Sub
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) Вот тебе простенький макрос для ворда, выделяешь текст, и запускаешь его, а там уж доработаешь сам (под знаки препинания, длинные строки, переводы строк) если надо, делов то
Вот -
Sub перевертыш()
'
' Макрос
'
'
Dim strStroka As String
Dim strPer As String
strStroka = Selection.Text
strPer = StrReverse(strStroka)
Selection.Text = Replace(strStroka, strStroka, strPer)
End Sub
Вот -
Sub перевертыш()
'
' Макрос
'
'
Dim strStroka As String
Dim strPer As String
strStroka = Selection.Text
strPer = StrReverse(strStroka)
Selection.Text = Replace(strStroka, strStroka, strPer)
End Sub
Вам нужен PostScript драйвер для печати. Приего использовании в свойствах печати принтера появляется галочка "Зеркало".
Делали так раньше в далеком начале 2000-ных для печати газеты на прозрачную кальку. Технология печати была такая, чтобы потом с калек на страницы газеты переносить.
Делали так раньше в далеком начале 2000-ных для печати газеты на прозрачную кальку. Технология печати была такая, чтобы потом с калек на страницы газеты переносить.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот