diff --git a/description.xml b/description.xml index d15f16f..76307c1 100644 --- a/description.xml +++ b/description.xml @@ -3,7 +3,7 @@ xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink"> - + Инструменты для создания электронных изданий diff --git a/ePublishing/TOCLinks.xba b/ePublishing/TOCLinks.xba index c4cd0f0..f0ef479 100644 --- a/ePublishing/TOCLinks.xba +++ b/ePublishing/TOCLinks.xba @@ -1,9 +1,6 @@ -Sub markTOC4 -End Sub - -Sub makeOutlineLinks +Sub makeOutlineLinks Dim i As Integer For i = 1 To 10 makeLinksWithLevel(i) @@ -34,8 +31,7 @@ Sub makeLinksWithLevel(level) MsgBox (getTranslation("TOCErrorContentsNotMatchHeadings1") & " " & level & " (" & (Ubound(outline)+1) & getTranslation("TOCErrorContentsNotMatchHeadings2") & " " & level & " " & getTranslation("TOCErrorContentsNotMatchHeadings3") & (Ubound(heading)+1) & ")" EndIf ElseIf Ubound(outline) = -1 Then - - MsgBox (getTranslation("TOCErrorNoContents1") & " " & level & " " & getTranslation("TOCErrorNoContents2")) +' MsgBox (getTranslation("TOCErrorNoContents1") & " " & level & " " & getTranslation("TOCErrorNoContents2")) ElseIf Ubound(heading) = -1 Then MsgBox (getTranslation("TOCErrorNoHeadings1") & " " & level & " " & getTranslation("TOCErrorNoHeadings2")) EndIf diff --git a/ePublishing/Translations.xba b/ePublishing/Translations.xba index f31fd11..b38f0bb 100644 --- a/ePublishing/Translations.xba +++ b/ePublishing/Translations.xba @@ -115,7 +115,7 @@ Function getRussian(identifier As String) As String Case "TOCErrorNoHeadings1" getRussian = "Не могу сделать ссылки в оглавлении. Заголовоков" Exit Function - Case "TOCErrorNoContents1" + Case "TOCErrorNoHeadings2" getRussian = "уровня не найдено." Exit Function Case "TOCErrorNoContents1" @@ -137,7 +137,7 @@ Function getRussian(identifier As String) As String getRussian = "Вы уверены, что хотите запустить сборку выпуска ?" Exit Function Case "compileJournalIssueNoCurFilename" - getRussian = "Сборка выпуска начата, подождите" + getRussian = "Шаблон выпуска нужно сохранить в директории с файлами статей." Exit Function Case "compileJournalIssueStatusInProgerss" getRussian = "Сборка выпуска начата, подождите" @@ -279,7 +279,7 @@ Function getEnglish(identifier As String) As String Case "TOCErrorNoHeadings1" getEnglish = "Can't create links in table of contents. No headings with " Exit Function - Case "TOCErrorNoContents1" + Case "TOCErrorNoHeadings2" getEnglish = "level found." Exit Function Case "TOCErrorNoContents1" @@ -301,7 +301,7 @@ Function getEnglish(identifier As String) As String getEnglish = "Compile journal issue from articles?" Exit Function Case "compileJournalIssueNoCurFilename" - getEnglish = "Issue compilation in progress" + getEnglish = "Save issue template in the same directory where are the articles." Exit Function Case "compileJournalIssueStatusInProgerss" getEnglish = "Issue compilation in progress" diff --git a/ePublishing/journals.xba b/ePublishing/journals.xba index 4cb463c..fe96723 100644 --- a/ePublishing/journals.xba +++ b/ePublishing/journals.xba @@ -1,6 +1,6 @@ -Private sub journalsMark12 +Private sub journalsMark13 End sub Dim templateName As String diff --git a/translations.ods b/translations.ods index 6077a53..5ab7d2f 100644 Binary files a/translations.ods and b/translations.ods differ