modWordRussianGrammarFix.BAS

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