From 3d07310e8a87c8346f4371b10b8493a15d310290 Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Sun, 6 Jun 2021 22:26:53 +0200
Subject: [PATCH] Show bad characters not one by one, but in excerpts

---
 Redaction/Validation.xba | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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(&quot;[\uE000-\uF8FF]&quot;)
+	founds = findInDoc(&quot;[\uE000-\uF8FF]+&quot;)
 	findBadCharacters = false
 	If founds.count &lt;&gt; 0 Then
 		MsgBox getTranslation(&quot;validationBadSymbolsNotification&quot;)
@@ -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>