Translated validation

Redaction/Validation.xba

@@ -61,13 +61,13 @@ Sub validateButton
 		printNumberingSymbols(needExtendedInfo)
 	
 	If badText OR badNumberings OR badFootnoteSigns OR badGraphics Then
-		MsgBox "Перед публикацией документа следует исправить все найденные замечания."		
+		MsgBox getTranslation("validationWarning")	
 		If badText Then
-			MsgBox "В тексте обнаружены неподходящие для публикции символы." & chr(10) & " Далее будет представлен список отрывков текста с подобными символами."
+			MsgBox getTranslation("validationBadSymbolsNotification")
 			removeBadCharacters
 		EndIf
 	Else
-      MsgBox "Документ успешно прошел проверку. " & chr(10) & "Все изображения и символы корректны."
+      MsgBox getTranslation("validationSuccess")
 	EndIf
 End Sub
 
@@ -108,10 +108,10 @@ Private Function checkGraphics() As String
 		EndIf	
 	Next i
 	If drawingN <> 0 Then
-		result = result &"В документе найдены рисунки (" & drawingN & "), неподходящие для публикации." & chr(10)
+		result = result & getTranslation("validationBadDrawings") & drawingN & getTranslation("validationExcerptNotSuitable") & chr(10)
 	EndIf
 	If badFrame <> 0 Then
-		result = result &"В документе найдены встроенные объекты (" & badFrame & "), неподходящие для публикации." & chr(10)
+		result = result & getTranslation("validationBadEmbeededObjects") & badFrame & getTranslation("validationExcerptNotSuitable") & chr(10)
 	EndIf
 	checkGraphics = result
 End Function
@@ -142,7 +142,7 @@ Private Function checkAllFootnotes() As String
 		For j = 1 to charNum
 		  char = Asc(Right(Left(label,j),1))
 		  If char >= 57344 AND char <= 63743 then
-		  	result = result & "Символ "& Chr(char) &" сноски "& i &" не подходит для публикации"& chr(10)
+		  	result = result & getTranslation("validateFootnotes1") & " " & Chr(char) & " " & getTranslation("validateFootnotes2") & " " & i & " " & getTranslation("validateFootnotes3") & chr(10)
 		  End If
 		Next j
 	Next i
@@ -195,7 +195,7 @@ Private Sub printNumberingSymbols(needExtendedInfo)
 			  	exLength = Len(excerpt)
 			  EndIf
 			  If fontChar <> "" Then
-				  tmp = "Уровень " & (j + 1) & " шрифт " & fontName & " символ " & fontChar & " (" & Hex(Asc(fontChar)) & ") "& Left(excerpt,exLength) & chr(10) 
+				  tmp = getTranslation("validateNumberingLevel") &" " & (j + 1) & " " & getTranslation("validateNumberingFont") & " " & fontName & " " & getTranslation("validateNumberingSymbol") & " " & fontChar & " (" & Hex(Asc(fontChar)) & ") "& Left(excerpt,exLength) & chr(10) 
 				  If Asc(fontChar) > 57344  AND Asc(fontChar) < 63743 Then
 				  	resultBad = resultBad & tmp
 				  ElseIf fontName <> "IPH Astra Serif" _
@@ -218,10 +218,10 @@ Private Sub printNumberingSymbols(needExtendedInfo)
 		Exit sub
 	Else  
 	    If resultBad <> "" Then
-	    	report = "В качестве маркера в следующих списках нумерации задан некорректный символ"& chr(10) & resultBad
+	    	report = getTranslation("validateNumberingsReportSymbols") & chr(10) & resultBad
 	    EndIf
 	    If result <> "" Then
-			report = report & "В следующих списках нумерации найдены шрифты "& chr(10)& result
+			report = report & getTranslation("validateNumberingsReportFonts") & " "& chr(10)& result
 		EndIf
 	EndIf
 	MsgBox report