Returns an array with all known language codes.

Syntax:

GetAllLanguageCodes(LanguageCodeArray As Variant) As Boolean
Return: Boolean
Parameters: LanguageCodeArray Array into which all language codes are written.

Example:
' in a UserForm with a ComboBox

Private Sub UserForm_Activate()
   Dim LangCodeAry() As Variant	
   Dim Tool As LanguageTool
   Dim RetVal As Boolean
   Dim i As Integer

   Set Tool = Application.Tools.LanguageTool

   RetVal = Tool.GetAllLanguageCodes(LangCodeAry)

   For i = 0 To UBound(LangCodeAry)
       ComboBox1.AddItem (LangCodeAry(i))
   Next i
End Sub

See also:

Class LanguageTool


Last Updated: 03/17/21