'====================================================================
' AJPapps - Word Russian grammar fix
' Линда Кайе 2016. Посвящается Ариэль
' 
' Этот макрос позволяет побороть баг проверки русской орфографии 
' в Word, когда выбранный набор правил (например, для обычной 
' переписки) не сохраняется при перезапуске программы.
' 
' Макрос добавляется в модуль ThisDocument шаблона Normal.dot. Если 
' события Document_New() и Document_Open() уже определены, 
' соответствующий код добавляется куда-нибудь в их тело.
' 
' Набор правил можно указать самостоятельно (в коде есть примеры).
' 
' Внимание! Из-за особенностей Word, данный код не будет работать 
' с документом по умолчанию, который создаётся сразу же при запуске 
' программы. Он сработает с документами, которые были открыты, либо 
' были созданы через меню "Файл".
' 
' • 16.09.2016
'   Первый публичный релиз.
' 
'====================================================================
' 1. Программа распространяется бесплатно.
' 2. Вы имеете право распространять её на тех же условиях.
' 3. При распространении вы не имеете права менять авторство 
'    программы, присваивать его себе или каким-либо иным способом 
'    искажать его.
' 4. Разрешено коммерческое использование программы (в офисе, 
'    на производстве) за исключением её платного распространения 
'    или сдачи в аренду.
' 5. Программа распространяется как есть. Автор не несёт 
'    ответственности за любые трагедии или несчастные случаи, 
'    вызванные использованием программы.
' 6. Вы имеете право использовать ActiveX компоненты, поставляемые 
'    с программой, в собственных программах. При этом автор 
'    не гарантирует совместимость будущих версий компонентов.
' 7. Для любого пункта данного соглашения может быть сделано 
'    исключение с разрешения автора программы.
' 8. По любым вопросам, связанным с данной программой, обращайтесь 
'    по адресу lindaoneesama@gmail.com
' 
' Загружено с http://purl.oclc.org/Linda_Kaioh/Homepage/
'====================================================================
Option Explicit

'====================================================================
Private Sub Document_New()
  On Error Resume Next
  
  ' Другие значения:
  ' • "Для деловой переписки"
  ' • "Строго (все правила)"
  Languages(wdRussian).DefaultWritingStyle = "Для обычной переписки"
End Sub

Private Sub Document_Open()
  On Error Resume Next
  
  ' Другие значения:
  ' • "Для деловой переписки"
  ' • "Строго (все правила)"
  Languages(wdRussian).DefaultWritingStyle = "Для обычной переписки"
End Sub