zoukankan      html  css  js  c++  java

  • 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
  • 相关阅读:
    MVC 与传统的 webform 的比较
    Visual Studio 类模板的修改
    2015-3-3
    SQL SERVER类型与C#类型对照
    数据库连接串的配置
    Could not load file or assembly 'System.Web.Mvc' or one of its dependencies. The located assembly's manifest definition does not
    多条查询sql语句返回多表数据集
    URL和搜索引擎优化
    XPath 语法示例
    如何把数据库的某个字段更新为另一个字段
  • 原文地址：https://www.cnblogs.com/fengju/p/6336235.html
Copyright © 2011-2022 走看看