Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 20.04.2010, 22:43   #1
develish151
 
Регистрация: 20.04.2010
Сообщений: 5
Восклицание Изменить выделенный текст таким образом, чтобы новое выделение, содержало те же символы, но расположенные

создать макрос: Изменить выделенный текст таким образом, чтобы новое выделение, содержало те же символы, но расположенные в обратном порядке.
желательно чтобы с помощью формы
develish151 вне форума Ответить с цитированием
Старый 21.04.2010, 09:37   #2
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,533
По умолчанию Переворот выделенного текста

Код:
Sub NewSel_ViceVersa()
Selection.Text = StrReverse(Selection.Text)
End Sub
А «желательно» — не обязательно. (Да и сам документ — тоже ведь форма!)
Sasha_Smirnov вне форума Ответить с цитированием
Старый 22.04.2010, 17:18   #3
develish151
 
Регистрация: 20.04.2010
Сообщений: 5
По умолчанию

получилось вот что. спасибо

Private Sub Document_New()
Dim a As Single
a = InputBox("Введите текст", "Enter")
Selection.TypeText Text:="Вы ввели текст" + Str(a) + Chr(13) + Chr(10)
Selection.TypeText Text:="Перевернутый вариант" + StrReverse(a)
End Sub
develish151 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Грабить выделенный текст. Alex Cones Общие вопросы Delphi 9 25.03.2010 14:04
Преобразовать строку таким образом, чтобы буквы каждого слова в ней были отсортированы по возрастанию. Matr1x Общие вопросы C/C++ 4 07.01.2010 21:38
ПОЛУЧИТЬ ВСЕ СИМВОЛЫ, РАСПОЛОЖЕННЫЕ МЕЖДУ ПЕРВОЙ И ПОСЛЕДНЕЙ ТОЧКАМИ MMARKIN Паскаль, Turbo Pascal, PascalABC.NET 7 13.04.2009 08:48
Выделенный текст в RichEdit Andr Компоненты Delphi 1 20.08.2007 19:53


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840