litvinovg/cleanandvalidate
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases 50 Packages Wiki Activity Actions

Show bad characters not one by one, but in excerpts

Browse source
This commit is contained in:
Georgy Litvinov 2021-06-06 22:26:53 +02:00
parent b7774aecfe
commit 3d07310e8a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Redaction/Validation.xba
View file

@ -953,7 +953,7 @@ End Function
Function findBadCharacters() As Boolean Function findBadCharacters() As Boolean
Dim founds As Object Dim founds As Object
founds = findInDoc("[\uE000-\uF8FF]") founds = findInDoc("[\uE000-\uF8FF]+")
findBadCharacters = false findBadCharacters = false
If founds.count <> 0 Then If founds.count <> 0 Then
MsgBox getTranslation("validationBadSymbolsNotification") MsgBox getTranslation("validationBadSymbolsNotification")
@ -1124,4 +1124,4 @@ Function findInDoc(searchString As String) As Variant
founds = Thiscomponent.findAll(sDesc) founds = Thiscomponent.findAll(sDesc)
findInDoc = founds findInDoc = founds
End Function End Function
</script:module> </script:module>