diff --git a/Redaction/Translations.xba b/Redaction/Translations.xba index 073047f..659f870 100644 --- a/Redaction/Translations.xba +++ b/Redaction/Translations.xba @@ -205,6 +205,9 @@ Function getRussian(identifier As String) As String Exit Function Case "documentIsReadOnly" getRussian = "Документ открыт только для чтения. Запуск чистки в данном режиме невозможен." + Exit Function + Case "validateEndnotes1" + getRussian = "в концевой сноске (абсолютный номер)" Exit Function Case Else getRussian = "Перевод не найден" @@ -393,6 +396,9 @@ Function getEnglish(identifier As String) As String Exit Function Case "documentIsReadOnly" getEnglish = "The document is read-only. Cleaning cannot be started in this mode." + Exit Function + Case "validateEndnotes1" + getEnglish = "in endnote (absolute number)" Exit Function Case Else getEnglish = "No translation" @@ -581,7 +587,10 @@ Function getCroatian(identifier As String) As String Case "documentIsReadOnly" getCroatian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada." Exit Function - Case Else + Case "validateEndnotes1" + getCroatian = "u end fusnoti (apsolutni broj)" + Exit Function + Case Else getCroatian = "No translation" End Select End Function @@ -768,6 +777,9 @@ Function getSerbian(identifier As String) As String Case "documentIsReadOnly" getSerbian = "Документ је само за читање. Чишћење се не може покренути у овом режиму." Exit Function + Case "validateEndnotes1" + getSerbian = "у end фусноти (апсолутни број)" + Exit Function Case Else getSerbian = "No translation" End Select @@ -955,6 +967,9 @@ Function getBosnian(identifier As String) As String Case "documentIsReadOnly" getBosnian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada." Exit Function + Case "validateEndnotes1" + getBosnian = "u end fusnoti (apsolutni broj)" + Exit Function Case Else getBosnian = "No translation" End Select diff --git a/Redaction/Validation.xba b/Redaction/Validation.xba index 5cfb348..f1ce458 100644 --- a/Redaction/Validation.xba +++ b/Redaction/Validation.xba @@ -1,6 +1,6 @@ -Sub markval3 +Sub markval4 End Sub @@ -158,7 +158,7 @@ Private Function noteSingsCheck() As String For j = 1 to charNum char = Asc(Right(Left(label,j),1)) If char >= 57344 AND char <= 63743 then - result = result & getTranslation("validateFootnotes1") & " " & Chr(char) & " " & getTranslation("validateFootnotes2") & " " & i & " " & getTranslation("validateFootnotes3") & chr(10) + result = result & getTranslation("validateFootnotes1") & " " & Chr(char) & " " & getTranslation("validateEndnotes1") & " " & i & " " & getTranslation("validateFootnotes3") & chr(10) End If Next j Next i