Please upload an ODF type sample file and your macro code here.
I don't understand this advice, because e.g. the word "zwischen" appears in many of the files without it being related to a Conditial Operator.
I do not have a macro code, because I am looking for a corresponding code.
Also there is no file, because I do not want to create or evaluate a file.
Haven't you even tried to write the macro?
Sub Start()
EnumerateEnumerations("com.sun.star.sheet.ConditionOperator")
End Sub
Sub EnumerateEnumerations(sName$)
Dim oTD 'Die Beschreibung eines Typs.
Dim s$ 'Ausgabestring.
Dim sNames 'Array der Namen
Dim lValues 'Array der Werte
Dim i As Long
Dim iCount As Integer
oTD = GetOOoConst(sName)
If IsNull(oTD) Or IsEmpty(oTD) Then
Exit Sub
End If
If HasUnoInterfaces(oTD, "com.sun.star.reflection.XEnumTypeDescription") Then
'MsgBox Join(oTD.getEnumNames(), Chr$(10))
sNames = oTD.getEnumNames()
lValues = oTD.getEnumValues()
For i = LBound(sNames) To UBound(sNames)
iCount = iCount + 1
If (iCount > 40) Then
MsgBox(s)
s = ""
End If
s = s & lValues(i) & Chr$(9) & sNames(i) & Chr$(10)
Next
ElseIf HasUnoInterfaces(oTD, _
"com.sun.star.reflection.XConstantsTypeDescription") Then
lValues = oTD.getConstants()
For i = LBound(lValues) To UBound(lValues)
iCount = iCount + 1
If (iCount > 40) Then
MsgBox(s)
s = ""
End If
s = s & lValues(i).getConstantValue() & Chr$(9) & lValues(i).getName() & Chr$(10)
Next
Else
MsgBox "Nicht unterstützter Typ " & sName
Exit Sub
End If
MsgBox s
End Sub
Function GetOOoConst(constString)
Dim sTDMName$
Dim oTDM
sTDMName = "/singletons/com.sun.star.reflection.theTypeDescriptionManager"
oTDM = GetDefaultContext().getValueByName(sTDMName)
If oTDM.hasByHierarchicalName(constString) Then
GetOOoConst = oTDM.getByHierarchicalName(constString)
Else
MsgBox "Unbekannter Name: " & constString, 16, "OOo-API-Konstante oder Enumeration"
End If
End Function
Where you want to launch the macro??? I suppose it: in an .ods file. The file is not exist yet?
Why should this localization plage be supported?
Why specifically by a forum in English language?
This forum hasn't a working German branch
Why should I answer in German a question in the German branch if I yesterday took half an hour or more to thoroughly answer a very similar question in English?
LibreOffice has an advanced feature missing in OO that allows you to look/search through the registry keys
"registry keys", that means the Windows registry?
The LO has a new feature in the menu item:
Tools - Options - LibreOffice - Advanced - Open Expert Configuration
You'd have to download LibreOffice if you don't have it but you might find a solution that applies to OO as well.
The files in directory /opt/libreoffice6.4/program/resource/de/LC_MESSAGES/ look promising.
Do built-in dialogs have an accessible context?
I thought that these interfaces are made for screen readers to serve the visually handicapped. Then you could read all the operator names from the list box of the conditional format dialog.
Alternatively a most-likely-used or at least understandable pre-prepared translation for those few words could be got through google translate in seconds. The effort of the above 23 replies might exceed doing that for a hundred languages...
My suggestion was to use google translate to create the list that can be loaded from depending on the user's language.
That's how language customisation is generally done.
Users browsing this forum: No registered users and 5 guests