diff --git a/ePublishing/Album.xba b/ePublishing/Album.xba index e648d8d..364a6e5 100644 --- a/ePublishing/Album.xba +++ b/ePublishing/Album.xba @@ -23,7 +23,7 @@ Sub makePageAlbum curPageStyleName = getCurPageStyleName() findBestAnchor() If checkPageSettings(curPageStyleName) Then - MsgBox "Проверьте размеры колонтитулов и перезапустите макрос" + MsgBox getTranslation("albumRotationCheckPageSettings") Exit Sub EndIf rotatePageClockwise(curPageStyleName) @@ -44,7 +44,7 @@ Sub findBestAnchor() If curPageStyleName = getCurPageStyleName() Then Exit Sub EndIf - MsgBox "Произошла ошибка. Обратитесь к разработчику." + MsgBox getTranslation("unrecoverableError") End Sub Sub undoPageAlbum @@ -61,14 +61,14 @@ sub applyPortraitPageStyle(pageStyleName As String) pageStyles = ThisComponent.StyleFamilies.getByName("PageStyles") pageStyle = pageStyles.getByName(pageStyleName) If NOT pageStyle.IsLandScape Then - MsgBox "Страница уже имеет портретную ориентацию. Ничего не делаем. Выходим." + MsgBox getTranslation("albumRotationPageIsAlreadyAlbum") Exit sub EndIf If pageStyles.hasByName("portrait_" & pageStyleName) Then replacePageStyleByPortrait(pageStyleName) removeAlbumFrames(pageStyleName) Else - MsgBox "Стиль страницы с портретной ориентацией portrait_" & pageStyleName & " не был найден. " + MsgBox getTranslation("albumRotationBackupStyleNotFound1") & " portrait_" & pageStyleName & " " & getTranslation("albumRotationBackupStyleNotFound2") EndIf End Sub @@ -161,7 +161,7 @@ Sub rotatePageClockwise(pageStyleName As String) pageStyles = ThisComponent.StyleFamilies.getByName("PageStyles") pageStyle = pageStyles.getByName(pageStyleName) If pageStyle.IsLandScape Then - MsgBox "Страница уже имеет альбомную ориентацию. Ничего не делаем. Выходим." + MsgBox getTranslation("albumRotationPageIsAlreadyAlbum") Exit sub EndIf If NOT pageStyle.IsUserDefined() Then @@ -261,24 +261,24 @@ Function checkPageSettings(pageStyleName As String) As Boolean If pageStyle.HeaderIsDynamicHeight Then checkPageSettings = true pageStyle.HeaderIsDynamicHeight = false - MsgBox "Высота верхнего колонтитула была задана динамической. Отключаем." + MsgBox getTranslation("albumRotationDynamicHeaderHeight") EndIf If pageStyle.HeaderDynamicSpacing Then checkPageSettings = true pageStyle.HeaderDynamicSpacing = false - MsgBox "Отступ верхнего колонтитула от тела страницы был задан динамическим. Отключаем." + MsgBox getTranslation("albumRotationDynamicHeaderOffset") EndIf EndIf If pageStyle.FooterIsOn Then If pageStyle.FooterIsDynamicHeight Then checkPageSettings = true pageStyle.FooterIsDynamicHeight = false - MsgBox "Высота нижнего колонтитула была задана динамической. Отключаем." + MsgBox getTranslation("albumRotationDynamicFooterHeight") EndIf If pageStyle.FooterDynamicSpacing Then checkPageSettings = true pageStyle.FooterDynamicSpacing = false - MsgBox "Отступ нижнего колонтитула от тела страницы был задан динамическим. Отключаем." + MsgBox getTranslation("albumRotationDynamicFooterOffset") EndIf EndIf 'Workaround to force Writer reread new page settings diff --git a/ePublishing/Archive.xba b/ePublishing/Archive.xba index ce87b1a..641e2c7 100644 --- a/ePublishing/Archive.xba +++ b/ePublishing/Archive.xba @@ -37,17 +37,17 @@ Sub createBidirectLink Dim oAnchor2Name As String If IsNull(ThisComponent) Then - MsgBox "Ничего не выбрано" + MsgBox getTranslation("bidirectLinkSuggestion") Exit Sub End If oSelections = ThisComponent.getCurrentSelection() If IsNull(oSelections) Then - MsgBox "Ничего не выбрано" + MsgBox getTranslation("bidirectLinkSuggestion") Exit Sub End If objectsCount = oSelections.getCount() - 1 If objectsCount < 2 OR objectsCount > 2 Then - MsgBox "Нужно выделить два объекта" + MsgBox getTranslation("bidirectLinkSuggestion") Exit Sub End If @@ -124,7 +124,7 @@ End Function sub convertIndesignPageBreaks Dim description As String - description = "Запустить восстановление разрывов страниц?" + description = getTranslation("convertIndesignPageBreaksConfirmation") If NOT confirm(description) Then Exit Sub EndIf @@ -187,7 +187,7 @@ sub convertIndesignPageBreaks End If oFound = ThisComponent.findNext(oFound.End, oSearch) Loop - MsgBox "Восстановление разрывов страниц завершено." + MsgBox getTranslation("convertIndesignPageBreaksFinish") end Sub Sub adjustLastLine(oTextCursor) @@ -302,7 +302,7 @@ End Sub Sub convertBookmarksToFootnotes() Dim description As String - description = "Запустить восстановление сносок из текста?" + description = getTranslation("convertIndesignFoonotesConfirmation") If NOT confirm(description) Then Exit Sub EndIf @@ -341,7 +341,7 @@ Sub convertBookmarksToFootnotes() Next i resetNotesStyle - MsgBox "Восстановление сносок завершено." + MsgBox getTranslation("convertIndesignFootnotesFinish") End Sub Sub convertLinkToFootnote(forwardLink,backwardLink) @@ -451,6 +451,7 @@ Sub replaceParaStyle oDialog = CreateUnoDialog( DialogLibraries.ePublishing.replaceParaStyle ) listBox = oDialog.getControl("ListBox1") listBox.addItems(sortedDPSN , 0) + oDialog.Title = getTranslation("replaceParaStyleDialogTitle") oDialog.Execute() newStyleName = oDialog.model.Tag If newStyleName="0" or newStyleName="" Then @@ -461,14 +462,14 @@ Sub replaceParaStyle newStyleName = paraStyleNames(foundIndex) If newStyleName = oldStyleName Then - MsgBox "Стили не различаются" + MsgBox getTranslation("replaceParaStyleStylesEqualsNotification") Exit sub EndIf If oldStyleName <> "" Then oldStyle = paraStyles.getByName(oldStyleName) If NOT oldStyle.isUserDefined Then - MsgBox "Невозвожно заменять встроенные стили" + MsgBox getTranslation("replaceParaStyleCurrentStyleIsStandard") Exit sub EndIf oldStyle.ParentStyle = newStyleName diff --git a/ePublishing/Footnotes.xba b/ePublishing/Footnotes.xba index 4ff9d91..d5be11c 100644 --- a/ePublishing/Footnotes.xba +++ b/ePublishing/Footnotes.xba @@ -7,7 +7,15 @@ Sub openFootNotesDialog Dim dialog As Object DialogLibraries.LoadLibrary("ePublishing") dialog = CreateUnoDialog(DialogLibraries.ePublishing.FootnotesConfig) - dialog.setVisible(true) + dialog.getControl("buttonOK").Label = getTranslation("buttonOk") + dialog.getControl("buttonCancel").Label = getTranslation("buttonCancel") + dialog.getControl("configText1").setText(getTranslation("configText1")) + dialog.getControl("configText2").setText(getTranslation("configText2")) + dialog.getControl("configText3").setText(getTranslation("configText3")) + dialog.getControl("configText4").setText(getTranslation("configText4")) + dialog.getControl("configText5").setText(getTranslation("configText5")) + dialog.Title = getTranslation("footnotesConfigDialogTitle") + dialog.setVisible(true) Select Case dialog.Execute() Case 1 setFootnotesNumberingFrom(dialog) @@ -25,10 +33,10 @@ Sub setFootnotesNumberingFrom(dialog) targetLevel = dialog.getControl("level").Value If targetLevel > -1 AND targetLevel < 11 Then - statusIndicator.Start("Нумерую сноски",100) + statusIndicator.Start(getTranslation("statusNumberingInProcess"),100) setFootnotesNumberingLevel(targetLevel) Else - MsgBox "Значение уровня заголовков вне допустимого диапазона. Введите число от 0 до 10." + MsgBox getTranslation("numberingInputOutOfRange") EndIf statusIndicator.end() @@ -50,7 +58,7 @@ Sub setFootnotesNumberingLevel(level) Dim statusIndicator as Object statusIndicator = ThisComponent.getCurrentController.statusIndicator - statusIndicator.Start("Нумерация сносок запущена, подождите",30) + statusIndicator.Start(getTranslation("statusNumberingInProcess"),30) curNum = 1 @@ -126,7 +134,7 @@ Sub setFootnotesNumberingLevel(level) EndIf Wend statusIndicator.end() - MsgBox "Нумерация сносок успешно завершена." + MsgBox getTranslation("statusNumberingFinished") End Sub Private Sub doNotTrack diff --git a/ePublishing/FootnotesConfig.xdl b/ePublishing/FootnotesConfig.xdl index 4c932d1..9dac140 100644 --- a/ePublishing/FootnotesConfig.xdl +++ b/ePublishing/FootnotesConfig.xdl @@ -1,17 +1,20 @@ + + + - - - - - - - - + + + + + + + + \ No newline at end of file diff --git a/ePublishing/Hyphenations.xba b/ePublishing/Hyphenations.xba index df17683..ff3f3a4 100644 --- a/ePublishing/Hyphenations.xba +++ b/ePublishing/Hyphenations.xba @@ -7,18 +7,18 @@ Private Sub convertHyphInDoc() Dim description As String Dim allNotes As Object dim aNote As Object - description = "Запустить конвертацию автоматических переносов в ручные?" + description = getTranslation("hyphenationConfirmation") If NOT confirm(description) Then Exit Sub EndIf Dim statusIndicator as Object statusIndicator = ThisComponent.getCurrentController.StatusIndicator - statusIndicator.Start("Произвожу конвертацию, подождите",10) + statusIndicator.Start(getTranslation("hyphenationsInProgress"),10) turnOffTracking AcceptAllTrackedChanges convertHyphInText(ThisComponent.Text) ' Globalscope.BasicLibraries.LoadLibrary( "MRILib" ) - statusIndicator.Start("Произвожу конвертацию, подождите",70) + statusIndicator.Start(getTranslation("hyphenationsInProgress"),70) allNotes = ThisComponent.FootNotes For x = 0 to allNotes.Count -1 aNote = allNotes.getByIndex(x) @@ -26,7 +26,7 @@ Private Sub convertHyphInDoc() Next 'disableAutoHyph() statusIndicator.end() - MsgBox "Конвертация переносов успешно завершена." + MsgBox getTranslation("hyphenationsSuccess") End Sub @@ -153,7 +153,7 @@ Private Sub verifyHyphenation(lineEnds() As Object) For i = (Lbound(lineEnds)) To (Ubound(lineEnds)) vCurs.goToRange(lineEnds(i),false) If NOT (vCurs.isAtEndOfLine() OR vCurs.isAtStartOfLine()) Then - MsgBox "Конвертация прервана. Обратитесь к разработчику." + MsgBox getTranslation("hyphenationsFailed") Stop EndIf Next i @@ -200,7 +200,7 @@ Private Sub replaceHyphen(tCurs As Object,lineNumber As Integer) EndIf EndIf If vCurs.isAtEndOfLine() = false AND vCurs.isAtStartOfLine() = false Then - MsgBox "Конвертация переносов не выполнена. Алгоритм нуждается в доработке. Обратитесь к разработчику." + MsgBox getTranslation("hyphenationsFailed") Stop EndIf End Sub diff --git a/ePublishing/TOCLinks.xba b/ePublishing/TOCLinks.xba index d04d723..c4cd0f0 100644 --- a/ePublishing/TOCLinks.xba +++ b/ePublishing/TOCLinks.xba @@ -24,20 +24,20 @@ Sub makeLinksWithLevel(level) If Ubound(heading) <> -1 AND Ubound(outline) <> -1 Then If (Ubound(outline) + 1) MOD (Ubound(heading) + 1 ) = 0 Then For i = 0 To (Ubound(outline)) - oAnchor2Name = "Оглавление " + level + "." + (i Mod (Ubound(heading) + 1)) + oAnchor2Name = "Outline " + level + "." + (i Mod (Ubound(heading) + 1)) If i <= Ubound(heading) Then createAnchor(heading(i Mod (Ubound(heading) + 1)),oAnchor2Name) EndIf createLink(outline(i),"",oAnchor2Name) Next i Else - MsgBox ("Число Оглавлений "+ level +" уровня ("+(Ubound(outline)+1) +") не кратно числу Заголовоков " + level + " уровня (" + (Ubound(heading)+1) + ")" + MsgBox (getTranslation("TOCErrorContentsNotMatchHeadings1") & " " & level & " (" & (Ubound(outline)+1) & getTranslation("TOCErrorContentsNotMatchHeadings2") & " " & level & " " & getTranslation("TOCErrorContentsNotMatchHeadings3") & (Ubound(heading)+1) & ")" EndIf ElseIf Ubound(outline) = -1 Then - 'MsgBox ("Не могу сделать ссылки в оглавлении. Оглавлений "+ level + " уровня не найдено.") + MsgBox (getTranslation("TOCErrorNoContents1") & " " & level & " " & getTranslation("TOCErrorNoContents2")) ElseIf Ubound(heading) = -1 Then - MsgBox ("Не могу сделать ссылки в оглавлении. Заголовоков "+ level + " уровня не найдено.") + MsgBox (getTranslation("TOCErrorNoHeadings1") & " " & level & " " & getTranslation("TOCErrorNoHeadings2")) EndIf End Sub @@ -127,7 +127,6 @@ Function getOutlineWithLevel(curNum) Wend Next i Else - Mri enum1Element EndIf Wend getOutlineWithLevel = par() diff --git a/ePublishing/Translations.xba b/ePublishing/Translations.xba new file mode 100644 index 0000000..828bfe4 --- /dev/null +++ b/ePublishing/Translations.xba @@ -0,0 +1,105 @@ + + +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 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 Else + getEnglish = "No translation" + End Select +End Function + + + \ No newline at end of file diff --git a/ePublishing/journals.xba b/ePublishing/journals.xba index 5fb61a7..a04e0ed 100644 --- a/ePublishing/journals.xba +++ b/ePublishing/journals.xba @@ -1,6 +1,6 @@ -Private sub journalsMark7 +Private sub journalsMark10 End sub Dim templateName As String @@ -25,7 +25,7 @@ Private Sub makeUpIssue Dim tmp As String Dim nSections As Long - description = "Вы уверены, что хотите запустить сборку выпуска ?" + description = getTranslation("complileJournalIssueConfirmation") If NOT confirm(description) Then Exit Sub EndIf @@ -42,7 +42,7 @@ Private Sub makeUpIssue 'Exit if no sections in document or document not saved If oFilename = "" Then - MsgBox "Сначала сохраните выпуск в папке с файлами статьей" + MsgBox getTranslation("compileJournalIssueNoCurFilename") Exit Sub End If @@ -63,7 +63,7 @@ Private Sub makeUpIssue firstPage = page oViewCursor.jumpToPage(page) oTextCursor = oViewCursor.Text.createTextCursorByRange(oViewCursor) - statusIndicator.Start("Сборка выпуска начата, подождите",30) + statusIndicator.Start(getTranslation("compileJournalIssueStatusInProgerss"),30) For i = 1 To 25 'Find section file FilePath = findArticleFile(path,i) @@ -138,7 +138,7 @@ Private Sub makeUpIssue 'ThisComponent.FootnoteSettings.FootnoteCounting=1 'setHeadingsOutlineLevels statusIndicator.end() - MsgBox "Сборка выпуска завершена." + MsgBox getTranslation("compileJournalIssueFinished") End Sub Private Sub setPageNumbers() @@ -197,7 +197,7 @@ Private Function lastPageNum(i As Integer) Exit Do End If If curPageNum = 0 Then - MsgBox "Произошла ошибка при нахождении последней страницы статьи" + MsgBox getTranslation("lastPageNumNotFound") Exit Do End If @@ -222,7 +222,7 @@ Private Function getUDK() getFirstTextInStyle("УДК") foundUDK = oViewCursor.Text.createTextCursorByRange(oViewCursor).getString() If foundUDK = "" Then - getUDK = "Задать УДК" + getUDK = getTranslation("compileJournalIssueSetUDKDummyText") Else getUDK = foundUDK backspace @@ -262,7 +262,7 @@ Private Function getCopyright() oViewCursor.goToRange(oSavePosition, false) Exit Function Else - getCopyright = "© " + "Фамилия И.О." + getCopyright = getTranslation("compileJournalIssueCopyrightDummyText") EndIf End If oViewCursor.goToRange(oSavePosition, false) @@ -279,7 +279,7 @@ Private Function getAuthor() If authors <> "" Then getAuthor = authors Else - getAuthor = "Фамилия И.О." + getAuthor = getTranslation("compileJournalIssueAuthorDummyText") End If oViewCursor.goToRange(oSavePosition, false) End Function @@ -295,7 +295,7 @@ Private Function getArticleHeader() If articleHeader <> "" Then getArticleHeader = articleHeader Else - getArticleHeader = "Название статьи" + getArticleHeader = getTranslation("compileJournalIssueArticleTitleDummyText") End If oViewCursor.goToRange(oSavePosition, false) End Function @@ -306,7 +306,7 @@ Private Function getSectionX(section As String) Dim startPage As String Dim endPage As String If section = "" Then - section = "Задайте название радела!" + section = getTranslation("compileJournalIssueSectionDummyText") End If oViewCursor = ThisComponent.CurrentController.getViewCursor() startPage = oViewcursor.getPage() @@ -448,7 +448,7 @@ Private Sub setDefaultFirstPageMetadata(curStyle As Object,i As Integer) insertUserField(oViewCursor,"article" + i + "LastPage","00" ) 'Footer without table oViewCursor.goToRange(curStyle.FooterText.End, false) - insertUserField(oViewCursor,"author" + i + "Copyright","© Фамилия И.О. " + i ) + insertUserField(oViewCursor,"author" + i + "Copyright",getTranslation("compileJournalIssueCopyrightDummyText") & i ) End Sub @@ -479,7 +479,7 @@ Private Sub setPHAFirstPageMetadata(curStyle As Object,i As Integer) insertUserField(oViewCursor,"article" + i + "LastPage","00" ) oViewCursor.goToRange(curStyle.FooterText.End, false) - insertUserField(oViewCursor,"author" + i + "Copyright","© Фамилия И.О. " + i ) + insertUserField(oViewCursor,"author" & i & "Copyright",getTranslation("compileJournalIssueCopyrightDummyText") & i ) End Sub @@ -499,10 +499,10 @@ Private Sub setEIFNFirstPageMetadata(curStyle,i) oViewCursor.gotoEndOfLine(false) oViewCursor.goright(1,false) oViewCursor.gotoEndOfLine(false) - insertUserField(oViewCursor,"article" + i + "LastPage","00" ) + insertUserField(oViewCursor,"article" & i & "LastPage","00" ) oViewCursor.goright(1,false) 'Добавить УДК - insertUserField(oViewCursor,"article" + i + "UDK","УДК "+ i + "." + i) + insertUserField(oViewCursor,"article" & i & "UDK","УДК "+ i + "." + i) 'rightHeaderCell rightHeaderCell = oHeaderTable.getCellByPosition(1,0).getStart() @@ -511,22 +511,22 @@ Private Sub setEIFNFirstPageMetadata(curStyle,i) oViewCursor.gotoEndOfLine(false) oViewCursor.goright(1,false) oViewCursor.gotoEndOfLine(false) - insertUserField(oViewCursor,"article" + i + "LastPage","00" ) + insertUserField(oViewCursor,"article" & i & "LastPage","00" ) ' go to page number 2nd place oViewCursor.goright(1,false) oViewCursor.gotoEndOfLine(false) - insertUserField(oViewCursor,"article" + i + "Num","" + i ) + insertUserField(oViewCursor,"article" & i * "Num","" & i ) oFooterTableLeft = curStyle.FooterTextLeft.CreateEnumeration().nextElement rightHeaderCell = oFooterTableLeft.getCellByPosition(1,0).getStart() oViewCursor.goToRange(rightHeaderCell, false) - insertUserField(oViewCursor,"author" + i + "Copyright","© Фамилия И.О. " + i ) + insertUserField(oViewCursor,"author" & i & "Copyright",getTranslation("compileJournalIssueCopyrightDummyText") & i ) 'TODO!!!!SECOND PAGE oFooterTableRight = curStyle.FooterTextRight.CreateEnumeration().nextElement leftHeaderCell = oFooterTableRight.getCellByPosition(0,0).getStart() oViewCursor.goToRange(leftHeaderCell, false) - insertUserField(oViewCursor,"author" + i + "Copyright","© Фамилия И.О. " + i ) + insertUserField(oViewCursor,"author" & i & "Copyright",getTranslation("compileJournalIssueCopyrightDummyText") & i ) End Sub @@ -545,7 +545,7 @@ Private Sub setAritclePageHeaders(i) oViewCursor = ThisComponent.CurrentController.getViewCursor() oSavePosition = oViewCursor.Text.createTextCursorByRange(oViewCursor) pageStyles = ThisComponent.StyleFamilies.getByName("PageStyles") - page = findFirstPageNumberWithStyle("Статья " + i + " стр.1") + page = findFirstPageNumberWithStyle("Статья " & i & " стр.1") oViewCursor.jumpToPage(page) articleStartPosition = oViewCursor.Text.createTextCursorByRange(oViewCursor) @@ -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 ,"Фамилия И.О. Название статьи" & i ) ElseIf templateName = PHA Then - insertUserField(oViewCursor,"rightHeader" + i ,"Фамилия И.О. Название статьи" + i ) + insertUserField(oViewCursor,"rightHeader" & i ,"Фамилия И.О. Название статьи" & i ) ElseIf templateName = EIFN Then - insertUserField(oViewCursor,"rightHeader" + i ,"Название статьи " + i ) + insertUserField(oViewCursor,"rightHeader" & i ,"Название статьи " + 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 ,"Название раздела" & i ) ElseIf templateName = PHA Then leftHeaderCell = leftHeaderTable.getCellByPosition(1,0).getStart() oViewCursor.goToRange(leftHeaderCell, false) - insertUserField(oViewCursor,"leftHeader" + i ,"Название раздела" + i ) + insertUserField(oViewCursor,"leftHeader" & i ,"Название раздела" & i ) ElseIf templateName = EIFN Then leftHeaderCell = leftHeaderTable.getCellByPosition(2,0).getStart() oViewCursor.goToRange(leftHeaderCell, false) - insertUserField(oViewCursor,"leftHeader" + i ,"И.О. Фамилия" + i ) + insertUserField(oViewCursor,"leftHeader" & i ,"И.О. Фамилия" & i ) leftHeaderCell = leftHeaderTable.getCellByPosition(0,0).getStart() oViewCursor.goToRange(leftHeaderCell, false) insertLinkedImage(CStr(i),"headerImageLeft") diff --git a/ePublishing/replaceParaStyle.xdl b/ePublishing/replaceParaStyle.xdl index 8eedc50..d90e19a 100644 --- a/ePublishing/replaceParaStyle.xdl +++ b/ePublishing/replaceParaStyle.xdl @@ -1,8 +1,8 @@ - + - + diff --git a/ePublishing/script.xlb b/ePublishing/script.xlb index 4efdd33..ea7d1b6 100644 --- a/ePublishing/script.xlb +++ b/ePublishing/script.xlb @@ -10,4 +10,5 @@ + \ No newline at end of file diff --git a/translations.ods b/translations.ods new file mode 100644 index 0000000..6f49551 Binary files /dev/null and b/translations.ods differ