diff --git a/Redaction/Validation.xba b/Redaction/Validation.xba
index 0c70c28..11efad9 100644
--- a/Redaction/Validation.xba
+++ b/Redaction/Validation.xba
@@ -953,7 +953,7 @@ End Function
 
 Function findBadCharacters() As Boolean
 	Dim founds As Object
-	founds = findInDoc("[\uE000-\uF8FF]")
+	founds = findInDoc("[\uE000-\uF8FF]+")
 	findBadCharacters = false
 	If founds.count <> 0 Then
 		MsgBox getTranslation("validationBadSymbolsNotification")
@@ -1124,4 +1124,4 @@ Function findInDoc(searchString As String) As Variant
 	founds = Thiscomponent.findAll(sDesc)
 	findInDoc = founds
 End Function
-</script:module>
\ No newline at end of file
+</script:module>