Creating a multi-lingual glossary Thread poster: Hans Lenting
| | esperantisto Local time: 17:21 Member (2006) English to Russian + ... SITE LOCALIZER Why not export a file to plain text from Excel directly? | Jun 18, 2018 |
The question is in the heading. | | | Hans Lenting Netherlands Member (2006) German to Dutch TOPIC STARTER Advanced use | Jun 18, 2018 |
esperantisto wrote: The question is in the heading. Because of possible problems with encoding and delimiters that novice users can experience. | | | esperantisto Local time: 17:21 Member (2006) English to Russian + ... SITE LOCALIZER OpenOffice Calc | Jun 18, 2018 |
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 = Th... See moreThen 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 | | | To report site rules violations or get help, contact a site moderator: You can also contact site staff by submitting a support request » Creating a multi-lingual glossary Anycount & Translation Office 3000 | Translation Office 3000
Translation Office 3000 is an advanced accounting tool for freelance translators and small agencies. TO3000 easily and seamlessly integrates with the business life of professional freelance translators.
More info » |
| Protemos translation business management system | Create your account in minutes, and start working! 3-month trial for agencies, and free for freelancers!
The system lets you keep client/vendor database, with contacts and rates, manage projects and assign jobs to vendors, issue invoices, track payments, store and manage project files, generate business reports on turnover profit per client/manager etc.
More info » |
|
| | | | X Sign in to your ProZ.com account... | | | | |
|
You can request verification for native languages by completing a simple application that takes only a couple of minutes.
Review native language verification applications submitted by your peers. Reviewing applications can be fun and only takes a few minutes.
View applications
|