Macros/Writer/008/es

TDF LibreOffice en español Document Liberation Project Blogs comunitarios Weblate Nextcloud Redmine Preguntas y respuestas Donar

• Inicio
• Desarrollo
• Diseño
• Control de calidad
• Eventos
• Documentación
• Sitio web
• Regionalización
• Accesibilidad
• Mercadotecnia
• Diversity
• Wiki Help

• Macros
• Macros Generales
• Macros para Writer
• Macros para Calc
• Macros para Impress
• Macros para Draw
• Macros para Base
• Macros para Math
• Basic/Python

Description

For LibreOffice Writer, we wish to write a macro which emulates the functionality of Table ▸ Convert ▸ Table to Text....

We will use the dispatcher to engage the command .uno:ConvertTableToText (this part of the code is can be recorded with if Tools ▸ Options ▸ Advanced ▸ Enable macro recording (may be limited) is enabled).

The macro starts by positioning the cursor in the table with the Select method of CurrentController and passing it the cursor created in the table.

For the below example, a table with the name "Table2" is converted.

Accessing of the table will be done through the method getByName from the service TextTables. The method com.sun.star.text.createCursorByCellName allows for creation of a cursor in cell A1. This cursor is then used for selectioning in the table and can hence do the converting.

Code

In LibreOffice Basic:

Option Explicit

Sub Main()
    TableToText("Table2")
End Sub


Sub TableToText(TableName As String)
    '''<span lang="en" dir="ltr" class="mw-content-ltr">Convert a table to text</span>'''

    Dim oDoc As Object ' com.sun.star.uno.XInterface (ThisComponent)
    Dim oTable As Object ' com.sun.star.text.XTextTable
    Dim oTableCursor As Object ' com.sun.star.text.XTextTableCursor
    Dim document As Object ' com.sun.star.frame.XFrame (ThisComponent.CurrentController.Frame)
    Dim dispatcher As Object ' com.sun.star.frame.DispatchHelper
    Dim args(0) As New com.sun.star.beans.PropertyValue

    oDoc = ThisComponent
    oTable = oDoc.TextTables.getByName(TableName)
    oTableCursor = oTable.createCursorByCellName("A1")
    oDoc.CurrentController.select(oTableCursor)

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

    args(0).Name = "Delimiter"
    args(0).Value = CHR$(9) ' ASCII char #9 = TAB

    dispatcher.executeDispatch(document, ".uno:ConvertTableToText", "", 0, args())

End Sub ' TableToText

ODT file to test macro

• Download example ODT file with this macro embedded

Notes