diff --git a/ePublishing/Translations.xba b/ePublishing/Translations.xba index 828bfe4..f31fd11 100644 --- a/ePublishing/Translations.xba +++ b/ePublishing/Translations.xba @@ -50,8 +50,128 @@ Function getRussian(identifier As String) As String getRussian = "Нумерация сносок успешно завершена." Exit Function Case "replaceParaStyleDialogTitle" - getRussian = "Заменить стиль параграфа (с удалением) на выбранный стиль" - Exit Function + 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 "TOCErrorNoContents1" + 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 @@ -94,8 +214,128 @@ Function getEnglish(identifier As String) As String getEnglish = "Footnotes numbering finished successfully." Exit Function Case "replaceParaStyleDialogTitle" - getEnglish = "Replace paragraph style (with removal) by choosen one" - Exit Function + 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 "TOCErrorNoContents1" + 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 = "Issue compilation in progress" + 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 diff --git a/ePublishing/journals.xba b/ePublishing/journals.xba index a04e0ed..4cb463c 100644 --- a/ePublishing/journals.xba +++ b/ePublishing/journals.xba @@ -1,6 +1,6 @@ -Private sub journalsMark10 +Private sub journalsMark12 End sub Dim templateName As String @@ -573,11 +573,11 @@ Private Sub setAritclePageHeaders(i) rightHeaderCell = rightHeaderTable.getCellByPosition(0,0).getStart() oViewCursor.goToRange(rightHeaderCell, false) If templateName = "" Then - insertUserField(oViewCursor,"rightHeader" & i ,"Фамилия И.О. Название статьи" & i ) + insertUserField(oViewCursor,"rightHeader" & i ,getTranslation("compileJournalIssueAuthorDummyText") & " " & getTranslation("compileJournalIssueArticleTitleDummyText") & i ) ElseIf templateName = PHA Then - insertUserField(oViewCursor,"rightHeader" & i ,"Фамилия И.О. Название статьи" & i ) + insertUserField(oViewCursor,"rightHeader" & i ,getTranslation("compileJournalIssueAuthorDummyText") & " " & getTranslation("compileJournalIssueArticleTitleDummyText") & i ) ElseIf templateName = EIFN Then - insertUserField(oViewCursor,"rightHeader" & i ,"Название статьи " + i ) + insertUserField(oViewCursor,"rightHeader" & i ,getTranslation("compileJournalIssueArticleTitleDummyText") & " " + i ) rightHeaderCell = rightHeaderTable.getCellByPosition(2,0).getStart() oViewCursor.goToRange(rightHeaderCell, false) insertLinkedImage(CStr(i),"headerImageRight") @@ -588,15 +588,15 @@ Private Sub setAritclePageHeaders(i) If templateName = "" Then leftHeaderCell = leftHeaderTable.getCellByPosition(1,0).getStart() oViewCursor.goToRange(leftHeaderCell, false) - insertUserField(oViewCursor,"leftHeader" & i ,"Название раздела" & i ) + insertUserField(oViewCursor,"leftHeader" & i ,getTranslation("compileJournalIssueSectionDummyText") & i ) ElseIf templateName = PHA Then leftHeaderCell = leftHeaderTable.getCellByPosition(1,0).getStart() oViewCursor.goToRange(leftHeaderCell, false) - insertUserField(oViewCursor,"leftHeader" & i ,"Название раздела" & i ) + insertUserField(oViewCursor,"leftHeader" & i ,getTranslation("compileJournalIssueSectionDummyText") & i ) ElseIf templateName = EIFN Then leftHeaderCell = leftHeaderTable.getCellByPosition(2,0).getStart() oViewCursor.goToRange(leftHeaderCell, false) - insertUserField(oViewCursor,"leftHeader" & i ,"И.О. Фамилия" & i ) + insertUserField(oViewCursor,"leftHeader" & i ,getTranslation("compileJournalIssueInitialsAuthorDummyText") & i ) leftHeaderCell = leftHeaderTable.getCellByPosition(0,0).getStart() oViewCursor.goToRange(leftHeaderCell, false) insertLinkedImage(CStr(i),"headerImageLeft") @@ -652,8 +652,8 @@ Private Sub setArticleUniqPageStyles(i) curPageStyle.FollowStyle = pageName previousPageStyle = curPageStyle ElseIf oViewCursor.getPage() <> curPageNum Then - 'Прили в конец. - MsgBox "Статья закончилась!" + 'Пришли в конец. + 'MsgBox "Статья закончилась!" Exit Sub Else Exit Sub @@ -1029,7 +1029,7 @@ Private Sub updateLastPageFields articleNamePostfix = " " Dim statusIndicator as Object statusIndicator = ThisComponent.getCurrentController.statusIndicator - statusIndicator.Start("Производится обновление полей последних номеров страниц, подождите",30) + statusIndicator.Start(getTranslation("compileJournalIssueStatusUpdateLastPageNumbers"),30) enum1 = ThisComponent.Text.createEnumeration While enum1.hasMoreElements enum1Element = enum1.nextElement @@ -1571,7 +1571,7 @@ sub saveCurrentVersion rem ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "VersionComment" - args1(0).Value = "Вставка разрыва страниц" + args1(0).Value = getTranslation("saveVersionCommentInsertPageBreak") dispatcher.executeDispatch(document, ".uno:Save", "", 0, args1()) diff --git a/translations.ods b/translations.ods index 6f49551..6077a53 100644 Binary files a/translations.ods and b/translations.ods differ