Bugfix

Redaction/Translations.xba

@@ -41,6 +41,9 @@ Function getRussian(identifier As String) As String
       Case "buttonNameToSelectFileWithStyles"
 	    getRussian = "Указать файл"
 	    Exit Function
+      Case "cleaningFinished"
+	    getRussian = "Чистка завершена"
+	    Exit Function
 	  Case Else
 	    getRussian = getEnglish(identifier)
 	End Select  
@@ -50,10 +53,10 @@ End Function
 Function getEnglish(identifier As String) As String
 	Select Case identifier
 	  Case "noFileWithStylesFound"
-	    getEnglish = "Template with styles wasn't found. You can choose template on your computer. This stage of cleaning will be skipped if no file chosen."
+	    getEnglish = "Template with styles wasn't found. You can choose template on your computer." & chr(10) &" This stage of cleaning will be skipped if no file chosen."
 	    Exit Function
 	   Case "startQuietCleaningDescription"
-	    getEnglish = "Do you want to start document cleaning?"  & chr(10) & "You can choose template with styles to load them in process of the cleaning."
+	    getEnglish = "Do you want to start document cleaning?"  & chr(10) & "You can choose template with styles." & chr(10) & "Styles will be loaded in process of cleaning." 
 	    Exit Function
   	  Case "noStylesFileDialogTitle"
 	    getEnglish = "Template file not found"
@@ -76,6 +79,9 @@ Function getEnglish(identifier As String) As String
       Case "buttonNameToSelectFileWithStyles"
 	    getEnglish = "Select file"
 	    Exit Function
+      Case "cleaningFinished"
+	    getEnglish = "Cleaning is completed"
+	    Exit Function
 	  Case Else
 	    getEnglish = "No translation"
 	End Select