diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba index 771ac35..8691ebb 100644 --- a/Redaction/Clean.xba +++ b/Redaction/Clean.xba @@ -1,6 +1,6 @@ -Sub mark48 +Sub mark49 End Sub @@ -53,57 +53,58 @@ Private Sub cleanAccordingTo(dialog As Object) statusIndicator = ThisComponent.getCurrentController.statusIndicator dialog.setVisible(false) saveDocument - statusIndicator.Start("Чистка документа начата, подождите",100) + statusIndicator.Start(getTranslation("statusStarted"),100) doNotTrack If dialog.getControl("fontsInStyles").state = 1 Then - statusIndicator.Start("Заменяем шрифты в стилях",100) + statusIndicator.Start(getTranslation("statusReplaceFontsInStyles"),100) replaceStyleFonts EndIf If dialog.getControl("symbolsConversion").state = 1 Then - statusIndicator.Start("Конвертируем символы в целевые шрифты",100) + statusIndicator.Start(getTranslation("statusConvertSymbolsInTargetFonts"),100) unicodeSymbolsConversion EndIf If dialog.getControl("cleanFormatting").state = 1 Then - statusIndicator.Start("Чистим ручное форматирование",100) + statusIndicator.Start(getTranslation("statusCleaningManualFormatting"),100) cleanFormatting EndIf If dialog.getControl("replaceWhiteBackground").state = 1 Then - statusIndicator.Start("Заменяем белый фон на прозрачный",100) + statusIndicator.Start(getTranslation("statusReplaceWhiteBackground"),100) replaceWhiteBackgroundWithTransparent EndIf If dialog.getControl("removeUnusedStyles").state = 1 Then + statusIndicator.Start(getTranslation("statusRemovedUnusedStyles"),100) removeUnusedStyles EndIf If dialog.getControl("removeLinks").state = 1 Then - statusIndicator.Start("Удаляем гиперссылки",100) + statusIndicator.Start(getTranslation("statusRemoveLinks"),100) removeHyperlinks EndIf If dialog.getControl("removeBookmarks").state = 1 Then - statusIndicator.Start("Удаляем закладки",100) + statusIndicator.Start(getTranslation("statusRemoveBookmarks"),100) disposeAllBookmarks EndIf If dialog.getControl("configTables").state = 1 Then - statusIndicator.Start("Настраиваем таблицы",100) + statusIndicator.Start(getTranslation("statusConfigureTables"),100) fixTableWidth EndIf If dialog.getControl("configAnchors").state = 1 Then - statusIndicator.Start("Настраиваем привязку изображений",100) + statusIndicator.Start(getTranslation("statusConfigureImagesAnchors"),100) fixDrawingAnchors EndIf If dialog.getControl("fixMistakes").state = 1 Then - statusIndicator.Start("Исправляем часто встречающиеся ошибки",100) + statusIndicator.Start(getTranslation("statusFixFrequentMistakes"),100) fixFrequentMistakes EndIf If dialog.getControl("removeInitPageBreak").state = 1 Then - statusIndicator.Start("Удаляем разрыв страницы, если он задан в начале документа",100) + statusIndicator.Start(getTranslation("statusRemovePageBreakAtStart"),100) removeFirstElementPageBreak EndIf If dialog.getControl("removePageStyles").state = 1 Then - statusIndicator.Start("Удаляем пользовательские стили страниц",100) + statusIndicator.Start(getTranslation("statusRemoveCustomPageStyles"),100) removeUserPageStyles EndIf If dialog.getControl("loadStandardStyles").state = 1 Then - statusIndicator.Start("Загружаем стили из шаблона",100) + statusIndicator.Start(getTranslation("statusLoadingStylesFromTemplate"),100) loadArticleStyles EndIf If dialog.getControl("removeManualPageBreaks").state = 1 Then @@ -137,30 +138,33 @@ Private Sub quietCleaning Dim statusIndicator As Object statusIndicator = ThisComponent.getCurrentController.statusIndicator saveDocument - statusIndicator.Start("Чистка документа начата, подождите",100) + statusIndicator.Start(getTranslation("statusStarted"),100) doNotTrack - statusIndicator.Start("Заменяем шрифты в стилях",100) + statusIndicator.Start(getTranslation("statusReplaceFontsInStyles"),100) replaceStyleFonts - statusIndicator.Start("Конвертируем символы в целевые шрифты",100) + statusIndicator.Start(getTranslation("statusConvertSymbolsInTargetFonts"),100) unicodeSymbolsConversion - statusIndicator.Start("Чистим ручное форматирование",100) + statusIndicator.Start(getTranslation("statusCleaningManualFormatting"),100) cleanFormatting + statusIndicator.Start(getTranslation("statusReplaceWhiteBackground"),100) + replaceWhiteBackgroundWithTransparent + statusIndicator.Start(getTranslation("statusRemovedUnusedStyles"),100) removeUnusedStyles - statusIndicator.Start("Удаляем гиперссылки",100) + statusIndicator.Start(getTranslation("statusRemoveLinks"),100) removeHyperlinks - statusIndicator.Start("Удаляем закладки",100) + statusIndicator.Start(getTranslation("statusRemoveBookmarks"),100) disposeAllBookmarks - statusIndicator.Start("Настраиваем таблицы",100) + statusIndicator.Start(getTranslation("statusConfigureTables"),100) fixTableWidth - statusIndicator.Start("Настраиваем привязку изображений",100) + statusIndicator.Start(getTranslation("statusConfigureImagesAnchors"),100) fixDrawingAnchors - statusIndicator.Start("Исправляем часто встречающиеся ошибки",100) + statusIndicator.Start(getTranslation("statusFixFrequentMistakes"),100) fixFrequentMistakes - statusIndicator.Start("Удаляем разрыв страницы, если он задан в начале документа",100) + statusIndicator.Start(getTranslation("statusRemovePageBreakAtStart"),100) removeFirstElementPageBreak - statusIndicator.Start("Удаляем пользовательские стили страниц",100) + statusIndicator.Start(getTranslation("statusRemoveCustomPageStyles"),100) removeUserPageStyles - statusIndicator.Start("Загружаем стили из шаблона",100) + statusIndicator.Start(getTranslation("statusLoadingStylesFromTemplate"),100) loadArticleStyles removeLibs statusIndicator.end() diff --git a/Redaction/Translations.xba b/Redaction/Translations.xba index 9b0c0d8..cc5c492 100644 --- a/Redaction/Translations.xba +++ b/Redaction/Translations.xba @@ -96,11 +96,54 @@ Function getRussian(identifier As String) As String getRussian = "Очистить форматирование" Exit Function Case "advancedMenuSymbolsConversion" - getRussian = "Произвести конвертацию символов" + getRussian = "Конвертировать символы в целевые свободные шрифты" Exit Function Case "advancedMenuReplaceFontsInStyles" getRussian = "Заменить шрифты стилях" Exit Function + Case "statusStarted" + getRussian = "Чистка документа начата, подождите" + Exit Function + Case "statusReplaceFontsInStyles" + getRussian = "Заменяем шрифты в стилях" + Exit Function + Case "statusConvertSymbolsInTargetFonts" + getRussian = "Конвертируем символы в целевые шрифты" + Exit Function + Case "statusCleaningManualFormatting" + getRussian = "Чистим ручное форматирование" + Exit Function + Case "statusLoadingStylesFromTemplate" + getRussian = "Загружаем стили из шаблона" + Exit Function + Case "statusRemoveCustomPageStyles" + getRussian = "Удаляем пользовательские стили страниц" + Exit Function + Case "statusRemovePageBreakAtStart" + getRussian = "Удаляем разрыв страницы, если он задан в начале документа" + Exit Function + Case "statusFixFrequentMistakes" + getRussian = "Исправляем часто встречающиеся ошибки" + Exit Function + Case "statusConfigureImagesAnchors" + getRussian = "Настраиваем привязки изображений" + Exit Function + Case "statusConfigureTables" + getRussian = "Настраиваем таблицы" + Exit Function + Case "statusRemoveLinks" + getRussian = "Удаляем гиперссылки" + Exit Function + Case "statusRemoveBookmarks" + getRussian = "Удаляем закладки" + Exit Function + Case "statusReplaceWhiteBackground" + getRussian = "Замеяем белый фон символов на прозрачный" + Exit Function + Case "statusRemovedUnusedStyles" + getRussian = "Удаляем неиспользуемые стили" + Exit Function + Case Else getRussian = "Перевод не найден" End Select @@ -188,11 +231,53 @@ Function getEnglish(identifier As String) As String getEnglish = "Clean manual formatting" Exit Function Case "advancedMenuSymbolsConversion" - getEnglish = "Convert symbols" + getEnglish = "Convert symbols to target (free) fonts" Exit Function Case "advancedMenuReplaceFontsInStyles" getEnglish = "Replace fonts in styles" Exit Function + Case "statusStarted" + getEnglish = "Cleaning started" + Exit Function + Case "statusReplaceFontsInStyles" + getEnglish = "Replacing fonts in styles" + Exit Function + Case "statusConvertSymbolsInTargetFonts" + getEnglish = "Converting symbols to target (free) fonts" + Exit Function + Case "statusCleaningManualFormatting" + getEnglish = "Cleaning manual formatting" + Exit Function + Case "statusLoadingStylesFromTemplate" + getEnglish = "Loading styles from template" + Exit Function + Case "statusRemoveCustomPageStyles" + getEnglish = "Removing custom pages styles" + Exit Function + Case "statusRemovePageBreakAtStart" + getEnglish = "Removing page break at start of document" + Exit Function + Case "statusFixFrequentMistakes" + getEnglish = "Fixing frequent mistakes" + Exit Function + Case "statusConfigureImagesAnchors" + getEnglish = "Configuring image anchors" + Exit Function + Case "statusConfigureTables" + getEnglish = "Configuring tables" + Exit Function + Case "statusRemoveLinks" + getEnglish = "Removing links" + Exit Function + Case "statusRemoveBookmarks" + getEnglish = "Removing bookmarks" + Exit Function + Case "statusReplaceWhiteBackground" + getEnglish = "Replacing white symbol back with transparent" + Exit Function + Case "statusRemovedUnusedStyles" + getEnglish = "Removing unused styles" + Exit Function Case Else getEnglish = "No translation" End Select diff --git a/translations.ods b/translations.ods index 6440f54..9d338fe 100644 Binary files a/translations.ods and b/translations.ods differ