An UDF to Get LanguageSettings of Office's Application-优快云博客

本文介绍了一种使用VBA代码来获取Office应用程序中安装语言、用户界面语言及帮助语言的方法。通过枚举语言ID并映射到具体语言名称，便于了解当前Office环境的语言配置。
摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >
Use Application.LanguageSettings.LanguageID to to get LanguageSettings of Office's Application
The codes：
 
 
 SubShowLanguage() 
 DimLan(-100To25000)AsString 
InitLan
 Debug.Print"InstallLanguage"&vbTab&Lan(Application.LanguageSettings.LanguageID(msoLanguageIDInstall))&vbCrLf&_ 
 "UserInterfaceLanguage"&vbTab&Lan(Application.LanguageSettings.LanguageID(msoLanguageIDUI))&vbCrLf&_ 
 "HelpLanguage"&vbTab&Lan(Application.LanguageSettings.LanguageID(msoLanguageIDHelp)) 
 EndSub 
  
 SubInit(ByRefLan()AsString) 
 Lan(msoLanguageIDAfrikaans)="Afrikaans" 
 Lan(msoLanguageIDAlbanian)="Albanian" 
 Lan(msoLanguageIDAmharic)="Amharic" 
 Lan(msoLanguageIDArabic)="Arabic" 
 Lan(msoLanguageIDArabicAlgeria)="ArabicAlgeria" 
 Lan(msoLanguageIDArabicBahrain)="ArabicBahrain" 
 Lan(msoLanguageIDArabicEgypt)="ArabicEgypt" 
 Lan(msoLanguageIDArabicIraq)="ArabicIraq" 
 Lan(msoLanguageIDArabicJordan)="ArabicJordan" 
 Lan(msoLanguageIDArabicKuwait)="ArabicKuwait" 
 Lan(msoLanguageIDArabicLebanon)="ArabicLebanon" 
 Lan(msoLanguageIDArabicLibya)="ArabicLibya" 
 Lan(msoLanguageIDArabicMorocco)="ArabicMorocco" 
 Lan(msoLanguageIDArabicOman)="ArabicOman" 
 Lan(msoLanguageIDArabicQatar)="ArabicQatar" 
 Lan(msoLanguageIDArabicSyria)="ArabicSyria" 
 Lan(msoLanguageIDArabicTunisia)="ArabicTunisia" 
 Lan(msoLanguageIDArabicUAE)="ArabicUAE" 
 Lan(msoLanguageIDArabicYemen)="ArabicYemen" 
 Lan(msoLanguageIDArmenian)="Armenian" 
 Lan(msoLanguageIDAssamese)="Assamese" 
 Lan(msoLanguageIDAzeriCyrillic)="AzeriCyrillic" 
 Lan(msoLanguageIDAzeriLatin)="AzeriLatin" 
 Lan(msoLanguageIDBasque)="Basque" 
 Lan(msoLanguageIDBelgianDutch)="BelgianDutch" 
 Lan(msoLanguageIDBelgianFrench)="BelgianFrench" 
 Lan(msoLanguageIDBengali)="Bengali" 
 Lan(msoLanguageIDBrazilianPortuguese)="BrazilianPortuguese" 
 Lan(msoLanguageIDBulgarian)="Bulgarian" 
 Lan(msoLanguageIDBurmese)="Burmese" 
 Lan(msoLanguageIDByelorussian)="Byelorussian" 
 Lan(msoLanguageIDCatalan)="Catalan" 
 Lan(msoLanguageIDCherokee)="Cherokee" 
 Lan(msoLanguageIDChineseHongKong)="ChineseHongKong" 
 Lan(msoLanguageIDChineseMacao)="ChineseMacao" 
 Lan(msoLanguageIDChineseSingapore)="ChineseSingapore" 
 Lan(msoLanguageIDCroatian)="Croatian" 
 Lan(msoLanguageIDCzech)="Czech" 
 Lan(msoLanguageIDDanish)="Danish" 
 Lan(msoLanguageIDDutch)="Dutch" 
 Lan(msoLanguageIDEnglishAUS)="EnglishAUS" 
 Lan(msoLanguageIDEnglishBelize)="EnglishBelize" 
 Lan(msoLanguageIDEnglishCanadian)="EnglishCanadian" 
 Lan(msoLanguageIDEnglishCaribbean)="EnglishCaribbean" 
 Lan(msoLanguageIDEnglishIreland)="EnglishIreland" 
 Lan(msoLanguageIDEnglishJamaica)="EnglishJamaica" 
 Lan(msoLanguageIDEnglishNewZealand)="EnglishNewZealand" 
 Lan(msoLanguageIDEnglishPhilippines)="EnglishPhilippines" 
 Lan(msoLanguageIDEnglishSouthAfrica)="EnglishSouthAfrica" 
 Lan(msoLanguageIDEnglishTrinidad)="EnglishTrinidad" 
 Lan(msoLanguageIDEnglishUK)="EnglishUK" 
 Lan(msoLanguageIDEnglishUS)="EnglishUS" 
 Lan(msoLanguageIDEnglishZimbabwe)="EnglishZimbabwe" 
 Lan(msoLanguageIDEstonian)="Estonian" 
 Lan(msoLanguageIDFaeroese)="Faeroese" 
 Lan(msoLanguageIDFarsi)="Farsi" 
 Lan(msoLanguageIDFinnish)="Finnish" 
 Lan(msoLanguageIDFrench)="French" 
 Lan(msoLanguageIDFrenchCameroon)="FrenchCameroon" 
 Lan(msoLanguageIDFrenchCanadian)="FrenchCanadian" 
 Lan(msoLanguageIDFrenchCotedIvoire)="FrenchCotedIvoire" 
 Lan(msoLanguageIDFrenchLuxembourg)="FrenchLuxembourg" 
 Lan(msoLanguageIDFrenchMali)="FrenchMali" 
 Lan(msoLanguageIDFrenchMonaco)="FrenchMonaco" 
 Lan(msoLanguageIDFrenchReunion)="FrenchReunion" 
 Lan(msoLanguageIDFrenchSenegal)="FrenchSenegal" 
 Lan(msoLanguageIDFrenchWestIndies)="FrenchWestIndies" 
 Lan(msoLanguageIDFrenchZaire)="FrenchZaire" 
 Lan(msoLanguageIDFrisianNetherlands)="FrisianNetherlands" 
 Lan(msoLanguageIDGaelicIreland)="GaelicIreland" 
 Lan(msoLanguageIDGaelicScotland)="GaelicScotland" 
 Lan(msoLanguageIDGalician)="Galician" 
 Lan(msoLanguageIDGeorgian)="Georgian" 
 Lan(msoLanguageIDGerman)="German" 
 Lan(msoLanguageIDGermanAustria)="GermanAustria" 
 Lan(msoLanguageIDGermanLiechtenstein)="GermanLiechtenstein" 
 Lan(msoLanguageIDGermanLuxembourg)="GermanLuxembourg" 
 Lan(msoLanguageIDGreek)="Greek" 
 Lan(msoLanguageIDGujarati)="Gujarati" 
 Lan(msoLanguageIDHebrew)="Hebrew" 
 Lan(msoLanguageIDHindi)="Hindi" 
 Lan(msoLanguageIDHungarian)="Hungarian" 
 Lan(msoLanguageIDIcelandic)="Icelandic" 
 Lan(msoLanguageIDIndonesian)="Indonesian" 
 Lan(msoLanguageIDInuktitut)="Inuktitut" 
 Lan(msoLanguageIDItalian)="Italian" 
 Lan(msoLanguageIDJapanese)="Japanese" 
 Lan(msoLanguageIDKannada)="Kannada" 
 Lan(msoLanguageIDKashmiri)="Kashmiri" 
 Lan(msoLanguageIDKazakh)="Kazakh" 
 Lan(msoLanguageIDKhmer)="Khmer" 
 Lan(msoLanguageIDKirghiz)="Kirghiz" 
 Lan(msoLanguageIDKonkani)="Konkani" 
 Lan(msoLanguageIDKorean)="Korean" 
 Lan(msoLanguageIDLao)="Lao" 
 Lan(msoLanguageIDLatvian)="Latvian" 
 Lan(msoLanguageIDLithuanian)="Lithuanian" 
 Lan(msoLanguageIDMacedonian)="Macedonian" 
 Lan(msoLanguageIDMalayalam)="Malayalam" 
 Lan(msoLanguageIDMalayBruneiDarussalam)="MalayBruneiDarussalam" 
 Lan(msoLanguageIDMalaysian)="Malaysian" 
 Lan(msoLanguageIDMaltese)="Maltese" 
 Lan(msoLanguageIDManipuri)="Manipuri" 
 Lan(msoLanguageIDMarathi)="Marathi" 
 Lan(msoLanguageIDMexicanSpanish)="MexicanSpanish" 
 Lan(msoLanguageIDMixed)="Mixed" 
 Lan(msoLanguageIDMongolian)="Mongolian" 
 Lan(msoLanguageIDNepali)="Nepali" 
 Lan(msoLanguageIDNone)="None" 
 Lan(msoLanguageIDNoProofing)="NoProofing" 
 Lan(msoLanguageIDNorwegianBokmol)="NorwegianBokmol" 
 Lan(msoLanguageIDNorwegianNynorsk)="NorwegianNynorsk" 
 Lan(msoLanguageIDOriya)="Oriya" 
 Lan(msoLanguageIDOromo)="Oromo" 
 Lan(msoLanguageIDPolish)="Polish" 
 Lan(msoLanguageIDPortuguese)="Portuguese" 
 Lan(msoLanguageIDPunjabi)="Punjabi" 
 Lan(msoLanguageIDRhaetoRomanic)="RhaetoRomanic" 
 Lan(msoLanguageIDRomanian)="Romanian" 
 Lan(msoLanguageIDRomanianMoldova)="RomanianMoldova" 
 Lan(msoLanguageIDRussian)="Russian" 
 Lan(msoLanguageIDRussianMoldova)="RussianMoldova" 
 Lan(msoLanguageIDSamiLappish)="SamiLappish" 
 Lan(msoLanguageIDSanskrit)="Sanskrit" 
 Lan(msoLanguageIDSerbianCyrillic)="SerbianCyrillic" 
 Lan(msoLanguageIDSerbianLatin)="SerbianLatin" 
 Lan(msoLanguageIDSesotho)="Sesotho" 
 Lan(msoLanguageIDSimplifiedChinese)="SimplifiedChinese" 
 Lan(msoLanguageIDSindhi)="Sindhi" 
 Lan(msoLanguageIDSlovak)="Slovak" 
 Lan(msoLanguageIDSlovenian)="Slovenian" 
 Lan(msoLanguageIDSorbian)="Sorbian" 
 Lan(msoLanguageIDSpanish)="Spanish" 
 Lan(msoLanguageIDSpanishArgentina)="SpanishArgentina" 
 Lan(msoLanguageIDSpanishBolivia)="SpanishBolivia" 
 Lan(msoLanguageIDSpanishChile)="SpanishChile" 
 Lan(msoLanguageIDSpanishColombia)="SpanishColombia" 
 Lan(msoLanguageIDSpanishCostaRica)="SpanishCostaRica" 
 Lan(msoLanguageIDSpanishDominicanRepublic)="SpanishDominicanRepublic" 
 Lan(msoLanguageIDSpanishEcuador)="SpanishEcuador" 
 Lan(msoLanguageIDSpanishElSalvador)="SpanishElSalvador" 
 Lan(msoLanguageIDSpanishGuatemala)="SpanishGuatemala" 
 Lan(msoLanguageIDSpanishHonduras)="SpanishHonduras" 
 Lan(msoLanguageIDSpanishModernSort)="SpanishModernSort" 
 Lan(msoLanguageIDSpanishNicaragua)="SpanishNicaragua" 
 Lan(msoLanguageIDSpanishPanama)="SpanishPanama" 
 Lan(msoLanguageIDSpanishParaguay)="SpanishParaguay" 
 Lan(msoLanguageIDSpanishPeru)="SpanishPeru" 
 Lan(msoLanguageIDSpanishPuertoRico)="SpanishPuertoRico" 
 Lan(msoLanguageIDSpanishUruguay)="SpanishUruguay" 
 Lan(msoLanguageIDSpanishVenezuela)="SpanishVenezuela" 
 Lan(msoLanguageIDSutu)="Sutu" 
 Lan(msoLanguageIDSwahili)="Swahili" 
 Lan(msoLanguageIDSwedish)="Swedish" 
 Lan(msoLanguageIDSwedishFinland)="SwedishFinland" 
 Lan(msoLanguageIDSwissFrench)="SwissFrench" 
 Lan(msoLanguageIDSwissGerman)="SwissGerman" 
 Lan(msoLanguageIDSwissItalian)="SwissItalian" 
 Lan(msoLanguageIDTajik)="Tajik" 
 Lan(msoLanguageIDTamil)="Tamil" 
 Lan(msoLanguageIDTatar)="Tatar" 
 Lan(msoLanguageIDTelugu)="Telugu" 
 Lan(msoLanguageIDThai)="Thai" 
 Lan(msoLanguageIDTibetan)="Tibetan" 
 Lan(msoLanguageIDTigrignaEritrea)="TigrignaEritrea" 
 Lan(msoLanguageIDTigrignaEthiopic)="TigrignaEthiopic" 
 Lan(msoLanguageIDTraditionalChinese)="TraditionalChinese" 
 Lan(msoLanguageIDTsonga)="Tsonga" 
 Lan(msoLanguageIDTswana)="Tswana" 
 Lan(msoLanguageIDTurkish)="Turkish" 
 Lan(msoLanguageIDTurkmen)="Turkmen" 
 Lan(msoLanguageIDUkrainian)="Ukrainian" 
 Lan(msoLanguageIDUrdu)="Urdu" 
 Lan(msoLanguageIDUzbekCyrillic)="UzbekCyrillic" 
 Lan(msoLanguageIDUzbekLatin)="UzbekLatin" 
 Lan(msoLanguageIDVenda)="Venda" 
 Lan(msoLanguageIDVietnamese)="Vietnamese" 
 Lan(msoLanguageIDWelsh)="Welsh" 
 Lan(msoLanguageIDXhosa)="Xhosa" 
 Lan(msoLanguageIDZulu)="Zulu" 
 EndSub 
 