powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как автоматически устанавливать русский язык при запуске Word'a?
10 сообщений из 10, страница 1 из 1
Как автоматически устанавливать русский язык при запуске Word'a?
    #33257939
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник


Есть такая проблема: по умолчанию в системе установлен инглиш.
Но нужно, чтобы при запуске Word'a язык сразу переключался на русский (а то персонал теряется).
Что нужно написать в макросе?


______________________________
Never Surrender - Nothing Impossible!
...
Рейтинг: 0 / 0
Как автоматически устанавливать русский язык при запуске Word'a?
    #33258019
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA"
 (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
...
Рейтинг: 0 / 0
Как автоматически устанавливать русский язык при запуске Word'a?
    #33258127
Можно так:

Код: plaintext
1.
2.
Public Sub AutoExec()
    Word.Application.Keyboard msoLanguageIDRussian
End Sub

Можно еще так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Declare Function ActivateKeyboardLayout Lib "user32" ( _
  ByVal HKL As Long, _
  ByVal flags As Long) As Long
Private Const kb_lay_ru As Long =  68748313 
Private Const kb_lay_en As Long =  67699721 

Public Sub AutoExec()
    ActivateKeyboardLayout kb_lay_ru,  0 
End Sub
...
Рейтинг: 0 / 0
Как автоматически устанавливать русский язык при запуске Word'a?
    #33258209
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
JetusЧто нужно написать в макросе?На моём компе раскладка клавиатуры по умолчанию - английская.
При входе в Word автоматически переключается на русскую.
Никакие макросы не используются (бритва Оккама).
Подозреваю, что в этом виноват следующий скриншот:
...
Рейтинг: 0 / 0
Как автоматически устанавливать русский язык при запуске Word'a?
    #33258286
Дурак
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Processor

Не успел :-))).

Вы раньше выстрелили и всех убили наповал :-))).
...
Рейтинг: 0 / 0
Как автоматически устанавливать русский язык при запуске Word'a?
    #33258341
ProcessorНа моём компе раскладка клавиатуры по умолчанию - английская. При входе в Word автоматически переключается на русскую.

Кстати у меня тоже автоматически. :) Не обратил внимания.
...
Рейтинг: 0 / 0
Как автоматически устанавливать русский язык при запуске Word'a?
    #33258677
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как изменить сочетание клавиш перевода языка?
...
Рейтинг: 0 / 0
Как автоматически устанавливать русский язык при запуске Word'a?
    #33259502
Alex_Sandr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторНа моём компе раскладка клавиатуры по умолчанию - английская.
При входе в Word автоматически переключается на русскую.
Никакие макросы не используются (бритва Оккама).
Подозреваю, что в этом виноват следующий скриншот:

На OfficeXP не работает.
...
Рейтинг: 0 / 0
Как автоматически устанавливать русский язык при запуске Word'a?
    #33260626
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Alex_SandrНа OfficeXP не работает.Согласен.
Даже установка языка документа "Русский" в Normal.dot не приводит к желаемому результату.
...
Рейтинг: 0 / 0
Как автоматически устанавливать русский язык при запуске Word'a?
    #33261556
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Alex_SandrНа OfficeXP не работает.Уже не согласен.
Работает, если щелкнуть в этом чекбоксе:
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как автоматически устанавливать русский язык при запуске Word'a?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]