OpenOffice Writer Жирный ли текст, где находится курсор?

[Ecosasha]

Вроде как раздела на форуме по OpenOffice нет, поэтому здесь.

Есть примеры, где описывается, где по всему тексту можно искать жирный ли текст, но не могу понять, как где расположен курсор записать в переменную жирный или не жирный текст там при вызове макроса.

Кто-нибудь может подсказать в какую сторону копать?

[Alex11223]

Что за примеры?

[Ecosasha]

Например, такой пример из книги Эндрю Питоньяк OpenOffice.org
Macros Explained

Листинг 275. ReplaceFormatting может быть найдена в модуле Writer в файле исходных
текстов этой главы SC13.sxw. 
Sub ReplaceFormatting
REM Исходный код : Alex Savitsky
REM Изменен : Laurent Godard
REM Изменен : Andrew Pitonyak
- 338-
Поиск и замена
REM Цель этого макроса состоит в том, чтобы окружить все ЖИРНЫЕ элементы 
REM {{ }} и изменить признак Жирный на ОБЫЧНЫЙ с использованием регулярных
REM выражений.
Dim oReplace
Dim SrchAttributes(0) as new com.sun.star.beans.PropertyValue
Dim ReplAttributes(0) as new com.sun.star.beans.PropertyValue
oReplace= ThisComponent.createReplaceDescriptor()
oReplace.SearchString= ".*"  'Регулярное выражение. Соответствует
'любому тексту
oReplace.ReplaceString= "{{ & }}"  'Заметьте & помещает найденный текст
'назад
oReplace.SearchRegularExpression=True  'Использовать регулярные выражения
oReplace.searchStyles=True  'Мы хотим искать стили
oReplace.searchAll=True  'Выполнить на всем документе
REM Атрибуты поиска
SrchAttributes(0).Name= "CharWeight"
SrchAttributes(0).Value= com.sun.star.awt.FontWeight.BOLD
REM Атрибуты для замены
ReplAttributes(0).Name= "CharWeight"
ReplAttributes(0).Value= com.sun.star.awt.FontWeight.NORMAL
REM Установим атрибуты в описателе замены
oReplace.SetSearchAttributes(SrchAttributes())
oReplace.SetReplaceAttributes(ReplAttributes())
REM Теперь сделаем работу!
ThisComponent.replaceAll(oReplace)
End Sub

Есть также другие, где проход по всему тексту есть, с учетом структуры документы, там параграфы и так далее, но суть задачи у меня другая. Просто привел к вышесказанному вопросу.

[Ecosasha]

Например, в MS Word задача решается просто:

If Selection.Font.Bold = True Then
' Selection.TypeText ("YesBold")
End If

А как то же самое в OpenOffice?

[Alex11223]

Немного погуглил, так вроде бы работает (по крайней мере в простых случаях, и в LibreOffice, в OpenOffice не проверял):

oCurSelection = thisComponent.getCurrentSelection()
if oCurSelection.supportsService("com.sun.star.text.TextRanges") then
   nCount = oCurSelection.Count
   if nCount >= 1 then
      oTextRange = oCurSelection.getByIndex(0)
      if oTextRange.CharWeight = com.sun.star.awt.FontWeight.BOLD then
            MsgBox("Bold")
      end if
   end if
end if

[Ecosasha]

Да, вроде бы работает нормально. Как понял, сначала текущее выделение (Current selection) находим, потом присваиваем это Range области и после этого уже делаем сравнение.
Да, на сайте у них есть такой код про нахождение текущего выделения, но что-то не додумался.
https://wiki.openoffice.org/wiki/Current_selection

[Aleksandr H.]

Ecosasha, на соседнем форуме по ООо Вам все подскажут оперативно

[Alex11223]

Сообщение от Aleksandr H.

Ecosasha, на соседнем форуме по ООо Вам все подскажут оперативно

ага, 27 гостей и 1 пользователь онлайн подскажут.

[Aleksandr H.]

2-3 завсегдатаи там решают ~80% вопросов.