Convert table to text - macro ?

[BubikolRamios]

OO Writer Table/convert/table to text
How to do that with macro ?

Just template for further use - finds all tables in doc and removes last column in each table.

Code: Select all

Doc = ThisComponent
 TextTables = Doc.getTextTables() 
 For I = 0 to TextTables.count - 1
   Table = TextTables(I)
   Cols = Table.getColumns	
   Cols.removeByIndex(Cols.count-1, 1)
 Next

[FJCC]

I recorded a macro to find the dispatcher call for converting a table to text and then I merged that with your code. Note that the For loop runs backwards because the number of tables in the document decreases with every loop, since they are being converted to text.

Code: Select all

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Delimiter"
args1(0).Value = CHR$(9)

Doc = ThisComponent
Cntrl = ThisComponent.CurrentController
TextTables = Doc.getTextTables()
For I = TextTables.count - 1 to 0 step -1 
   Table = TextTables(I)
   Cntrl.select(Table)
   dispatcher.executeDispatch(document, ".uno:ConvertTableToText", "", 0, args1())
Next

[Lupp]

Just for info: There is a complete(?) list of LibO dispatch commands here: https://wiki.documentfoundation.org/Dev ... chCommands. There may be a few differences as compared with AOO, but hopefully not too many.
What I am missing is a concise description of the parameters (args). The .NAMEs a command understands would already help a lot. Who knows a uisable source?