Как поменять местами 2 слова.

Автор NickBox, 16 октября 2017, 19:37

0 Пользователи и 1 гость просматривают эту тему.

NickBox

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

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

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

rami

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

NickBox

Цитата: rami от 16 октября 2017, 19:40
А как вы выполните это вручную (опишите по шагам)

Так будет вариант без ручной работы?

rami

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