Нужен совет по созданию макроса в LibreOffice

しょうがないな〜

Если ты знаешь Python, то я не совсем понимаю, в чём проблема, там же есть документация.

https://help.libreoffice.org/6.3/en-US/text/sbasic/python/main0000.html

Если ты знаешь Python,

Но увы.

Ещё и на регекспы кинь доки, авось, но нет.

Желательно, чтоб макрос писался на Python, ибо по нему есть хоть какие-то базовые знания.

ТС жалуется, что на ютубе не документация. Я ему дал ссылку. Вроде всё сходится.

Если запутаешься в доках по Либре и не найдёшь там нужной функции, можешь попробовать решить свою задачу через автоматизаторы десктопа типа AutoKey (он вроде тоже питон понимает) или какой там аналог Autoit/AHK есть под Линь..

Вот здесь, вроде бы, как раз то, что тебе нужно: https://habr.com/ru/articles/395153/

Любопытно. Не знал, что либра использует ту же ruby-разметку, что веб. Только непонятно, где взять libreoffice-script-provider-python - в репах Manjaro не находится.

Можно в бейсике всё это реализовать.

Из того пистон-скрипта, который тут советовали, тебя интересует две строки: xWordCursor.setPropertyValue(«RubyText», token.reading) xWordCursor.setPropertyValue(«RubyAdjust», CENTER)

Это и есть главное.

Открываем книгу Питоньяка «OpenOffice.org Macros Explained.Master.pdf» и смотрим готовые примеры. Можно перебором абзацев, можно курсорами (как в пистон-скрипте). Но, кмк, лучше использовать встроенный поиск. Добавить к нему парсинг найденного и заменить, согласно пистон-скрипту:

Sub SimpleSearchExample
	Dim oDescriptor 'описатель поиска
	Dim oFound 'найденный диапазон
	Dim txt as string
	Dim maintxt as string
	Dim furigantxt as string
	
	oDescriptor = ThisComponent.createSearchDescriptor()
	With oDescriptor
		.SearchString = "(\[)(.+?)(\])"
		.SearchRegularExpression = true
	End With
	

	oFound = ThisComponent.findFirst(oDescriptor)
	Do While Not IsNull(oFound)
		txt = oFound.getString()
		ParseTxt txt, maintxt, furigantxt
		oFound.setString(maintxt)
		oFound.setPropertyValue("RubyText", furigantxt)
		oFound.setPropertyValue("RubyAdjust", CENTER)
		oFound = ThisComponent.findNext(oFound.End, oDescriptor)
	Loop
	
End Sub

Private Sub ParseTxt (txt, maintxt, furigantxt)
	Dim n as integer
	txt = Replace(txt, "[", "")
	txt = Replace(txt, "]", "")
	n = InStr(txt, ".") '	'"[私.watashi]はペンギンです"
	maintxt = Mid(txt, 1, n - 1)
	furigantxt = Mid(txt, n + 1)
End sub 

За работу скрипта я не несу никакой ответственности. ))

Благодарю, вроде работает, хотя и до сих пор не так, как хотелось бы (почему-то, например, не выравнивает по центру). Впрочем, уже что-то. Буду думать дальше.

Можно попробовать строку:

oFound.setPropertyValue(«RubyAdjust», CENTER)

заменить на более простую:

oFound.RubyAdjust = 1

(0-left, 1-center, 2-right)

imgur

желаю, чтобы всё (неработало)