Dim Lang As Language, Dict
|
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 |
| Листинг 1.14. |
| Закрыть окно |
