Say you are a power user, and say you just love Writer's AutoCorrect and AutoText capabilities, but since you work on lots of different computers (3 at home and 10 at work) there should be an EASY WAY to backup and restore your AutoCorrect and AutoText configurations.
The way it works now, I have to get a file way down in the LibreOffice tree, and copy it to these other machines. Now that I know what to do, it is mostly painless, but it was a slow learning curve.
Besides, this files are not "user friendly" in a way I can edit them directly with LibO.
The window of AutoText (CTRL+F3) is also a little ugly and difficult to understand at first glance, and this should also be redone (Categories, Path and Import are not as easy to understand as it should).
My DREAM REQUEST would be to make both AutoText and the AutoCorrect each a .ods file and this file be made user-editable. Besides I think it would be very useful for a Export/Import routine for these 2 capabilities. But also maintaining the power they already have.
This would greatly facilitate transitions to new versions, and I don't think the bigger .ods file would be THAT burdensome.
Hope someone gets interested in this :)
*** Bug 97096 has been marked as a duplicate of this bug. ***
in the past I've done an autocorrect to calc macro that did something like you ask.
basically I extracted the documentlist.xml from the acor.dat file where I had the autocorrect list and then pasted it's address into the E1 cell of an empty Calc sheet
here's the code (sorry but comments are in italian so you need to translate them). I don't know it it's still working... I used it years ago.
dim s as string
dim f(1) as string
If msgbox("Vuoi continuare?",1)=2 then
oDoc = ThisComponent
oSheet = oDoc.Sheets("Foglio1")
oCell = oSheet.GetCellRangeByName("E1")
' inserire l'indirizzo del file .xml nella cella E1 del Foglio 1
fileName = oCell.String
Nome = convertToURL(fileName)
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
txt = createUnoService("com.sun.star.io.TextInputStream")
txt2 = createUnoService("com.sun.star.io.TextOutputStream")
if FileExists(Nome) Then
Dim a() as variant
while txt.readBytes(a(), 1) = 1
if a(0)=62 then
s = ""
qq = """"
row = 0
while not txt.iseof(1)
l = UBound(pip)
for n=0 to l
if InStr(s, "abbreviated-name") then
s1 = InStr(s, qq) + 1
s2 = InStr(s1, s, qq) + 1
s3 = InStr(s2, s, qq) + 1
s4 = InStr(s3, s, qq) + 1
w1 = mid(s, s1, s2-s1-1)
w2 = mid(s, s3, s4-s3-1)
oSheet.GetCellByPosition(0, row).String = w1
oSheet.GetCellByPosition(1, row).String = w2
row = row+1
s = ""
Print "esportazione completata"
playing with BASIC code could fit that macro to your needs and a power user could even build an extension from it