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 "buttonOk" getRussian = "Применить" Exit Function Case "buttonCancel" getRussian = "Отмена" Exit Function Case "configText1" getRussian = "Введите в поле число от 0 до 10" Exit Function Case "configText2" getRussian = "0 - возврат к автоматической нумерации" Exit Function Case "configText3" getRussian = "Начать нумерацию сноско заново" Exit Function Case "configText4" getRussian = "после заголовков" Exit Function Case "configText5" getRussian = "уровня" Exit Function Case "footnotesConfigDialogTitle" getRussian = "Применение нумерации сносок" Exit Function Case "statusNumberingInProcess" getRussian = "Производится нумерация сносок" Exit Function Case "numberingInputOutOfRange" getRussian = "Введенное число вне допустимого диапазона. Введите число от 0 до 10." Exit Function Case "statusNumberingFinished" getRussian = "Нумерация сносок успешно завершена." Exit Function Case "replaceParaStyleDialogTitle" getRussian = "Заменить стиль параграфа (с удалением) на выбранный стиль" Exit Function Case "bidirectLinkSuggestion" getRussian = "Нужно выделить два объекта для связывания" Exit Function Case "convertIndesignPageBreaksConfirmation" getRussian = "Запустить восстановление разрывов страниц?" Exit Function Case "convertIndesignPageBreaksFinish" getRussian = "Восстановление разрывов страниц завершено." Exit Function Case "convertIndesignFoonotesConfirmation" getRussian = "Запустить восстановление сносок из текста?" Exit Function Case "convertIndesignFootnotesFinish" getRussian = "Восстановление сносок завершено." Exit Function Case "replaceParaStyleStylesEqualsNotification" getRussian = "Стиль параграфа и выбраный для замены стиль не различаются." Exit Function Case "replaceParaStyleCurrentStyleIsStandard" getRussian = "Текущий стиль параграфа является стандратным и не может быть заменен." Exit Function Case "unrecoverableError" getRussian = "Произошла ошибка. Пожалуйста, сообщите разработчику https://litvinovg.pro/pages/about.html" Exit Function Case "albumRotationCheckPageSettings" getRussian = "Проверьте размеры колонтитулов и снова запустите данную функцию" Exit Function Case "albumRotationPageIsAlreadyAlbum" getRussian = "Страница уже имеет портретную ориентацию. Ничего не делаем." Exit Function Case "albumRotationBackupStyleNotFound1" getRussian = "Стиль страницы с портретной ориентацией" Exit Function Case "albumRotationBackupStyleNotFound2" getRussian = "не был найден." Exit Function Case "albumRotationDynamicHeaderHeight" getRussian = "Высота верхнего колонтитула была задана динамической. Невозможно вычислить рельную высоту. Отключаем динамическую высоту. Проверьте настройки страницы." Exit Function Case "albumRotationDynamicHeaderOffset" getRussian = "Отступ верхнего колонтитула от тела страницы был задан динамическим. Отключаем. Невозможно вычислить реальный отступ. Проверьте настройки страницы." Exit Function Case "albumRotationDynamicFooterHeight" getRussian = "Высота нихнего колонтитула была задана динамической. Невозможно вычислить рельную высоту. Отключаем динамическую высоту. Проверьте настройки страницы." Exit Function Case "albumRotationDynamicFooterOffset" getRussian = "Отступ нижнего колонтитула от тела страницы был задан динамическим. Отключаем. Невозможно вычислить рельный отступ. Проверьте настройки страницы." Exit Function Case "hyphenationsFailed" getRussian = "Конвертация переносов завершилась ошибкой. Сообщите разработчику https://litvinovg.pro/pages/about.html" Exit Function Case "hyphenationsSuccess" getRussian = "Конвертация переносов успешно завершена." Exit Function Case "hyphenationsInProgress" getRussian = "Производится конвертация переносов. Подождите." Exit Function Case "hyphenationConfirmation" getRussian = "Запустить конвертацию автоматических переносов в ручные?" Exit Function Case "TOCErrorNoHeadings1" getRussian = "Не могу сделать ссылки в оглавлении. Заголовоков" Exit Function Case "TOCErrorNoHeadings2" getRussian = "уровня не найдено." Exit Function Case "TOCErrorNoContents1" getRussian = "Не могу сделать ссылки в оглавлении. Параграфов со стилем Оглавление " Exit Function Case "TOCErrorNoContents2" getRussian = "не найдено." Exit Function Case "TOCErrorContentsNotMatchHeadings1" getRussian = "Число параграфов со стилем Оглавление " Exit Function Case "TOCErrorContentsNotMatchHeadings2" getRussian = ") не кратно числу Заголовоков" Exit Function Case "TOCErrorContentsNotMatchHeadings3" getRussian = "уровня (" Exit Function Case "complileJournalIssueConfirmation" getRussian = "Вы уверены, что хотите запустить сборку выпуска ?" Exit Function Case "compileJournalIssueNoCurFilename" getRussian = "Шаблон выпуска нужно сохранить в директории с файлами статей." Exit Function Case "compileJournalIssueStatusInProgerss" getRussian = "Сборка выпуска начата, подождите" Exit Function Case "compileJournalIssueFinished" getRussian = "Сборка выпуска завершена." Exit Function Case "lastPageNumNotFound" getRussian = "Произошла ошибка при нахождении последней страницы статьи" Exit Function Case "compileJournalIssueSetUDKDummyText" getRussian = "Задать УДК" Exit Function Case "compileJournalIssueCopyrightDummyText" getRussian = "© Фамилия И.О." Exit Function Case "compileJournalIssueAuthorDummyText" getRussian = "Фамилия И.О." Exit Function Case "compileJournalIssueArticleTitleDummyText" getRussian = "Название статьи" Exit Function Case "compileJournalIssueSectionDummyText" getRussian = "Название раздела" Exit Function Case "saveVersionCommentInsertPageBreak" getRussian = "Вставка разрыва страниц" Exit Function Case "compileJournalIssueStatusUpdateLastPageNumbers" getRussian = "Производится обновление полей последних номеров страниц статей, подождите." Exit Function Case "compileJournalIssueInitialsAuthorDummyText" getRussian = "И.О. Фамилия" Exit Function Case Else getRussian = "Перевод не найден" End Select End Function Function getEnglish(identifier As String) As String Select Case identifier Case "buttonOk" getEnglish = "Apply" Exit Function Case "buttonCancel" getEnglish = "Cancel" Exit Function Case "configText1" getEnglish = "Insert 0 to 10 number in the field below" Exit Function Case "configText2" getEnglish = "0 – return to automatic numbering " Exit Function Case "configText3" getEnglish = "Restart footnote numbering" Exit Function Case "configText4" getEnglish = "after heading with" Exit Function Case "configText5" getEnglish = "level" Exit Function Case "footnotesConfigDialogTitle" getEnglish = "Apply footnotes numbering" Exit Function Case "statusNumberingInProcess" getEnglish = "Numbering in process" Exit Function Case "numberingInputOutOfRange" getEnglish = "Input is out of range. Insert number from 0 to 10." Exit Function Case "statusNumberingFinished" getEnglish = "Footnotes numbering finished successfully." Exit Function Case "replaceParaStyleDialogTitle" getEnglish = "Replace paragraph style (with removal) by choosen one" Exit Function Case "bidirectLinkSuggestion" getEnglish = "You should select two objects to link" Exit Function Case "convertIndesignPageBreaksConfirmation" getEnglish = "Start page break conversion from text?" Exit Function Case "convertIndesignPageBreaksFinish" getEnglish = "Page break conversion successfully completed." Exit Function Case "convertIndesignFoonotesConfirmation" getEnglish = "Start footnotes conversion from text?" Exit Function Case "convertIndesignFootnotesFinish" getEnglish = "Footnotes conversion successfully completed." Exit Function Case "replaceParaStyleStylesEqualsNotification" getEnglish = "Current paragraph style and choosen replacement style are equal." Exit Function Case "replaceParaStyleCurrentStyleIsStandard" getEnglish = "Current paragraph style is standard and couldn't be repaced or removed." Exit Function Case "unrecoverableError" getEnglish = "Error. Notify developer, please. https://litvinovg.pro/pages/about.html" Exit Function Case "albumRotationCheckPageSettings" getEnglish = "Check header and footer heigths and restart this function" Exit Function Case "albumRotationPageIsAlreadyAlbum" getEnglish = "Page is already album. Nothing to do." Exit Function Case "albumRotationBackupStyleNotFound1" getEnglish = "Portrait page style" Exit Function Case "albumRotationBackupStyleNotFound2" getEnglish = "wasn't found." Exit Function Case "albumRotationDynamicHeaderHeight" getEnglish = "Header height was dynamic. Can't caclulate real height. Turned off dynamic height. Check page settings to verify height is valid." Exit Function Case "albumRotationDynamicHeaderOffset" getEnglish = "Header offset was set dynamic. Can't calculate real offset. Turned off dynamic offset. Check page settgins to verify offset is valid." Exit Function Case "albumRotationDynamicFooterHeight" getEnglish = "Footer height was dynamic. Can't caclulate real height. Turned off dynamic height. Check page settings to verify height is valid." Exit Function Case "albumRotationDynamicFooterOffset" getEnglish = "Footer offset was set dynamic. Can't calculate real offset. Turned off dynamic offset. Check page settgins to verify offset is valid." Exit Function Case "hyphenationsFailed" getEnglish = "Hyphenation conversion failed. Please notify developer https://litvinovg.pro/pages/about.html" Exit Function Case "hyphenationsSuccess" getEnglish = "Hyphenation conversion successfully completed." Exit Function Case "hyphenationsInProgress" getEnglish = "Hyphenation conversion in progress. Wait a bit." Exit Function Case "hyphenationConfirmation" getEnglish = "Do you really want to convert all automatic hyphenations to manual hyphenations?" Exit Function Case "TOCErrorNoHeadings1" getEnglish = "Can't create links in table of contents. No headings with " Exit Function Case "TOCErrorNoHeadings2" getEnglish = "level found." Exit Function Case "TOCErrorNoContents1" getEnglish = "Can't create links in table of contents. No paras with style Contents " Exit Function Case "TOCErrorNoContents2" getEnglish = "found." Exit Function Case "TOCErrorContentsNotMatchHeadings1" getEnglish = "Number of paras with style Contents " Exit Function Case "TOCErrorContentsNotMatchHeadings2" getEnglish = ") dosn't match number of headings with " Exit Function Case "TOCErrorContentsNotMatchHeadings3" getEnglish = "level (" Exit Function Case "complileJournalIssueConfirmation" getEnglish = "Compile journal issue from articles?" Exit Function Case "compileJournalIssueNoCurFilename" getEnglish = "Save issue template in the same directory where are the articles." Exit Function Case "compileJournalIssueStatusInProgerss" getEnglish = "Issue compilation in progress" Exit Function Case "compileJournalIssueFinished" getEnglish = "Issue compilation finished." Exit Function Case "lastPageNumNotFound" getEnglish = "Error. Last article page not found." Exit Function Case "compileJournalIssueSetUDKDummyText" getEnglish = "Set UDK" Exit Function Case "compileJournalIssueCopyrightDummyText" getEnglish = "© Copyright" Exit Function Case "compileJournalIssueAuthorDummyText" getEnglish = "Author should be here" Exit Function Case "compileJournalIssueArticleTitleDummyText" getEnglish = "Article title should be here" Exit Function Case "compileJournalIssueSectionDummyText" getEnglish = "Section name should be here" Exit Function Case "saveVersionCommentInsertPageBreak" getEnglish = "Insert page break" Exit Function Case "compileJournalIssueStatusUpdateLastPageNumbers" getEnglish = "Last article page numbers updating" Exit Function Case "compileJournalIssueInitialsAuthorDummyText" getEnglish = "И.О. Фамилия" Exit Function Case Else getEnglish = "No translation" End Select End Function