Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

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

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

Код:
Sub NewSel_ViceVersa()
Selection.Text = StrReverse(Selection.Text)
End Sub
А «желательно» — не обязательно. (Да и сам документ — тоже ведь форма!)
Sasha_Smirnov вне форума Ответить с цитированием
Старый 22.04.2010, 18: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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Грабить выделенный текст. 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 09:48
Выделенный текст в RichEdit Andr Компоненты Delphi 1 20.08.2007 20:53