Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

21 Ноябрь 2017, 16:46 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice  без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Как поменять местами 2 слова.  (Прочитано 245 раз)
0 Пользователей и 1 Гость смотрят эту тему.
NickBox
Новичок
*
Offline Offline

Сообщений: 5


« Стартовое сообщение: 16 Октябрь 2017, 19:37 »

Нужно переставить слова местами в OpenOffice Writer. Как это сделать?

Пример: Петя Иванов -> Иванов Петя

P.s Поменять вручную нельзя, т.к нужно записать макрос.
Записан
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 2 291


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #1: 16 Октябрь 2017, 19:40 »

А как вы выполните это вручную (опишите по шагам)
Записан

NickBox
Новичок
*
Offline Offline

Сообщений: 5


« Ответ #2: 16 Октябрь 2017, 19:44 »

А как вы выполните это вручную (опишите по шагам)

Так будет вариант без ручной работы?
Записан
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 2 291


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #3: 16 Октябрь 2017, 20:19 »

Тогда выделите два слова с пробелом между ними и выполните макрос:
Код:
Sub main
Dim cur, s$, a()
cur=ThisComponent.CurrentSelection(0)
a=split(cur.String," ")
cur.setString(a(1) & " " & a(0))
End Sub
Записан

Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!