An UDF to Get LanguageSettings of Office's Application

Use  Application.LanguageSettings.LanguageID to to get LanguageSettings of Office's Application

The codes：

3. Sub ShowLanguage()
4.     Dim Lan(-100 To 25000) As String
5.     Init Lan
6.    Debug.Print "Install Language        " & vbTab & Lan(Application.LanguageSettings.LanguageID(msoLanguageIDInstall)) & vbCrLf & _
7.            "User Interface Language   " & vbTab & Lan(Application.LanguageSettings.LanguageID(msoLanguageIDUI)) & vbCrLf & _
8.            "Help Language             " & vbTab & Lan(Application.LanguageSettings.LanguageID(msoLanguageIDHelp))
9. End Sub
11. Sub Init(ByRef Lan() As String)
12.     Lan(msoLanguageIDAfrikaans) = "Afrikaans"
13.     Lan(msoLanguageIDAlbanian) = "Albanian"
14.     Lan(msoLanguageIDAmharic) = "Amharic"
15.     Lan(msoLanguageIDArabic) = "Arabic"
16.     Lan(msoLanguageIDArabicAlgeria) = "ArabicAlgeria"
17.     Lan(msoLanguageIDArabicBahrain) = "ArabicBahrain"
18.     Lan(msoLanguageIDArabicEgypt) = "ArabicEgypt"
19.     Lan(msoLanguageIDArabicIraq) = "ArabicIraq"
20.     Lan(msoLanguageIDArabicJordan) = "ArabicJordan"
21.     Lan(msoLanguageIDArabicKuwait) = "ArabicKuwait"
22.     Lan(msoLanguageIDArabicLebanon) = "ArabicLebanon"
23.     Lan(msoLanguageIDArabicLibya) = "ArabicLibya"
24.     Lan(msoLanguageIDArabicMorocco) = "ArabicMorocco"
25.     Lan(msoLanguageIDArabicOman) = "ArabicOman"
26.     Lan(msoLanguageIDArabicQatar) = "ArabicQatar"
27.     Lan(msoLanguageIDArabicSyria) = "ArabicSyria"
28.     Lan(msoLanguageIDArabicTunisia) = "ArabicTunisia"
29.     Lan(msoLanguageIDArabicUAE) = "ArabicUAE"
30.     Lan(msoLanguageIDArabicYemen) = "ArabicYemen"
31.     Lan(msoLanguageIDArmenian) = "Armenian"
32.     Lan(msoLanguageIDAssamese) = "Assamese"
33.     Lan(msoLanguageIDAzeriCyrillic) = "AzeriCyrillic"
34.     Lan(msoLanguageIDAzeriLatin) = "AzeriLatin"
35.     Lan(msoLanguageIDBasque) = "Basque"
36.     Lan(msoLanguageIDBelgianDutch) = "BelgianDutch"
37.     Lan(msoLanguageIDBelgianFrench) = "BelgianFrench"
38.     Lan(msoLanguageIDBengali) = "Bengali"
39.     Lan(msoLanguageIDBrazilianPortuguese) = "BrazilianPortuguese"
40.     Lan(msoLanguageIDBulgarian) = "Bulgarian"
41.     Lan(msoLanguageIDBurmese) = "Burmese"
42.     Lan(msoLanguageIDByelorussian) = "Byelorussian"
43.     Lan(msoLanguageIDCatalan) = "Catalan"
44.     Lan(msoLanguageIDCherokee) = "Cherokee"
45.     Lan(msoLanguageIDChineseHongKong) = "ChineseHongKong"
46.     Lan(msoLanguageIDChineseMacao) = "ChineseMacao"
47.     Lan(msoLanguageIDChineseSingapore) = "ChineseSingapore"
48.     Lan(msoLanguageIDCroatian) = "Croatian"
49.     Lan(msoLanguageIDCzech) = "Czech"
50.     Lan(msoLanguageIDDanish) = "Danish"
51.     Lan(msoLanguageIDDutch) = "Dutch"
52.     Lan(msoLanguageIDEnglishAUS) = "EnglishAUS"
53.     Lan(msoLanguageIDEnglishBelize) = "EnglishBelize"
54.     Lan(msoLanguageIDEnglishCanadian) = "EnglishCanadian"
55.     Lan(msoLanguageIDEnglishCaribbean) = "EnglishCaribbean"
56.     Lan(msoLanguageIDEnglishIreland) = "EnglishIreland"
57.     Lan(msoLanguageIDEnglishJamaica) = "EnglishJamaica"
58.     Lan(msoLanguageIDEnglishNewZealand) = "EnglishNewZealand"
59.     Lan(msoLanguageIDEnglishPhilippines) = "EnglishPhilippines"
60.     Lan(msoLanguageIDEnglishSouthAfrica) = "EnglishSouthAfrica"
61.     Lan(msoLanguageIDEnglishTrinidad) = "EnglishTrinidad"
62.     Lan(msoLanguageIDEnglishUK) = "EnglishUK"
63.     Lan(msoLanguageIDEnglishUS) = "EnglishUS"
64.     Lan(msoLanguageIDEnglishZimbabwe) = "EnglishZimbabwe"
65.     Lan(msoLanguageIDEstonian) = "Estonian"
66.     Lan(msoLanguageIDFaeroese) = "Faeroese"
67.     Lan(msoLanguageIDFarsi) = "Farsi"
68.     Lan(msoLanguageIDFinnish) = "Finnish"
69.     Lan(msoLanguageIDFrench) = "French"
70.     Lan(msoLanguageIDFrenchCameroon) = "FrenchCameroon"
71.     Lan(msoLanguageIDFrenchCanadian) = "FrenchCanadian"
72.     Lan(msoLanguageIDFrenchCotedIvoire) = "FrenchCotedIvoire"
73.     Lan(msoLanguageIDFrenchLuxembourg) = "FrenchLuxembourg"
74.     Lan(msoLanguageIDFrenchMali) = "FrenchMali"
75.     Lan(msoLanguageIDFrenchMonaco) = "FrenchMonaco"
76.     Lan(msoLanguageIDFrenchReunion) = "FrenchReunion"
77.     Lan(msoLanguageIDFrenchSenegal) = "FrenchSenegal"
78.     Lan(msoLanguageIDFrenchWestIndies) = "FrenchWestIndies"
79.     Lan(msoLanguageIDFrenchZaire) = "FrenchZaire"
80.     Lan(msoLanguageIDFrisianNetherlands) = "FrisianNetherlands"
81.     Lan(msoLanguageIDGaelicIreland) = "GaelicIreland"
82.     Lan(msoLanguageIDGaelicScotland) = "GaelicScotland"
83.     Lan(msoLanguageIDGalician) = "Galician"
84.     Lan(msoLanguageIDGeorgian) = "Georgian"
85.     Lan(msoLanguageIDGerman) = "German"
86.     Lan(msoLanguageIDGermanAustria) = "GermanAustria"
87.     Lan(msoLanguageIDGermanLiechtenstein) = "GermanLiechtenstein"
88.     Lan(msoLanguageIDGermanLuxembourg) = "GermanLuxembourg"
89.     Lan(msoLanguageIDGreek) = "Greek"
90.     Lan(msoLanguageIDGujarati) = "Gujarati"
91.     Lan(msoLanguageIDHebrew) = "Hebrew"
92.     Lan(msoLanguageIDHindi) = "Hindi"
93.     Lan(msoLanguageIDHungarian) = "Hungarian"
94.     Lan(msoLanguageIDIcelandic) = "Icelandic"
95.     Lan(msoLanguageIDIndonesian) = "Indonesian"
96.     Lan(msoLanguageIDInuktitut) = "Inuktitut"
97.     Lan(msoLanguageIDItalian) = "Italian"
98.     Lan(msoLanguageIDJapanese) = "Japanese"
99.     Lan(msoLanguageIDKannada) = "Kannada"
100.     Lan(msoLanguageIDKashmiri) = "Kashmiri"
101.     Lan(msoLanguageIDKazakh) = "Kazakh"
102.     Lan(msoLanguageIDKhmer) = "Khmer"
103.     Lan(msoLanguageIDKirghiz) = "Kirghiz"
104.     Lan(msoLanguageIDKonkani) = "Konkani"
105.     Lan(msoLanguageIDKorean) = "Korean"
106.     Lan(msoLanguageIDLao) = "Lao"
107.     Lan(msoLanguageIDLatvian) = "Latvian"
108.     Lan(msoLanguageIDLithuanian) = "Lithuanian"
109.     Lan(msoLanguageIDMacedonian) = "Macedonian"
110.     Lan(msoLanguageIDMalayalam) = "Malayalam"
111.     Lan(msoLanguageIDMalayBruneiDarussalam) = "MalayBruneiDarussalam"
112.     Lan(msoLanguageIDMalaysian) = "Malaysian"
113.     Lan(msoLanguageIDMaltese) = "Maltese"
114.     Lan(msoLanguageIDManipuri) = "Manipuri"
115.     Lan(msoLanguageIDMarathi) = "Marathi"
116.     Lan(msoLanguageIDMexicanSpanish) = "MexicanSpanish"
117.     Lan(msoLanguageIDMixed) = "Mixed"
118.     Lan(msoLanguageIDMongolian) = "Mongolian"
119.     Lan(msoLanguageIDNepali) = "Nepali"
120.     Lan(msoLanguageIDNone) = "None"
121.     Lan(msoLanguageIDNoProofing) = "NoProofing"
122.     Lan(msoLanguageIDNorwegianBokmol) = "NorwegianBokmol"
123.     Lan(msoLanguageIDNorwegianNynorsk) = "NorwegianNynorsk"
124.     Lan(msoLanguageIDOriya) = "Oriya"
125.     Lan(msoLanguageIDOromo) = "Oromo"
126.     Lan(msoLanguageIDPolish) = "Polish"
127.     Lan(msoLanguageIDPortuguese) = "Portuguese"
128.     Lan(msoLanguageIDPunjabi) = "Punjabi"
129.     Lan(msoLanguageIDRhaetoRomanic) = "RhaetoRomanic"
130.     Lan(msoLanguageIDRomanian) = "Romanian"
131.     Lan(msoLanguageIDRomanianMoldova) = "RomanianMoldova"
132.     Lan(msoLanguageIDRussian) = "Russian"
133.     Lan(msoLanguageIDRussianMoldova) = "RussianMoldova"
134.     Lan(msoLanguageIDSamiLappish) = "SamiLappish"
135.     Lan(msoLanguageIDSanskrit) = "Sanskrit"
136.     Lan(msoLanguageIDSerbianCyrillic) = "SerbianCyrillic"
137.     Lan(msoLanguageIDSerbianLatin) = "SerbianLatin"
138.     Lan(msoLanguageIDSesotho) = "Sesotho"
139.     Lan(msoLanguageIDSimplifiedChinese) = "SimplifiedChinese"
140.     Lan(msoLanguageIDSindhi) = "Sindhi"
141.     Lan(msoLanguageIDSlovak) = "Slovak"
142.     Lan(msoLanguageIDSlovenian) = "Slovenian"
143.     Lan(msoLanguageIDSorbian) = "Sorbian"
144.     Lan(msoLanguageIDSpanish) = "Spanish"
145.     Lan(msoLanguageIDSpanishArgentina) = "SpanishArgentina"
146.     Lan(msoLanguageIDSpanishBolivia) = "SpanishBolivia"
147.     Lan(msoLanguageIDSpanishChile) = "SpanishChile"
148.     Lan(msoLanguageIDSpanishColombia) = "SpanishColombia"
149.     Lan(msoLanguageIDSpanishCostaRica) = "SpanishCostaRica"
150.     Lan(msoLanguageIDSpanishDominicanRepublic) = "SpanishDominicanRepublic"
151.     Lan(msoLanguageIDSpanishEcuador) = "SpanishEcuador"
152.     Lan(msoLanguageIDSpanishElSalvador) = "SpanishElSalvador"
153.     Lan(msoLanguageIDSpanishGuatemala) = "SpanishGuatemala"
154.     Lan(msoLanguageIDSpanishHonduras) = "SpanishHonduras"
155.     Lan(msoLanguageIDSpanishModernSort) = "SpanishModernSort"
156.     Lan(msoLanguageIDSpanishNicaragua) = "SpanishNicaragua"
157.     Lan(msoLanguageIDSpanishPanama) = "SpanishPanama"
158.     Lan(msoLanguageIDSpanishParaguay) = "SpanishParaguay"
159.     Lan(msoLanguageIDSpanishPeru) = "SpanishPeru"
160.     Lan(msoLanguageIDSpanishPuertoRico) = "SpanishPuertoRico"
161.     Lan(msoLanguageIDSpanishUruguay) = "SpanishUruguay"
162.     Lan(msoLanguageIDSpanishVenezuela) = "SpanishVenezuela"
163.     Lan(msoLanguageIDSutu) = "Sutu"
164.     Lan(msoLanguageIDSwahili) = "Swahili"
165.     Lan(msoLanguageIDSwedish) = "Swedish"
166.     Lan(msoLanguageIDSwedishFinland) = "SwedishFinland"
167.     Lan(msoLanguageIDSwissFrench) = "SwissFrench"
168.     Lan(msoLanguageIDSwissGerman) = "SwissGerman"
169.     Lan(msoLanguageIDSwissItalian) = "SwissItalian"
170.     Lan(msoLanguageIDTajik) = "Tajik"
171.     Lan(msoLanguageIDTamil) = "Tamil"
172.     Lan(msoLanguageIDTatar) = "Tatar"
173.     Lan(msoLanguageIDTelugu) = "Telugu"
174.     Lan(msoLanguageIDThai) = "Thai"
175.     Lan(msoLanguageIDTibetan) = "Tibetan"
176.     Lan(msoLanguageIDTigrignaEritrea) = "TigrignaEritrea"
177.     Lan(msoLanguageIDTigrignaEthiopic) = "TigrignaEthiopic"
178.     Lan(msoLanguageIDTraditionalChinese) = "TraditionalChinese"
179.     Lan(msoLanguageIDTsonga) = "Tsonga"
180.     Lan(msoLanguageIDTswana) = "Tswana"
181.     Lan(msoLanguageIDTurkish) = "Turkish"
182.     Lan(msoLanguageIDTurkmen) = "Turkmen"
183.     Lan(msoLanguageIDUkrainian) = "Ukrainian"
184.     Lan(msoLanguageIDUrdu) = "Urdu"
185.     Lan(msoLanguageIDUzbekCyrillic) = "UzbekCyrillic"
186.     Lan(msoLanguageIDUzbekLatin) = "UzbekLatin"
187.     Lan(msoLanguageIDVenda) = "Venda"
188.     Lan(msoLanguageIDVietnamese) = "Vietnamese"
189.     Lan(msoLanguageIDWelsh) = "Welsh"
190.     Lan(msoLanguageIDXhosa) = "Xhosa"
191.     Lan(msoLanguageIDZulu) = "Zulu"
192. End Sub

 

 

It reurns ：

Install Language                  EnglishUS
User Interface Language     EnglishUS
Help Language                    EnglishUS