Function getTranslation(identifier As String) As String Globalscope.BasicLibraries.LoadLibrary( "Tools" ) Dim lang As String lang = GetStarOfficeLocale().Language Select Case lang Case "ru" getTranslation = getRussian(identifier) Exit Function Case Else getTranslation = getEnglish(identifier) Exit Function End Select End Function Function getRussian(identifier As String) As String Select Case identifier Case "noFileWithStylesFound" getRussian = "Файл-шаблон, содержащий стили для загрузки в документ не был задан. " & chr(10) &"Вы можете выбрать новый файл-шаблон. " & chr(10) & "Если файл-шаблон не будет выбран, то данный этап чистки будет пропущен." Exit Function Case "startQuietCleaningDescription" getRussian = "Вы хотите запустить чистку документа? " & chr(10) & "Здесь Вы можете также указать новый файл-шаблон." & chr(10) & "Стили из шаблона будут загружены в документ." Exit Function Case "buttonYes" getRussian = "Да" Exit Function Case "quietStartCleaningTitle" getRussian = "Подтверждение запуска чистки" Exit Function Case "noStylesFileDialogTitle" getRussian = "Файл со стилями не найден" Exit Function Case "buttonTemplateNotFoundSkip" getRussian = "Продолжить" Exit Function Case "buttonStop" getRussian = "Нет" Exit Function Case "buttonLoad" getRussian = "Указать шаблон" Exit Function Case "buttonNameToSelectFileWithStyles" getRussian = "Указать файл" Exit Function Case "cleaningFinished" getRussian = "Чистка завершена" Exit Function Case "advancedMenuDialogTitle" getRussian = "Чистка в экспертном режиме " Exit Function Case "buttonCancel" getRussian = "Отмена" Exit Function Case "buttonOK" getRussian = "Запуск" Exit Function Case "advancedMenuRemoveBasic" getRussian = "Удалить макросы из файла" Exit Function Case "advancedMenuRemoveManualPageBreaks" getRussian = "Удалить ручные разрывы страниц" Exit Function Case "advancedMenuLoadStandardStyles" getRussian = "Загрузить стили из шаблона" Exit Function Case "advancedMenuRemovePageStyles" getRussian = "Удалить пользовательские стили страниц" Exit Function Case "advancedMenuRemoveInitPageBreak" getRussian = "Удалить разрыв страницы в начале документа" Exit Function Case "advancedMenuFixMistakes" getRussian = "Исправить часто встречающиеся ошибки" Exit Function Case "advancedMenuConfigAnchors" getRussian = "Настроить привязки изображений для электронных публикаций" Exit Function Case "advancedMenuConfigTables" getRussian = "Настроить таблицы для электронных публикаций" Exit Function Case "advancedMenuRemoveBookmarks" getRussian = "Удалить закладки" Exit Function Case "advancedMenuRemoveLinks" getRussian = "Удалить ссылки" Exit Function Case "advancedMenuRemoveUnusedStyles" getRussian = "Удалить неиспользуемые стили" Exit Function Case "advancedMenuReplaceWhiteBackground" getRussian = "Заменить белый фон символов на прозрачный" Exit Function Case "advancedMenuCleanFormatting" getRussian = "Очистить форматирование" Exit Function Case "advancedMenuSymbolsConversion" getRussian = "Произвести конвертацию символов" Exit Function Case "advancedMenuReplaceFontsInStyles" getRussian = "Заменить шрифты стилях" Exit Function Case Else getRussian = "Перевод не найден" End Select End Function Function getEnglish(identifier As String) As String Select Case identifier Case "noFileWithStylesFound" getEnglish = "Template with styles wasn't found. You can choose template on your computer." & chr(10) &" This stage of cleaning will be skipped if no file chosen." Exit Function Case "startQuietCleaningDescription" getEnglish = "Do you want to start document cleaning?" & chr(10) & "You can choose template with styles." & chr(10) & "Styles will be loaded in process of cleaning." Exit Function Case "buttonYes" getEnglish = "Ok" Exit Function Case "quietStartCleaningTitle" getEnglish = "Confirmation" Exit Function Case "noStylesFileDialogTitle" getEnglish = "Template file not found" Exit Function Case "buttonTemplateNotFoundSkip" getEnglish = "Proceed" Exit Function Case "buttonStop" getEnglish = "Cancel" Exit Function Case "buttonLoad" getEnglish = "Set template" Exit Function Case "buttonNameToSelectFileWithStyles" getEnglish = "Select file" Exit Function Case "cleaningFinished" getEnglish = "Cleaning is completed" Exit Function Case "advancedMenuDialogTitle" getEnglish = "Advanced cleaning" Exit Function Case "buttonCancel" getEnglish = "Cancel" Exit Function Case "buttonOK" getEnglish = "Start" Exit Function Case "advancedMenuRemoveBasic" getEnglish = "Remove macro from file" Exit Function Case "advancedMenuRemoveManualPageBreaks" getEnglish = "Remove manual page breaks" Exit Function Case "advancedMenuLoadStandardStyles" getEnglish = "Load styles from template" Exit Function Case "advancedMenuRemovePageStyles" getEnglish = "Remove custom page styles" Exit Function Case "advancedMenuRemoveInitPageBreak" getEnglish = "Remove page break at document start" Exit Function Case "advancedMenuFixMistakes" getEnglish = "Remove frequent mistakes" Exit Function Case "advancedMenuConfigAnchors" getEnglish = "Configure image anchors for digital publications" Exit Function Case "advancedMenuConfigTables" getEnglish = "Configure tables for digital publications" Exit Function Case "advancedMenuRemoveBookmarks" getEnglish = "Remove bookmarks" Exit Function Case "advancedMenuRemoveLinks" getEnglish = "Remove links" Exit Function Case "advancedMenuRemoveUnusedStyles" getEnglish = "Remove unused styles" Exit Function Case "advancedMenuReplaceWhiteBackground" getEnglish = "Replace white symbol back with transparent" Exit Function Case "advancedMenuCleanFormatting" getEnglish = "Clean manual formatting" Exit Function Case "advancedMenuSymbolsConversion" getEnglish = "Convert symbols" Exit Function Case "advancedMenuReplaceFontsInStyles" getEnglish = "Replace fonts in styles" Exit Function Case Else getEnglish = "No translation" End Select End Function