Creating a multi-lingual glossary

Sub ExportToGlossary



    Dim oDoc as Object

    Dim glossaryFileProperties(3) as new com.sun.star.beans.PropertyValue

    Dim sURL as String

    Dim iLen as Integer

    Dim isSpreadSheet as Boolean



    oDoc = Th... See more
Then I would recommend using Apache OpenOffice/LibreOffice Calc and the following macro:
 
 
Code:
Sub ExportToGlossary



    Dim oDoc as Object

    Dim glossaryFileProperties(3) as new com.sun.star.beans.PropertyValue

    Dim sURL as String

    Dim iLen as Integer

    Dim isSpreadSheet as Boolean



    oDoc = ThisComponent

    If oDoc.getLocation() = "" Then Exit Sub



    isSpreadSheet = oDoc.supportsService("com.sun.star.sheet.SpreadsheetDocument")



    If isSpreadSheet Then

    sURL = oDoc.getLocation()

    iLen = len(sURL)



    If lcase(right(sURL,4))=".ods" Then

        sURL = left(sURL, iLen - 4)

    Else

       If lcase(right(sURL,4))=".xls" Then

           sURL = left(sURL, iLen - 4)

       Else

           If lcase(right(sURL,5))=".xlsx" Then

               sURL = left(sURL, iLen - 5)

           End If

       End If    

    End If

    

    sURL = sURL + ".txt"



    glossaryFileProperties(0).Name = "FilterName"  ' setting properties of exported file such as tab as field delimiter, nothing as text delimiter, UTF-8 as encoding

    glossaryFileProperties(0).Value = "Text - txt - csv (StarCalc)"

    glossaryFileProperties(1).Name = "FilterOptions"

    glossaryFileProperties(1).Value = "9,0,76,1,,0,false,true,false"

    glossaryFileProperties(2).Name = "Overwrite"

    glossaryFileProperties(2).Value = True



    oDoc.storeToURL(sURL, glossaryFileProperties())

    End If

End Sub

 
 I have written it for OmegaT, but, as I understand, the format is essentially the same (tab-delimited plain-text file in UTF-8). I have also packed it to an extension (can be downloaded from Dropbox) that installs a button and a menu item under File. However, it works only in Apache OpenOffice and not in LibreOffice. ▲ Collapse