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

[NickBox]

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

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

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

[rami]

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

[NickBox]

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

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

[rami]

Тогда выделите два слова с пробелом между ними и выполните макрос:

Код Выделить Развернуть

Sub main
Dim cur, s$, a()
cur=ThisComponent.CurrentSelection(0)
a=split(cur.String," ")
cur.setString(a(1) & " " & a(0))
End Sub