LanguageSettings Property Example

This example returns the LanguageID property for the user interface and sets the LanguagePreferredForEditing properties.

Note   The LanguageSettings property has a required constant called MsoAppLanguageID. The enumerated values for this constant are msoLanguageIDHelp, msoLanguageIDInstall, msoLanguageIDUI, and msoLanguageIDUIPrevious. The LanguagePreferredForEditing property also has enumerated constants for the available languages. For more detailed information see the LanguageSettings object.

Private Sub GetLanguageInfo()
Dim myLSet As LanguageSettings
Dim myLangID As String
Dim prfLang As String

Set myLSet = Application.LanguageSettings

With myLSet
myLangID = .LanguageID(msoLanguageIDUI)
prfLang = _
.LanguagePreferredForEditing(msoLanguageIDEnglishUS) _
  = True
End With
End Sub