Нужно написать макрос в LibroOffice Writer

@Tyron25 · Регистрация: 25.09.2022

Author24 — интернет-сервис помощи студентам

Здравствуйте!

Прошу помощи: написать макрос в LibroOffice Writer. Нужно в словах с двумя буквами «а» и более сделать замену на букву «Л». Окрасить в желтый цвет.

Заранее благодарю каждого)

@Garic73 · 26.09.2022, 17:00

Здравствуйте.

как понял

PureBasic

Sub Find2A_1
Dim oDescriptor 'Описатель поиска
Dim oFound 'Найденный диапазон
Dim oFoundAll 'Найденный диапазон
Dim n% 'Общая индексная переменная
oDescriptor = ThisComponent.createSearchDescriptor()
With oDescriptor
.SearchRegularExpression = true
.SearchString = "([.|\S]*а[.|\S]*){2,}"
End With
oFoundAll = ThisComponent.findAll(oDescriptor)
For n% = 0 to oFoundAll.getCount()-1
oFound = oFoundAll.getByIndex(n%)
oFound.CharColor = rgb(255,255,0)
oFound.setString(join(split(oFound.getString,"а"),"Л"))
Next
End Sub

Добавлено через 1 час 56 минут
строку поиска, я чего то намудрил вот так нужно

Код

.SearchString = "(\S*а\S*){2,}"

@Tyron25 · 28.09.2022, 06:29 **[ТС]**

Спасибо вам)

@Tyron25 0 / 0 / 0 Регистрация: 25.09.2022 Сообщений: 6
		1
	Нужно написать макрос в LibroOffice Writer 25.09.2022, 17:05. Показов 786. Ответов 2 Метки нет (Все метки) Здравствуйте! Прошу помощи: написать макрос в LibroOffice Writer. Нужно в словах с двумя буквами «а» и более сделать замену на букву «Л». Окрасить в желтый цвет. Заранее благодарю каждого) 0

@Tyron25 0 / 0 / 0 Регистрация: 25.09.2022 Сообщений: 6
	28.09.2022, 06:29 [ТС]	3
	Спасибо вам) 0

Нужно написать макрос в LibroOffice Writer

Решение