More translation fixes

Redaction/Clean.xba

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark48
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark49
 
 End Sub
 
@@ -53,57 +53,58 @@ Private Sub cleanAccordingTo(dialog As Object)
 	statusIndicator = ThisComponent.getCurrentController.statusIndicator
 	dialog.setVisible(false)
 	saveDocument
-	statusIndicator.Start(&quot;Чистка документа начата, подождите&quot;,100)
+	statusIndicator.Start(getTranslation(&quot;statusStarted&quot;),100)
 	doNotTrack
 	If dialog.getControl(&quot;fontsInStyles&quot;).state = 1 Then
-		statusIndicator.Start(&quot;Заменяем шрифты в стилях&quot;,100)
+		statusIndicator.Start(getTranslation(&quot;statusReplaceFontsInStyles&quot;),100)
 		replaceStyleFonts
 	EndIf
 	If dialog.getControl(&quot;symbolsConversion&quot;).state = 1 Then
-		statusIndicator.Start(&quot;Конвертируем символы в целевые шрифты&quot;,100)
+		statusIndicator.Start(getTranslation(&quot;statusConvertSymbolsInTargetFonts&quot;),100)
 	    unicodeSymbolsConversion
   	EndIf
 	If dialog.getControl(&quot;cleanFormatting&quot;).state = 1 Then
-		statusIndicator.Start(&quot;Чистим ручное форматирование&quot;,100)	
+		statusIndicator.Start(getTranslation(&quot;statusCleaningManualFormatting&quot;),100)	
 		cleanFormatting
 	EndIf
 	If dialog.getControl(&quot;replaceWhiteBackground&quot;).state = 1 Then
-		statusIndicator.Start(&quot;Заменяем белый фон на прозрачный&quot;,100)	
+		statusIndicator.Start(getTranslation(&quot;statusReplaceWhiteBackground&quot;),100)	
 		replaceWhiteBackgroundWithTransparent
 	EndIf
 	If dialog.getControl(&quot;removeUnusedStyles&quot;).state = 1 Then
+		statusIndicator.Start(getTranslation(&quot;statusRemovedUnusedStyles&quot;),100)	
 		removeUnusedStyles
 	EndIf
 	If dialog.getControl(&quot;removeLinks&quot;).state = 1 Then
- 		statusIndicator.Start(&quot;Удаляем гиперссылки&quot;,100)	
+ 		statusIndicator.Start(getTranslation(&quot;statusRemoveLinks&quot;),100)	
 		removeHyperlinks
 	EndIf
 	If dialog.getControl(&quot;removeBookmarks&quot;).state = 1 Then
-		statusIndicator.Start(&quot;Удаляем закладки&quot;,100)	
+		statusIndicator.Start(getTranslation(&quot;statusRemoveBookmarks&quot;),100)	
 		disposeAllBookmarks
 	EndIf
 	If dialog.getControl(&quot;configTables&quot;).state = 1 Then
-		statusIndicator.Start(&quot;Настраиваем таблицы&quot;,100)	
+		statusIndicator.Start(getTranslation(&quot;statusConfigureTables&quot;),100)	
 		fixTableWidth
 	EndIf
 	If dialog.getControl(&quot;configAnchors&quot;).state = 1 Then
-		statusIndicator.Start(&quot;Настраиваем привязку изображений&quot;,100)	
+		statusIndicator.Start(getTranslation(&quot;statusConfigureImagesAnchors&quot;),100)	
 		fixDrawingAnchors
 	EndIf
 	If dialog.getControl(&quot;fixMistakes&quot;).state = 1 Then
-		statusIndicator.Start(&quot;Исправляем часто встречающиеся ошибки&quot;,100)	
+		statusIndicator.Start(getTranslation(&quot;statusFixFrequentMistakes&quot;),100)	
 		fixFrequentMistakes
 	EndIf
 	If dialog.getControl(&quot;removeInitPageBreak&quot;).state = 1 Then
-		statusIndicator.Start(&quot;Удаляем разрыв страницы, если он задан в начале документа&quot;,100)	
+		statusIndicator.Start(getTranslation(&quot;statusRemovePageBreakAtStart&quot;),100)	
 		removeFirstElementPageBreak
 	EndIf
 	If dialog.getControl(&quot;removePageStyles&quot;).state = 1 Then
