1)Сервис-> Макросы-> Управление макросами->ОpenOffice Бэйсик
2)Выбираем имя для макроса и кликаем на "Создать"
3)Откроется окно редактора, в котором уже есть строки Sub Name и End Sub. Вставляем нижеследующиий текст между этих строк (контекстное меню там не работает, поэтому просто выделяем и вставляем третьей кнопкой)
http://pastebin.x3k.ru/4354)Файл->Сохранить, закрыть
5)Теперь можно засунуть макрос в какое-нибудь меню:
Сервис-> Макросы-> Управление макросами->ОpenOffice Бэйсик, выбираем наш макрос и кликаем на "Назначить", "Добавить" и т.д.
Макрос довольно-таки старый, ещё из времён, когда OpenOffice не умел считать слова, поэтому тут эта функция тоже есть, хотя она не нужна (эта считалка слов даёт другие результаты, нежели встроенная, поскольку OpenOffice считает Юго-Запад за два слова, а макрос - за одно). Может кто-нибудь выкинет ненужные куски кода.