Microsoft Office Tutorials and References
In Depth Information
Changing Custom Dictionaries On-the-Fly
' * * * * *¶
Function LanguageIDText(varLang As Variant) As String¶
Select Case varLang¶
Case 0¶
LanguageIDText = "All languages"¶
Case 2055¶
LanguageIDText = "German (Swiss)"¶
Case 1031¶
LanguageIDText = "German (Germany)"¶
Case 3079¶
LanguageIDText = "German (Austrian)"¶
Case 5127¶
LanguageIDText = "German (Liechtenstein)"¶
Case 4103¶
LanguageIDText = "German (Luxemburg)"¶
Case 2057¶
LanguageIDText = "English (UK)"¶
Case 1033¶
LanguageIDText = "English (US)"¶
Case 3081¶
LanguageIDText = "English (AU)"¶
Case 4105¶
LanguageIDText = "English (CA)"¶
Case 5129¶
LangaugeIDText = "English (NZ)"¶
Case 10249¶
LanguageIDText = "English (Belize)"¶
Case 9225¶
LanguageIDText = "English (Caribbean)"¶
Case 14345¶
LanguageIDText = "English (Indonesian)"¶
Case 6153¶
LanguageIDText = "English (Ireland)"¶
Case 8201¶
LanguageIDText = "English (Jamaica)"¶
Case 13321¶
LanguageIDText = "English (Philippines)"¶
Case 7177¶
LanguageIDText = "English (SA)"¶
Case 11273¶
LanguageIDText = "English (TrinidadTobago)"¶
Case 12297¶
LanguageIDText = "English (Zimbabwe)"¶
Case 1036¶
LanguageIDText = "French"¶
Case 3084¶
LanguageIDText = "French (CA)"¶
Case Else¶
LanguageIDText = CStr(varLang)¶
End Select¶
End Function¶
Wrd
Search JabSto ::




Custom Search