Public Sub WorkLang()
	Dim Lang As Language, Dict As Dictionary
	Dim AppLang As Long, InterfaceLang As Long, HelpLang As Long
	
	'Орфографический словарь
	Set Lang = Languages(wdRussian)
	Set Dict = Lang.ActiveSpellingDictionary
	Debug.Print Lang.Name
	If Not (Dict Is Nothing) Then
		Debug.Print Dict.Path & Application.PathSeparator & Dict.Name
	End If
	'Установки языка общения
	AppLang = Application. LanguageSettings.LanguageID(msoLanguageIDInstall)
	InterfaceLang = Application. LanguageSettings.LanguageID(msoLanguageIDUI)
	HelpLang = Application. LanguageSettings.LanguageID(msoLanguageIDHelp)
	If AppLang = (InterfaceLang) And (AppLang = HelpLang) _
		And (AppLang = wdRussian) Then
		Debug.Print "Установлен русский язык" _
			& " в качестве языка инсталляции, интерфейса и справки"
	ElseIf AppLang = (InterfaceLang) And (AppLang = HelpLang) _
		And (AppLang = wdEnglishUS) Then
		Debug.Print "Установлен английский язык" _
			& " в качестве языка инсталляции, интерфейса и справки"
	End If
	
	If Application. LanguageSettings. _
		LanguagePreferredForEditing(msoLanguageIDRussian) Then
		Debug.Print "Русский язык является" _
			& " одним из предпочтительных языков редактирования"
	End If
End Sub