程序博客网 > 微信号采集源码

An UDF to Get LanguageSettings of Office's Application

来源：互联网 发布：微信号采集源码 编辑：程序博客网 时间：2024/06/03 19:19

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

微信号采集源码 微信号采集源码
原创粉丝点击
热门IT博客
mac版谷歌dhc插件下载mac版谷歌dhc插件下载
淘宝上有没有卖视频的淘宝上有没有卖视频的
关于网络的作文500字
鲁迅文学院2017网络班
买家淘宝购物流程
淘宝电子面单打印软件
一般的网络作家月收入
云计算架构工程师招聘
通达即时通讯端口
网络歌曲贱女人好男人
肥皂水灌肠的浓度算法
exchange邮箱域名
微博如何绑定淘宝
网络联盟
迪曼宠物用品淘宝真假
ajax 数据undefined
淘宝怎么删掉主页的
ping 的端口
淘宝双十一2017
校园网络借贷主题班会
热门问题 老师的惩罚 人脸识别 我在镇武司摸鱼那些年 重生之率土为王 我在大康的咸鱼生活 盘龙之生命进化 天生仙种 凡人之先天五行 春回大明朝 姑娘不必设防，我是瞎子 酒窝整形 微整形能保持多久 男士整形 瘦脸整形 整形医院那家好 中韩整形美容 耳部整形 整形案例 唇珠整形 整形专业 著名整形医院 韩国整形专家 额头整形 发际线整形价格 北京整形医院哪里好 唇裂整形 腿部整形 韩式整形 鼻孔整形 脸部整形 女性整形 整式 整式的概念 整式概念 整式的加减 整式加减 什么是整式 整式定义 整式的定义 什么叫整式 整式是什么 整式教案 整式乘法 整式的乘除 整式的乘法 整式方程 整式加减教案 0是不是整式 整式加减计算题 整式乘除 初一数学整式

程序博客网，程序员的互联网技术博客家园。csdn论坛精品 msdn技术资料都在这里