【Access示例】VBA判断Office语言版本

时　间:2017-06-16 08:25:29
作　者:缪炜   ID：24010  城市：江阴
摘　要:VBA判断Office语言版本
正　文:

Sub Sample()
    MsgBox Application.LanguageSettings.LanguageID(msoLanguageIDExeMode)
    MsgBox Application.LanguageSettings.LanguageID(msoLanguageIDHelp)
    MsgBox Application.LanguageSettings.LanguageID(msoLanguageIDInstall)
    MsgBox Application.LanguageSettings.LanguageID(msoLanguageIDUI)
    MsgBox Application.LanguageSettings.LanguageID(msoLanguageIDUIPrevious)
End Sub

几个常量的说明 

msoLanguageIDExeMode 

应用程序所使用的语言模式。此设置只用于 Microsoft Excel 和 Microsoft Access。此设置将影响可以显示及编辑的语言，可用的与语言相关的功能、数字格式和货币格式设置等。 
如果没有使用任何 Excel 和 Access 支持的语言，那么就不能将宿主应用程序设置为支持从右向左显示的语言和东亚语言。支持的语言如下：
阿拉伯语
波斯语
朝鲜语
繁体中文
简体中文
日文
乌尔都语
希伯来语
犹太语
msoLanguageIDHelp 联机帮助所用的语言。 
msoLanguageIDInstall Microsoft Office 建立默认设置时所使用的语言设置。例如，Microsoft Word 根据此设置决定工具栏的布局以及与语言相关的项目符号和编号的默认类型。 
msoLanguageIDUI 宿主应用程序的用户界面所用的语言。 
msoLanguageIDUIPrevious 上一次启动指定计算机时，用户界面的语言设置。程序或加载项可据此判断用户界面的语言是否发生了更改。 

常量值结果：

System    Unicode    Office     msoLanguageIDInstall    msoLanguageIDUI
CHS          CHS          CHS        2052                                    2052
CHS          CHS          JPA         2052                                    1041
CHS          JPA           CHS        2052                                    2052
CHS          JPA           JPA         1041                                    1041
JPA           JPA           JPA         1041                                    1041