-		statusIndicator.Start(&quot;Удаляем пользовательские стили страниц&quot;,100)	
+		statusIndicator.Start(getTranslation(&quot;statusRemoveCustomPageStyles&quot;),100)	
 		removeUserPageStyles
 	EndIf
 	If dialog.getControl(&quot;loadStandardStyles&quot;).state = 1 Then
-		statusIndicator.Start(&quot;Загружаем стили из шаблона&quot;,100)	
+		statusIndicator.Start(getTranslation(&quot;statusLoadingStylesFromTemplate&quot;),100)	
 		loadArticleStyles
 	EndIf
 	If dialog.getControl(&quot;removeManualPageBreaks&quot;).state = 1 Then
@@ -137,30 +138,33 @@ Private Sub quietCleaning
 	Dim statusIndicator As Object
 	statusIndicator = ThisComponent.getCurrentController.statusIndicator
 	saveDocument
-	statusIndicator.Start(&quot;Чистка документа начата, подождите&quot;,100)
+	statusIndicator.Start(getTranslation(&quot;statusStarted&quot;),100)
 	doNotTrack
-	statusIndicator.Start(&quot;Заменяем шрифты в стилях&quot;,100)
+	statusIndicator.Start(getTranslation(&quot;statusReplaceFontsInStyles&quot;),100)
 	replaceStyleFonts
-	statusIndicator.Start(&quot;Конвертируем символы в целевые шрифты&quot;,100)
+	statusIndicator.Start(getTranslation(&quot;statusConvertSymbolsInTargetFonts&quot;),100)
     unicodeSymbolsConversion
-   	statusIndicator.Start(&quot;Чистим ручное форматирование&quot;,100)	
+   	statusIndicator.Start(getTranslation(&quot;statusCleaningManualFormatting&quot;),100)	
 	cleanFormatting
+	statusIndicator.Start(getTranslation(&quot;statusReplaceWhiteBackground&quot;),100)	
+	replaceWhiteBackgroundWithTransparent
+	statusIndicator.Start(getTranslation(&quot;statusRemovedUnusedStyles&quot;),100)	
 	removeUnusedStyles
-   	statusIndicator.Start(&quot;Удаляем гиперссылки&quot;,100)	
+   	statusIndicator.Start(getTranslation(&quot;statusRemoveLinks&quot;),100)	
 	removeHyperlinks
-	statusIndicator.Start(&quot;Удаляем закладки&quot;,100)	
+	statusIndicator.Start(getTranslation(&quot;statusRemoveBookmarks&quot;),100)	
 	disposeAllBookmarks
-	statusIndicator.Start(&quot;Настраиваем таблицы&quot;,100)	
+	statusIndicator.Start(getTranslation(&quot;statusConfigureTables&quot;),100)	
 	fixTableWidth
-	statusIndicator.Start(&quot;Настраиваем привязку изображений&quot;,100)	
+	statusIndicator.Start(getTranslation(&quot;statusConfigureImagesAnchors&quot;),100)	
 	fixDrawingAnchors
-	statusIndicator.Start(&quot;Исправляем часто встречающиеся ошибки&quot;,100)	
+	statusIndicator.Start(getTranslation(&quot;statusFixFrequentMistakes&quot;),100)	
 	fixFrequentMistakes
-	statusIndicator.Start(&quot;Удаляем разрыв страницы, если он задан в начале документа&quot;,100)	
+	statusIndicator.Start(getTranslation(&quot;statusRemovePageBreakAtStart&quot;),100)	
 	removeFirstElementPageBreak
-	statusIndicator.Start(&quot;Удаляем пользовательские стили страниц&quot;,100)	
+	statusIndicator.Start(getTranslation(&quot;statusRemoveCustomPageStyles&quot;),100)	
 	removeUserPageStyles
-	statusIndicator.Start(&quot;Загружаем стили из шаблона&quot;,100)	
+	statusIndicator.Start(getTranslation(&quot;statusLoadingStylesFromTemplate&quot;),100)	
 	loadArticleStyles
 	removeLibs
 	statusIndicator.end()

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