Перевести с программного на русский макрос в Writer

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

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

Нужно написать, что делает каждая строка. Заранее благодарю каждого за помощь)

Sub Main
Dim Doc, Cursor As Object
Dim Proceed As Boolean
Dim r, g,b As integer
Doc = ThisComponent
Cursor = Doc.Text.createTextCursor()
Do
Proceed = Cursor.goRight(1, False)
Cursor.goLeft(2, False)
Cursor.goRight(2, True)
if Cursor.String = "аа" Then
Cursor.String = Replace(Cursor.String, "аа", "Л")
Cursor.goLeft(2, False)
Cursor.goRight(2, False)
Cursor.goRight(1, True)
r = 255
g = 255
b = 0
Cursor.CharColor = RGB(r, g, b)
End If
Loop While Proceed
msgbox "Succesful"
End Sub

@Garic73 · 25.10.2022, 21:58

а чем это туда-сюда прыгание лучше предложенного мной?

зы оформите код тегами

@Tyron25 0 / 0 / 0 Регистрация: 25.09.2022 Сообщений: 6
		1
	Перевести с программного на русский макрос в Writer 25.10.2022, 19:09. Показов 617. Ответов 1 Метки libre office, macros, writer (Все метки) Нужно написать, что делает каждая строка. Заранее благодарю каждого за помощь) Sub Main Dim Doc, Cursor As Object Dim Proceed As Boolean Dim r, g,b As integer Doc = ThisComponent Cursor = Doc.Text.createTextCursor() Do Proceed = Cursor.goRight(1, False) Cursor.goLeft(2, False) Cursor.goRight(2, True) if Cursor.String = "аа" Then Cursor.String = Replace(Cursor.String, "аа", "Л") Cursor.goLeft(2, False) Cursor.goRight(2, False) Cursor.goRight(1, True) r = 255 g = 255 b = 0 Cursor.CharColor = RGB(r, g, b) End If Loop While Proceed msgbox "Succesful" End Sub 0

@Garic73 287 / 199 / 92 Регистрация: 21.09.2016 Сообщений: 748
	25.10.2022, 21:58	2
	а чем это туда-сюда прыгание лучше предложенного мной? зы оформите код тегами 0

Опции темы