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

Fix for prev commit

Browse source
This commit is contained in:
Georgy Litvinov 2021-10-28 23:38:03 +02:00
parent 8bef4474ae
commit 3123de95c8
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Redaction/Clean.xba
View file

@ -2129,7 +2129,6 @@ Sub fixDiacriticKerning
Dim oSearch As Object
Dim oFound As Object
Dim oPara As Object
turnOffTracking()
oSearch = ThisComponent.createSearchDescriptor()
oSearch.SearchString = "[\u0300-\u036F]"
oSearch.SearchRegularExpression=True
@ -2182,4 +2181,4 @@ Sub moveFirstCharacter(portion As Object, prevPortion As Object)
portion.String = Right(portion.String,Len(portion.String) - 1)
End Sub
</script:module>
</script:module>