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 :) Rogerio
enhancement request.
*** 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. Sub AutocorrToCalc dim s as string dim f(1) as string If msgbox("Vuoi continuare?",1)=2 then msgbox("Procedura annullata") exit sub end if dim oDoc dim oSheet dim oCell 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) Nome2=Nome+".tmp" oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") 'xray oucb txt = createUnoService("com.sun.star.io.TextInputStream") txt2 = createUnoService("com.sun.star.io.TextOutputStream") txt.setEncoding("UTF-8") if FileExists(Nome) Then Pippo=oUcb.openFileRead(Nome) txt.setInputStream(Pippo) Pappo=oUcb.openFileWrite(Nome2) txt2.setOutputStream(Pappo) Dim a() as variant while txt.readBytes(a(), 1) = 1 if a(0)=62 then txt2.writeBytes(a(),1) a(0)=13 txt2.writeBytes(a(),1) a(0)=10 end if txt2.writeBytes(a(),1) wend txt.closeInput txt2.closeOutput Pippo=oUcb.openFileRead(Nome2) txt.setInputStream(Pippo) s = "" qq = """" row = 0 while not txt.iseof(1) f(0)="<" f(1)=">" s= txt.ReadLine() 'print s pip()=Split(s, ">") l = UBound(pip) for n=0 to l s=pip(n)+">" 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 = "" end if next wend end if txt.closeInput Print "esportazione completata" End Sub
playing with BASIC code could fit that macro to your needs and a power user could even build an extension from it
*** Bug 154586 has been marked as a duplicate of this bug. ***