LibreOffice Write Автозамена

[Ципихович Эндрю]

LibreOffice Writer, меню «Сервис»→«Автозамена» пункт «Параметры автозамены....» как можно вывести все встроенные автозамены кодом VBA?
нагуглил - но ОР кода выше гор

Код Выделить Развернуть

Sub ListAutoCorrectEntries()
    Dim oDoc As Object
    Dim oAutoCorrect As Object
    Dim oEntries As Object
    Dim i As Integer
    ' Получаем текущий документ
    oDoc = ThisComponent
    ' Получаем объект автозамены
    oAutoCorrect = ???
    ' Получаем все записи автозамены
    oEntries = ???
    ' Перебираем и выводим все записи
    For i = 0 To oEntries.getCount() - 1
        Dim entry As Object
        entry = oEntries.getByIndex(i)
        MsgBox "Замена: " & entry.getSearchString() & vbCrLf & "На: " & entry.getReplaceString()
    Next i
End Subкак подправить?

[sokol92]

как можно вывести все встроенные автозамены кодом VBA?
нагуглил - но ОР кода выше гор

Если использовать VBA (только MS Windows) вместо LO Basic, то кода будет еще больше. 

Вас интересует список автозамен, которые мы видим в диалоге Меню / Сервис / Автозамена / Параметры автозамены, вкладка "Заменить"?

В Msgbox этот список не поместится. 

[Ципихович Эндрю]

Вас интересует список автозамен, которые мы видим в диалоге Меню / Сервис / Автозамена / Параметры автозамены, вкладка "Заменить"?

да, они

В Msgbox этот список не поместится

ну в документ тогда вставить, как?

[Ципихович Эндрю]

ну и сразу напрашивается как кодом добавить свои?

[sokol92]

Эта информация содержится в файле ..\LibreOffice\4\user\autocorr\acor_ru-RU.dat.
Этот файл по структуре является zip-архивом, файл DocumentList.xml этого архива содержит список замен (можно просмотреть, например, в браузере).

Насчет работы с этим списком из макроса поищите в сети - должно быть. О результатах сообщите, пожалуйста.

[sokol92]

Вот тема, в которой активное участие приняли наши форумчане. Не думаю, что с августа 2023 года что-то в этой тематике существенно изменилось.

[Ципихович Эндрю]

ну раз нужно работать с файлом  - пусть он и в архиве это я сделал на чистом питоне, но опять получается коллаборация, то есть часть - первая часть всё же должна быть выполнена ручками, это я о говорю о том, что для того, чтобы этот файл с заменами появился нужно добавить хотя бы одну замену, вручную секунда дела, а всё же программно это можно сделать, как?
и конечная цель неограниченное число замен если добавить буде работать?
загнул конечно ну начнём с миллиона, какие подводные камни могут быть на  пути?

[sokol92]

чтобы этот файл с заменами появился нужно добавить хотя бы одну замену

Если файла с заменами в папке autocorr пользователя нет, то файл можно скопировать из папки autocorr приложения (../LibreOffice/share/autocorr). Свойство AutoCorrect из PathSettings содержит пути к указанным выше папкам.

загнул конечно ну начнём с миллиона, какие подводные камни могут быть на  пути?

Интерфейсы работы с xml-файлами сейчас достаточно быстрые.

[Ципихович Эндрю]

Интерфейсы работы с xml-файлами сейчас достаточно быстрые.

ну и большой гут - не придётся городить огород....
подскажите как
программно отловить событие возникновение замены - это ДО нажатия пробела и ДО её срабатывания?
программно изменить этот триггер срабатывания замены (пробел) на другой?
программно в случае надобности отменить замену?

[sokol92]

Этот вопрос выходит за границы моих познаний... 
Этот товарищ вроде бы знаком с автозаменами в Writer.

[Ципихович Эндрю]

sokol92 - понял, спасибо за ссылку

[Ципихович Эндрю]

LibreOffice/share/autocorr)

посмотрел
C:\Users\start\AppData\Roaming\LibreOffice - и там только папка "4" НЕТ папки "share", и как быть?

[sokol92]

Точные данные - у свойства AutoCorrect (см. #7).

[Ципихович Эндрю]

Точные данные - у свойства AutoCorrect (см. #7).

это о чём речь
1

Если файла с заменами в папке autocorr пользователя нет, то файл можно скопировать из папки autocorr приложения (../LibreOffice/share/autocorr).

или о
2

Свойство AutoCorrect из PathSettings содержит пути к указанным выше папкам.

если второе, то там честно говоря я ничего не понял....

[sokol92]

Значение свойства AutoCorrect - два URL пути к папкам, разделенные точкой с запятой.
Об этих папках и идет речь в данной теме.