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.
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
OpenOffice 4.1 on Windows 10 and Linux Mint
If your question is answered, please go to your first post, select the Edit button, and add [Solved] to the beginning of the title.
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?
On Windows 10: LibreOffice 24.2 (new numbering) and older versions, PortableOpenOffice 4.1.7 and older, StarOffice 5.2
---
Lupp from München