diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba index eade9a5..919e218 100644 --- a/Redaction/Clean.xba +++ b/Redaction/Clean.xba @@ -1,6 +1,6 @@ -Sub mark79 +Sub mark80 End Sub @@ -44,6 +44,7 @@ Private Sub makerUpMenu dialog.getControl("removeManualPageBreaks").Label = getTranslation("advancedMenuRemoveManualPageBreaks") dialog.getControl("removeBasic").Label = getTranslation("advancedMenuRemoveBasic") dialog.getControl("resetChapterNumberingRules").Label = getTranslation("advancedMenuResetChapterNumberingRules") + dialog.getControl("convertFontsToCharStyles").Label = getTranslation("advancedMenuconvertFontsToCharStyles") dialog.getControl("Cancel").Label = getTranslation("buttonCancel") dialog.getControl("OK").Label = getTranslation("buttonOK") dialog.getControl("buttonLoad").Label = getTranslation("buttonLoad") @@ -148,6 +149,9 @@ Private Sub cleanAccordingTo(dialog As Object) If dialog.getControl("resetChapterNumberingRules").state = 1 Then resetChapterNumberingRules EndIf + If dialog.getControl("convertFontsToCharStyles").state = 1 Then + convertFontsToCharStyles() + EndIf statusIndicator.end() saveAndreload() diff --git a/Redaction/CleaningDialog.xdl b/Redaction/CleaningDialog.xdl index eaa3ceb..bdc60f0 100644 --- a/Redaction/CleaningDialog.xdl +++ b/Redaction/CleaningDialog.xdl @@ -1,10 +1,10 @@ - + - + - + @@ -20,12 +20,13 @@ - + + \ No newline at end of file diff --git a/Redaction/Translations.xba b/Redaction/Translations.xba index fc91c99..466ccc1 100644 --- a/Redaction/Translations.xba +++ b/Redaction/Translations.xba @@ -284,6 +284,9 @@ Function getRussian(identifier As String) As String Case "replaceNumHyphenStatus" getRussian = "Заменяются тире между цифрами на цифровые" Exit Function + Case "advancedMenuconvertFontsToCharStyles" + getRussian = "Создать стили символов из найденных шрифтов" + Exit Function Case Else getRussian = "Перевод не найден" End Select @@ -550,6 +553,9 @@ Function getEnglish(identifier As String) As String Case "replaceNumHyphenStatus" getEnglish = "Replacing dashes between numbers with numeric dashes" Exit Function + Case "advancedMenuconvertFontsToCharStyles" + getEnglish = "Create character styles from found fonts " + Exit Function Case Else getEnglish = "No translation" End Select @@ -815,6 +821,9 @@ Function getCroatian(identifier As String) As String Case "replaceNumHyphenStatus" getCroatian = "Zamjena crtica između brojeva numeričkim crticama" Exit Function + Case "advancedMenuconvertFontsToCharStyles" + getCroatian = "Stvorite stilove znakova iz pronađenih fontova " + Exit Function Case Else getCroatian = "No translation" End Select @@ -1080,6 +1089,9 @@ Function getSerbian(identifier As String) As String Case "replaceNumHyphenStatus" getSerbian = "Замена цртица између бројева нумеричким цртицама" Exit Function + Case "advancedMenuconvertFontsToCharStyles" + getSerbian = "Створите стилове знакова од пронађених фонтова " + Exit Function Case Else getSerbian = "No translation" End Select @@ -1345,6 +1357,9 @@ Function getBosnian(identifier As String) As String Case "replaceNumHyphenStatus" getBosnian = "Zamjena crtica između brojeva numeričkim crticama" Exit Function + Case "advancedMenuconvertFontsToCharStyles" + getBosnian = "Stvorite stilove znakova iz pronađenih fontova " + Exit Function Case Else getBosnian = "No translation" End Select diff --git a/translations.ods b/translations.ods index 8bffa35..8bda3e8 100644 Binary files a/translations.ods and b/translations.ods differ