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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

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

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

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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


13:28.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.