О России сейчас

Россия всегда будет действовать в своём историческом праве мировой цивилизации, несущее народам мир и справедливость в высшем её понимании

Нам не нужен международный или какой-то третейский арбитр. Мы, Россия — в своём историческом праве победителя трёх мировых войн.

Мы — народ победитель.

Мы сейчас предотвращаем третью мировую войну. Мы уничтожаем провокаторов этой войны. Мы ликвидируем базу этих провокаторов. Поэтому мы несём мир и справедливость. Потому, — как мы этот послевоенный мир создавали и ответственны за его поддержание, на нас лежит священная миссия, как победителей фашизма — не допустить повторение нацизма и мировой войны.

То, что мы учредили ООН, не значит того, что мы отказались от своего исторического права победителей в пользу ООН.

Мы — народ победитель.

И мы ответственны за мир.

И мы это право, как историческое право победителей во Второй мировой войне — никому не передали.

     

Дмитрий Владимирович Роде

03.03.2022

 

Мы используем много документов с макросами. Для унификации кода и сокращения его в каждом отдельном документе, мы вынесли постоянно используемые функции в отдельную библиотеку, которая устанавливается в виде расширения.


Соответственно, при любом обращении к функциям этой библиотеки из макроса документа, необходимо обеспечить:

  • физическое наличие библиотеки
  • при её наличии — подгрузить библиотеку — запустить функцию
  • при её отсутствии — выдать предупреждение — недопустить вызова функции.

'==========================================
' кнопка, вызывающая процедуру из пользовательской библиотеки
Sub Suicid_doc
    libInfra = «Infra»                   'имя библиотеки функций
    If CheckAndLoadLib(libInfra) then    'проверяем загружена ли библиотека
        'print «библиотека есть»
        Infra.TemplateLauncher.Suicide_question    'вызов функции из библиотеки
      else
        MsgBox(«Требуется установка библиотеки спецфункций «» + libInfra + "»",0+16,«Внимание! Операция прервана.»)
    End If
End Sub

Function CheckAndLoadLib(libName as String) as Boolean
    If GlobalScope.BasicLibraries.hasByName (libName) Then                  'проверяем загружена ли библиотека
        If Not GlobalScope.BasicLibraries.IsLibraryLoaded (libName) Then    'проверяем загружена ли библиотека
            GlobalScope.BasicLibraries.LoadLibrary (libName)                'подгружаем библиотеку дополнительных функций        
        End If
        CheckAndLoadLib = True
      else
        CheckAndLoadLib = False
    End If
End Function