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 "statusStarted" getRussian = "Чистка документа начата, подождите" Exit Function Case "statusReplaceFontsInStyles" getRussian = "Заменяем шрифты в стилях" Exit Function Case "statusConvertSymbolsInTargetFonts" getRussian = "Конвертируем символы в целевые шрифты" Exit Function Case "statusCleaningManualFormatting" getRussian = "Чистим ручное форматирование" Exit Function Case "statusLoadingStylesFromTemplate" getRussian = "Загружаем стили из шаблона" Exit Function Case "statusRemoveCustomPageStyles" getRussian = "Удаляем пользовательские стили страниц" Exit Function Case "statusRemovePageBreakAtStart" getRussian = "Удаляем разрыв страницы, если он задан в начале документа" Exit Function Case "statusFixFrequentMistakes" getRussian = "Исправляем часто встречающиеся ошибки" Exit Function Case "statusConfigureImagesAnchors" getRussian = "Настраиваем привязки изображений" Exit Function Case "statusConfigureTables" getRussian = "Настраиваем таблицы" Exit Function Case "statusRemoveLinks" getRussian = "Удаляем гиперссылки" Exit Function Case "statusRemoveBookmarks" getRussian = "Удаляем закладки" Exit Function Case "statusReplaceWhiteBackground" getRussian = "Замеяем белый фон символов на прозрачный" Exit Function Case "statusRemovedUnusedStyles" getRussian = "Удаляем неиспользуемые стили" Exit Function Case "validationSuccess" getRussian = "Документ успешно прошел проверку. " & chr(10) & "Проблем не было найдено" Exit Function Case "validationWarning" getRussian = "Перед публикацией документа следует исправить все найденные замечания." Exit Function Case "validationBadSymbolsNotification" getRussian = "В тексте обнаружены неподходящие для публикции символы." & chr(10) & " Далее будет представлен список отрывков текста с подобными символами." Exit Function Case "validationBadDrawings" getRussian = "В документе найдены рисунки (" Exit Function Case "validationBadEmbeededObjects" getRussian = "В документе найдены встроенные объекты (" Exit Function Case "validationExcerptNotSuitable" getRussian = "), неподходящие для публикации. " Exit Function Case "validateFootnotes1" getRussian = "Символ" Exit Function Case "validateFootnotes2" getRussian = "в сноске (абсолютный номер)" Exit Function Case "validateFootnotes3" getRussian = "не подходит для публикации" Exit Function Case "validateNumberingsReportFonts" getRussian = "В следующих списках нумерации найдены шрифты" Exit Function Case "validateNumberingsReportSymbols" getRussian = "В качестве маркера в следующих списках нумерации задан некорректный символ" Exit Function Case "validateNumberingLevel" getRussian = "Уровень" Exit Function Case "validateNumberingFont" getRussian = "шрифт" Exit Function Case "validateNumberingSymbol" getRussian = "символ" Exit Function Case "dialogConfigComplexity" getRussian = "Включить режим эксперта" Exit Function Case "dialogConfigTitle" 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 to target (free) fonts" Exit Function Case "advancedMenuReplaceFontsInStyles" getEnglish = "Replace fonts in styles" Exit Function Case "statusStarted" getEnglish = "Cleaning started" Exit Function Case "statusReplaceFontsInStyles" getEnglish = "Replacing fonts in styles" Exit Function Case "statusConvertSymbolsInTargetFonts" getEnglish = "Converting symbols to target (free) fonts" Exit Function Case "statusCleaningManualFormatting" getEnglish = "Cleaning manual formatting" Exit Function Case "statusLoadingStylesFromTemplate" getEnglish = "Loading styles from template" Exit Function Case "statusRemoveCustomPageStyles" getEnglish = "Removing custom pages styles" Exit Function Case "statusRemovePageBreakAtStart" getEnglish = "Removing page break at start of document" Exit Function Case "statusFixFrequentMistakes" getEnglish = "Fixing frequent mistakes" Exit Function Case "statusConfigureImagesAnchors" getEnglish = "Configuring image anchors" Exit Function Case "statusConfigureTables" getEnglish = "Configuring tables" Exit Function Case "statusRemoveLinks" getEnglish = "Removing links" Exit Function Case "statusRemoveBookmarks" getEnglish = "Removing bookmarks" Exit Function Case "statusReplaceWhiteBackground" getEnglish = "Replacing white symbol back with transparent" Exit Function Case "statusRemovedUnusedStyles" getEnglish = "Removing unused styles" Exit Function Case "validationSuccess" getEnglish = "Validation completed successfully" & chr(10) & "No problems found." Exit Function Case "validationWarning" getEnglish = "It is recommended to fix all problems before publication." Exit Function Case "validationBadSymbolsNotification" getEnglish = "Unsuitable symbols were found" & chr(10) & " Now you will get the list with bad symbols." Exit Function Case "validationBadDrawings" getEnglish = "Drawings was found (" Exit Function Case "validationBadEmbeededObjects" getEnglish = "Embeeded objects were found (" Exit Function Case "validationExcerptNotSuitable" getEnglish = "), which are not suitable for digital publication" Exit Function Case "validateFootnotes1" getEnglish = "Symbol" Exit Function Case "validateFootnotes2" getEnglish = "in footnote (absolute number)" Exit Function Case "validateFootnotes3" getEnglish = "is not suitable for publication" Exit Function Case "validateNumberingsReportFonts" getEnglish = "In next numbering lists found fonts " Exit Function Case "validateNumberingsReportSymbols" getEnglish = "Incorrect symbol used as a marker in following numbering lists" Exit Function Case "validateNumberingLevel" getEnglish = "Level" Exit Function Case "validateNumberingFont" getEnglish = "font" Exit Function Case "validateNumberingSymbol" getEnglish = "symbol" Exit Function Case "dialogConfigComplexity" getEnglish = "Enable advanced mode" Exit Function Case "dialogConfigTitle" getEnglish = "Clean and validation configuration" Exit Function Case Else getEnglish = "No translation" End Select End Function